Metrics for Maksimov and Kolovsky, Equation (32)

start0.0ms (0%)

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

analyze1.0ms (0%)

Memory

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

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.8%	0.2%	0%	0%	0%	0
100%	99.8%	0%	0.2%	0%	0%	0%	1

Compiler

Compiled 31 to 23 computations (25.8% saved)

sample1.9s (26.9%)

Memory

88.2MiB live, 2 958.3MiB allocated; 537ms collecting garbage

Samples

1.3s	7 786×	0	valid
168.0ms	470×	1	valid

Precisions

Click to see histograms. Total time spent on operations: 1.1s

ival-sub: 210.0ms (19.1% of total)

ival-pow2: 189.0ms (17.2% of total)

ival-div: 170.0ms (15.4% of total)

ival-mult: 136.0ms (12.3% of total)

ival-exp: 116.0ms (10.5% of total)

ival-add: 73.0ms (6.6% of total)

ival-cos: 72.0ms (6.5% of total)

ival-fabs: 43.0ms (3.9% of total)

adjust: 39.0ms (3.5% of total)

ival-neg: 37.0ms (3.4% of total)

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

exact: 6.0ms (0.5% of total)

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

Bogosity

explain812.0ms (11.3%)

Memory

13.1MiB live, 1 255.8MiB allocated; 379ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Example	Subexpression
188	40	(2.4522062561786098e+51 3.429294252323059e-107 -1.0433570807483805e-215 -3.4835861121977093e+254 -5.3581374564737995e+42)	-	`(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))`
0	0	-	-	`(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))`
0	0	-	-	`K`
0	0	-	-	`(/.f64 (+.f64 m n) #s(literal 2 binary64))`
0	0	-	-	`(-.f64 l (fabs.f64 (-.f64 m n)))`
0	0	-	-	`(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)))`
0	0	-	-	`(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))`
0	0	-	-	`(+.f64 m n)`
0	0	-	-	`(fabs.f64 (-.f64 m n))`
0	0	-	-	`m`
0	0	-	-	`(*.f64 K (+.f64 m n))`
0	0	-	-	`n`
0	0	-	-	`(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))`
0	0	-	-	`(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))`
0	0	-	-	`(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)`
0	0	-	-	`(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))`
0	0	-	-	`(-.f64 m n)`
0	0	-	-	`(-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M)`
0	0	-	-	`#s(literal 2 binary64)`
0	0	-	-	`l`
0	0	-	-	`M`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`cos.f64`	`(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))`	sensitivity	166	0
`cos.f64`	`(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))`	oflow-rescue	62	0
↳	`(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))`	overflow	62
↳	`(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)`	overflow	62
↳	`(*.f64 K (+.f64 m n))`	overflow	62

Confusion

	Predicted +	Predicted -
+	73	0
-	155	28

Precision

0.3201754385964912

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	73	0	0
-	155	0	28

Precision?

0.3201754385964912

Recall?

1.0

Freqs

test

number	freq
0	28
1	228

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

414.0ms	454×	1	valid
67.0ms	58×	0	valid

Compiler

Compiled 329 to 67 computations (79.6% saved)

Precisions

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

adjust: 208.0ms (47.5% of total)

ival-sub: 92.0ms (21% of total)

ival-exp: 62.0ms (14.2% of total)

ival-cos: 22.0ms (5% of total)

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

ival-div: 13.0ms (3% of total)

ival-pow2: 10.0ms (2.3% of total)

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

ival-neg: 4.0ms (0.9% of total)

ival-fabs: 4.0ms (0.9% of total)

ival-true: 1.0ms (0.2% of total)

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

exact: 0.0ms (0% of total)

preprocess232.0ms (3.2%)

Memory

-29.9MiB live, 399.5MiB allocated; 52ms collecting garbage

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	209	605
1	584	605
2	1687	601
3	5178	601
0	21	29
0	36	29
1	70	29
2	155	29
3	395	28
4	1413	28
0	8484	28

Stop Event

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

Calls

Call 1

Inputs

(*.f64 (cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))

Outputs

(*.f64 (cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))

(*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)))

Symmetry

(sort m n)

Compiler

Compiled 29 to 21 computations (27.6% saved)

eval0.0ms (0%)

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

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	71.7%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))

Status

Accuracy

Program

▶

71.7%

(*.f64 (cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))

Compiler

Compiled 29 to 21 computations (27.6% saved)

series51.0ms (0.7%)

Memory

21.3MiB live, 112.5MiB allocated; 9ms collecting garbage

Counts

21 → 222

Calls

Call 1

Inputs
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)
(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))
(*.f64 K (+.f64 m n))
K
(+.f64 m n)
m
n
#s(literal 2 binary64)
M
(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M)
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(-.f64 l (fabs.f64 (-.f64 m n)))
l
(fabs.f64 (-.f64 m n))
(-.f64 m n)

Outputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K (+ m n))) M)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K (+ m n))))
#s(approx K #s(hole binary64 K))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (+ m n))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K n)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K n)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (+ (* 1/2 (* K m)) (* 1/2 (* K n)))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K n)))
#s(approx (* K (+ m n)) #s(hole binary64 (+ (* K m) (* K n))))
#s(approx (+ m n) #s(hole binary64 n))
#s(approx (+ m n) #s(hole binary64 (+ m n)))
#s(approx m #s(hole binary64 m))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- M (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- (+ M (* -1/4 m)) (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow (- (* 1/2 n) M) 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (* 1/2 n) M)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (+ (* 1/2 m) (* 1/2 n)) M)))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* 1/2 n)))
#s(approx (/ (+ m n) 2) #s(hole binary64 (+ (* 1/2 m) (* 1/2 n))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (- m n)))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (- m n))))
#s(approx (- m n) #s(hole binary64 (* -1 n)))
#s(approx (- m n) #s(hole binary64 (- m n)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K m)))
#s(approx (* K (+ m n)) #s(hole binary64 (* m (+ K (/ (* K n) m)))))
#s(approx (+ m n) #s(hole binary64 m))
#s(approx (+ m n) #s(hole binary64 (* m (+ 1 (/ n m)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (+ (* -1 (/ (pow (- (* 1/2 n) M) 2) (pow m 2))) (/ M m)) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 m)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* m (- (+ 1/2 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* 1/2 m)))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* m (+ 1/2 (* 1/2 (/ n m))))))
#s(approx (- m n) #s(hole binary64 m))
#s(approx (- m n) #s(hole binary64 (* m (+ 1 (* -1 (/ n m))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- n (* -1 m)))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* m (- (* -1 (/ n m)) 1)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 n) M) 2) m) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* m (- (* -1 (/ (- (* 1/2 n) M) m)) 1/2)))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* -1 (* m (- (* -1/2 (/ n m)) 1/2)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (neg (+ n (* -1 m)))))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (neg (+ n (* -1 m))))))
#s(approx (- m n) #s(hole binary64 (* -1 (* m (- (/ n m) 1)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx n #s(hole binary64 n))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- M (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- (+ M (* -1/4 n)) (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow (- (* 1/2 m) M) 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (* 1/2 m) M)))
#s(approx (- m n) #s(hole binary64 (+ m (* -1 n))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* n (+ K (/ (* K m) n)))))
#s(approx (+ m n) #s(hole binary64 (* n (+ 1 (/ m n)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (+ (* -1 (/ (pow (- (* 1/2 m) M) 2) (pow n 2))) (/ M n)) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow n 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 n)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* n (- (+ 1/2 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* n (+ 1/2 (* 1/2 (/ m n))))))
#s(approx (- m n) #s(hole binary64 (* n (- (/ m n) 1))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- m (* -1 n)))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* n (- (* -1 (/ m n)) 1)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 m) M) 2) n) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* n (- (* -1 (/ (- (* 1/2 m) M) n)) 1/2)))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* -1 (* n (- (* -1/2 (/ m n)) 1/2)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (+ m (* -1 n))))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (+ m (* -1 n)))))
#s(approx (- m n) #s(hole binary64 (* -1 (* n (+ 1 (* -1 (/ m n)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (* 1/2 (* K (+ m n))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K (+ m n))))))
#s(approx M #s(hole binary64 M))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow (+ m n) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (+ m n)) (* 1/4 (pow (+ m n) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (- (* -1 M) (* -1 (+ m n)))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow (+ m n) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 (+ m n))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (+ m n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1/4 (/ (pow (+ m n) 2) (pow M 2))) (+ 1 (* -1 (/ (+ m n) M)))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow M 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (+ m n) M)) 1))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* 1/4 (/ (pow (+ m n) 2) M)) (+ m n)) M)) 1))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (+ m n) M)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (fabs (- m n)))))
#s(approx l #s(hole binary64 l))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 l))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* l (+ 1 (* -1 (/ (fabs (- m n)) l))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (* l (- (/ (fabs (- m n)) l) 1)))))

Calls

15 calls:

Time	Variable		Point	Expression
5.0ms	n	@	0	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* K (+ m n)) K (+ m n) m n 2 M (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (pow (- (/ (+ m n) 2) M) 2) (- (/ (+ m n) 2) M) (/ (+ m n) 2) (- l (fabs (- m n))) l (fabs (- m n)) (- m n))
5.0ms	n	@	-inf	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* K (+ m n)) K (+ m n) m n 2 M (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (pow (- (/ (+ m n) 2) M) 2) (- (/ (+ m n) 2) M) (/ (+ m n) 2) (- l (fabs (- m n))) l (fabs (- m n)) (- m n))
4.0ms	m	@	0	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* K (+ m n)) K (+ m n) m n 2 M (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (pow (- (/ (+ m n) 2) M) 2) (- (/ (+ m n) 2) M) (/ (+ m n) 2) (- l (fabs (- m n))) l (fabs (- m n)) (- m n))
4.0ms	M	@	0	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* K (+ m n)) K (+ m n) m n 2 M (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (pow (- (/ (+ m n) 2) M) 2) (- (/ (+ m n) 2) M) (/ (+ m n) 2) (- l (fabs (- m n))) l (fabs (- m n)) (- m n))
4.0ms	m	@	inf	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* K (+ m n)) K (+ m n) m n 2 M (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (pow (- (/ (+ m n) 2) M) 2) (- (/ (+ m n) 2) M) (/ (+ m n) 2) (- l (fabs (- m n))) l (fabs (- m n)) (- m n))

simplify334.0ms (4.6%)

Memory

31.0MiB live, 311.7MiB allocated; 111ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1001	8721
1	2873	8474
0	8589	8272

Stop Event

1×	iter limit
1×	node limit

Counts

222 → 222

Calls

Call 1

Inputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K (+ m n))) M)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K (+ m n))))
#s(approx K #s(hole binary64 K))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (+ m n))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K n)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K n)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (+ (* 1/2 (* K m)) (* 1/2 (* K n)))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K n)))
#s(approx (* K (+ m n)) #s(hole binary64 (+ (* K m) (* K n))))
#s(approx (+ m n) #s(hole binary64 n))
#s(approx (+ m n) #s(hole binary64 (+ m n)))
#s(approx m #s(hole binary64 m))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- M (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- (+ M (* -1/4 m)) (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow (- (* 1/2 n) M) 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (* 1/2 n) M)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (+ (* 1/2 m) (* 1/2 n)) M)))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* 1/2 n)))
#s(approx (/ (+ m n) 2) #s(hole binary64 (+ (* 1/2 m) (* 1/2 n))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (- m n)))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (- m n))))
#s(approx (- m n) #s(hole binary64 (* -1 n)))
#s(approx (- m n) #s(hole binary64 (- m n)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K m)))
#s(approx (* K (+ m n)) #s(hole binary64 (* m (+ K (/ (* K n) m)))))
#s(approx (+ m n) #s(hole binary64 m))
#s(approx (+ m n) #s(hole binary64 (* m (+ 1 (/ n m)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (+ (* -1 (/ (pow (- (* 1/2 n) M) 2) (pow m 2))) (/ M m)) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 m)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* m (- (+ 1/2 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* 1/2 m)))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* m (+ 1/2 (* 1/2 (/ n m))))))
#s(approx (- m n) #s(hole binary64 m))
#s(approx (- m n) #s(hole binary64 (* m (+ 1 (* -1 (/ n m))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- n (* -1 m)))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* m (- (* -1 (/ n m)) 1)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 n) M) 2) m) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* m (- (* -1 (/ (- (* 1/2 n) M) m)) 1/2)))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* -1 (* m (- (* -1/2 (/ n m)) 1/2)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (neg (+ n (* -1 m)))))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (neg (+ n (* -1 m))))))
#s(approx (- m n) #s(hole binary64 (* -1 (* m (- (/ n m) 1)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx n #s(hole binary64 n))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- M (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- (+ M (* -1/4 n)) (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow (- (* 1/2 m) M) 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (* 1/2 m) M)))
#s(approx (- m n) #s(hole binary64 (+ m (* -1 n))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* n (+ K (/ (* K m) n)))))
#s(approx (+ m n) #s(hole binary64 (* n (+ 1 (/ m n)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (+ (* -1 (/ (pow (- (* 1/2 m) M) 2) (pow n 2))) (/ M n)) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow n 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 n)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* n (- (+ 1/2 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* n (+ 1/2 (* 1/2 (/ m n))))))
#s(approx (- m n) #s(hole binary64 (* n (- (/ m n) 1))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- m (* -1 n)))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* n (- (* -1 (/ m n)) 1)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 m) M) 2) n) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* n (- (* -1 (/ (- (* 1/2 m) M) n)) 1/2)))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* -1 (* n (- (* -1/2 (/ m n)) 1/2)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (+ m (* -1 n))))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (+ m (* -1 n)))))
#s(approx (- m n) #s(hole binary64 (* -1 (* n (+ 1 (* -1 (/ m n)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (* 1/2 (* K (+ m n))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K (+ m n))))))
#s(approx M #s(hole binary64 M))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow (+ m n) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (+ m n)) (* 1/4 (pow (+ m n) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (- (* -1 M) (* -1 (+ m n)))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow (+ m n) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 (+ m n))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (+ m n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1/4 (/ (pow (+ m n) 2) (pow M 2))) (+ 1 (* -1 (/ (+ m n) M)))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow M 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (+ m n) M)) 1))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* 1/4 (/ (pow (+ m n) 2) M)) (+ m n)) M)) 1))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (+ m n) M)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (fabs (- m n)))))
#s(approx l #s(hole binary64 l))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 l))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* l (+ 1 (* -1 (/ (fabs (- m n)) l))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (* l (- (/ (fabs (- m n)) l) 1)))))

Outputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))) (cos.f64 M)) (.f64 (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64))) K (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (cos.f64 M)) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))))) K (.f64 (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64))) K (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 M))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (cos.f64 M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (cos.f64 M)) (.f64 #s(literal -1/2 binary64) (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)))) K (cos.f64 M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (cos.f64 M)) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K (.f64 #s(literal -1/2 binary64) (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)))) K (cos.f64 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (neg.f64 M))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K (+ m n))) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K) (neg.f64 M)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (/ (* K (+ m n)) 2) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))
#s(approx (* K (+ m n)) #s(hole binary64 (* K (+ m n))))
#s(approx (* K (+ m n)) (*.f64 (+.f64 n m) K))
#s(approx K #s(hole binary64 K))
#s(approx K K)
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (+.f64 n m) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (+ m n))) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) K) (+.f64 n m) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (*.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (/.f64 (neg.f64 M) K)) K))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (*.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) (+.f64 n m) (/.f64 M K))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))) m (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) K) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) K) #s(literal -1/2 binary64) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))))))) m (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))))) m (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K n)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) m) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) m) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))) m (cos.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) m) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))) m (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))) m (cos.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K n)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K) (neg.f64 M)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (+ (* 1/2 (* K m)) (* 1/2 (* K n)))))
#s(approx (/ (* K (+ m n)) 2) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))
#s(approx (* K (+ m n)) #s(hole binary64 (* K n)))
#s(approx (* K (+ m n)) (*.f64 n K))
#s(approx (* K (+ m n)) #s(hole binary64 (+ (* K m) (* K n))))
#s(approx (* K (+ m n)) (*.f64 (+.f64 n m) K))
#s(approx (+ m n) #s(hole binary64 n))
#s(approx (+ m n) n)
#s(approx (+ m n) #s(hole binary64 (+ m n)))
#s(approx (+ m n) (+.f64 n m))
#s(approx m #s(hole binary64 m))
#s(approx m m)
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (fma.f64 (.f64 m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (.f64 #s(literal 1/2 binary64) n))) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (neg.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- M (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (-.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) m) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- (+ M (* -1/4 m)) (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (-.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) m (-.f64 M (.f64 #s(literal 1/2 binary64) n))) m) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow (- (* 1/2 n) M) 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) (+.f64 m (-.f64 (*.f64 #s(literal 1/2 binary64) n) M))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (fma.f64 (fma.f64 #s(literal 1/4 binary64) m (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (* 1/2 n) M)))
#s(approx (- (/ (+ m n) 2) M) (-.f64 (*.f64 #s(literal 1/2 binary64) n) M))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (+ (* 1/2 m) (* 1/2 n)) M)))
#s(approx (- (/ (+ m n) 2) M) (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* 1/2 n)))
#s(approx (/ (+ m n) 2) (*.f64 #s(literal 1/2 binary64) n))
#s(approx (/ (+ m n) 2) #s(hole binary64 (+ (* 1/2 m) (* 1/2 n))))
#s(approx (/ (+ m n) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 n m)))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (- m n)))))
#s(approx (- l (fabs (- m n))) (-.f64 l (fabs.f64 (-.f64 n m))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (- m n))))
#s(approx (fabs (- m n)) (fabs.f64 (-.f64 n m)))
#s(approx (- m n) #s(hole binary64 (* -1 n)))
#s(approx (- m n) (neg.f64 n))
#s(approx (- m n) #s(hole binary64 (- m n)))
#s(approx (- m n) (-.f64 m n))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M) m)) m))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 m K) #s(literal 1/2 binary64)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m))
#s(approx (* K (+ m n)) #s(hole binary64 (* K m)))
#s(approx (* K (+ m n)) (*.f64 m K))
#s(approx (* K (+ m n)) #s(hole binary64 (* m (+ K (/ (* K n) m)))))
#s(approx (* K (+ m n)) (*.f64 (fma.f64 K (/.f64 n m) K) m))
#s(approx (+ m n) #s(hole binary64 m))
#s(approx (+ m n) m)
#s(approx (+ m n) #s(hole binary64 (* m (+ 1 (/ n m)))))
#s(approx (+ m n) (fma.f64 (/.f64 n m) m m))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 m m) #s(literal -1/4 binary64)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (/.f64 M m)) (+.f64 (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l) (.f64 m m)) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64)))) (*.f64 m m)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 m m) #s(literal -1/4 binary64)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (+ (* -1 (/ (pow (- (* 1/2 n) M) 2) (pow m 2))) (/ M m)) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (fma.f64 (/.f64 #s(literal -1 binary64) m) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) m) (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64)))) (*.f64 m m)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (.f64 m m) #s(literal 1/4 binary64)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (+.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) m)) (*.f64 m m)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) (.f64 m m)) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (/.f64 M m)) (.f64 m m)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 m)))
#s(approx (- (/ (+ m n) 2) M) (*.f64 #s(literal 1/2 binary64) m))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* m (- (+ 1/2 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (- (/ (+ m n) 2) M) (.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) m)) m))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* 1/2 m)))
#s(approx (/ (+ m n) 2) (*.f64 #s(literal 1/2 binary64) m))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* m (+ 1/2 (* 1/2 (/ n m))))))
#s(approx (/ (+ m n) 2) (*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m))
#s(approx (- m n) #s(hole binary64 m))
#s(approx (- m n) m)
#s(approx (- m n) #s(hole binary64 (* m (+ 1 (* -1 (/ n m))))))
#s(approx (- m n) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 n m)) m))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (+.f64 n m) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- n (* -1 m)))) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) K) (+.f64 n m) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (neg.f64 m) (fma.f64 #s(literal -1/2 binary64) K (/.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M) (neg.f64 m)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))))
#s(approx (* K (+ m n)) (*.f64 (neg.f64 m) (neg.f64 (fma.f64 K (/.f64 n m) K))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* m (- (* -1 (/ n m)) 1)))))
#s(approx (+ m n) (*.f64 (neg.f64 m) (-.f64 (/.f64 (neg.f64 n) m) #s(literal 1 binary64))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m) #s(literal 1/4 binary64)) (*.f64 m m)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)) (neg.f64 m)) (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m) #s(literal 1/4 binary64)) (*.f64 m m)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 n) M) 2) m) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (neg.f64 (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) m) (-.f64 (.f64 #s(literal 1/2 binary64) n) M))) m) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (-.f64 #s(literal 1/4 binary64) (/.f64 (neg.f64 (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) m) (-.f64 (.f64 #s(literal 1/2 binary64) n) M))) m)) (.f64 m m)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* m (- (* -1 (/ (- (* 1/2 n) M) m)) 1/2)))))
#s(approx (- (/ (+ m n) 2) M) (.f64 (neg.f64 m) (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m) #s(literal 1/2 binary64))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* -1 (* m (- (* -1/2 (/ n m)) 1/2)))))
#s(approx (/ (+ m n) 2) (.f64 (neg.f64 m) (-.f64 (.f64 (/.f64 n m) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (neg (+ n (* -1 m)))))))
#s(approx (- l (fabs (- m n))) (-.f64 l (fabs.f64 (-.f64 n m))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (neg (+ n (* -1 m))))))
#s(approx (fabs (- m n)) (fabs.f64 (-.f64 n m)))
#s(approx (- m n) #s(hole binary64 (* -1 (* m (- (/ n m) 1)))))
#s(approx (- m n) (*.f64 (neg.f64 m) (-.f64 (/.f64 n m) #s(literal 1 binary64))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))) n (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) K) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) K) #s(literal -1/2 binary64) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal -1/4 binary64))))))) n (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))))) n (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (.f64 (.f64 n K) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) n) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))) n (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) n) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))) n (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))) n (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))
#s(approx n #s(hole binary64 n))
#s(approx n n)
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal -1/4 binary64))) (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (.f64 #s(literal 1/2 binary64) m))) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (neg.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- M (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (-.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) n) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- (+ M (* -1/4 n)) (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (-.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) n (-.f64 M (.f64 #s(literal 1/2 binary64) m))) n) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow (- (* 1/2 m) M) 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) (+.f64 n (-.f64 (*.f64 #s(literal 1/2 binary64) m) M))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (fma.f64 (fma.f64 #s(literal 1/4 binary64) n (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (* 1/2 m) M)))
#s(approx (- (/ (+ m n) 2) M) (-.f64 (*.f64 #s(literal 1/2 binary64) m) M))
#s(approx (- m n) #s(hole binary64 (+ m (* -1 n))))
#s(approx (- m n) (-.f64 m n))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M) n)) n))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n))
#s(approx (* K (+ m n)) #s(hole binary64 (* n (+ K (/ (* K m) n)))))
#s(approx (* K (+ m n)) (*.f64 (fma.f64 K (/.f64 m n) K) n))
#s(approx (+ m n) #s(hole binary64 (* n (+ 1 (/ m n)))))
#s(approx (+ m n) (fma.f64 (/.f64 m n) n n))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 n n)) (/.f64 M n)) (+.f64 (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (.f64 n n)) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64)))) (*.f64 n n)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (+ (* -1 (/ (pow (- (* 1/2 m) M) 2) (pow n 2))) (/ M n)) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (fma.f64 (/.f64 #s(literal -1 binary64) n) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) n) (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64)))) (*.f64 n n)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow n 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (.f64 n n) #s(literal 1/4 binary64)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (+.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) n)) (*.f64 n n)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) (.f64 n n)) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (/.f64 M n)) (.f64 n n)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 n)))
#s(approx (- (/ (+ m n) 2) M) (*.f64 #s(literal 1/2 binary64) n))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* n (- (+ 1/2 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (- (/ (+ m n) 2) M) (.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) n)) n))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* n (+ 1/2 (* 1/2 (/ m n))))))
#s(approx (/ (+ m n) 2) (*.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) n))
#s(approx (- m n) #s(hole binary64 (* n (- (/ m n) 1))))
#s(approx (- m n) (*.f64 (-.f64 (/.f64 m n) #s(literal 1 binary64)) n))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (+.f64 n m) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- m (* -1 n)))) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) K) (+.f64 n m) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (neg.f64 n) (fma.f64 #s(literal -1/2 binary64) K (/.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M) (neg.f64 n)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))))
#s(approx (* K (+ m n)) (*.f64 (neg.f64 n) (neg.f64 (fma.f64 K (/.f64 m n) K))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* n (- (* -1 (/ m n)) 1)))))
#s(approx (+ m n) (*.f64 (neg.f64 n) (-.f64 (/.f64 (neg.f64 m) n) #s(literal 1 binary64))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n) #s(literal 1/4 binary64)) (*.f64 n n)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)) (neg.f64 n)) (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n) #s(literal 1/4 binary64)) (*.f64 n n)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 m) M) 2) n) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (neg.f64 (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) n) (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) n) #s(literal 1/4 binary64)) (.f64 n n)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (-.f64 #s(literal 1/4 binary64) (/.f64 (neg.f64 (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) n) (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) n)) (.f64 n n)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* n (- (* -1 (/ (- (* 1/2 m) M) n)) 1/2)))))
#s(approx (- (/ (+ m n) 2) M) (.f64 (neg.f64 n) (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n) #s(literal 1/2 binary64))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* -1 (* n (- (* -1/2 (/ m n)) 1/2)))))
#s(approx (/ (+ m n) 2) (.f64 (neg.f64 n) (-.f64 (.f64 (/.f64 m n) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (+ m (* -1 n))))))
#s(approx (- l (fabs (- m n))) (-.f64 l (fabs.f64 (-.f64 n m))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (+ m (* -1 n)))))
#s(approx (fabs (- m n)) (fabs.f64 (-.f64 n m)))
#s(approx (- m n) #s(hole binary64 (* -1 (* n (+ 1 (* -1 (/ m n)))))))
#s(approx (- m n) (*.f64 (neg.f64 n) (-.f64 #s(literal 1 binary64) (/.f64 m n))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (*.f64 (+.f64 n m) K)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (+.f64 n m))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (*.f64 (+.f64 n m) K))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (+.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (+.f64 n m)))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (*.f64 (+.f64 n m) K))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))))))) M (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (+.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (+.f64 n m)))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (* 1/2 (* K (+ m n))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) M (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))) (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))) M (cos.f64 (.f64 #s(literal -1/2 binary64) (*.f64 (+.f64 n m) K)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))) #s(literal -1/2 binary64))) M (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))) M (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K (+ m n))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K) (neg.f64 M)))
#s(approx M #s(hole binary64 M))
#s(approx M M)
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) M (.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (+.f64 n m) M (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow (+ m n) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (+ m n)) (* 1/4 (pow (+ m n) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (fma.f64 (+.f64 n m) M (*.f64 #s(literal -1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (- (* -1 M) (* -1 (+ m n)))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (fma.f64 (fma.f64 #s(literal -1 binary64) M (+.f64 n m)) M (*.f64 #s(literal -1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow (+ m n) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (fma.f64 (neg.f64 (+.f64 n m)) M (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (fma.f64 (-.f64 M (+.f64 n m)) M (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 (+ m n))))
#s(approx (- (/ (+ m n) 2) M) (*.f64 #s(literal 1/2 binary64) (+.f64 n m)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (+ m n)))))
#s(approx (- (/ (+ m n) 2) M) (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (/.f64 (*.f64 (+.f64 n m) K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (+.f64 n m) M) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (+.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M)) (/.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l) (.f64 M M)))) (.f64 M M)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (*.f64 (neg.f64 M) M))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (+.f64 n m) M) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1/4 (/ (pow (+ m n) 2) (pow M 2))) (+ 1 (* -1 (/ (+ m n) M)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (.f64 (/.f64 #s(literal -1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M)) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (*.f64 M M)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow M 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (*.f64 M M))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M)) (.f64 M M)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 n m) M))) (.f64 M M)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (+ m n) 2) M) (neg.f64 M))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (+ m n) M)) 1))))
#s(approx (- (/ (+ m n) 2) M) (.f64 (-.f64 (.f64 (/.f64 (+.f64 n m) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (+.f64 n m) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) (cos.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) K) (+.f64 n m) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 M)))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* 1/4 (/ (pow (+ m n) 2) M)) (+ m n)) M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (-.f64 (-.f64 (.f64 (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 1/4 binary64)) m) n) (neg.f64 M)) #s(literal 1 binary64)) (*.f64 M M)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal -1/4 binary64) (+.f64 n m)) M)) (.f64 M M)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (+ m n) M)))))))
#s(approx (- (/ (+ m n) 2) M) (*.f64 (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 M)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (+.f64 n m) M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) K) (+.f64 n m) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (+.f64 n m) M))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) K) (+.f64 n m) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (+.f64 n m) M))) (.f64 (.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) K) (+.f64 n m) M))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64))) l) l)))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (*.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) l #s(literal -1 binary64))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))) (.f64 (.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64))) l) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (fabs (- m n)))))
#s(approx (- l (fabs (- m n))) (neg.f64 (fabs.f64 (-.f64 n m))))
#s(approx l #s(hole binary64 l))
#s(approx l l)
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) l) (+.f64 (/.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l) #s(literal 1 binary64))) l))
#s(approx (- l (fabs (- m n))) #s(hole binary64 l))
#s(approx (- l (fabs (- m n))) l)
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* l (+ 1 (* -1 (/ (fabs (- m n)) l))))))
#s(approx (- l (fabs (- m n))) (fma.f64 (/.f64 (fabs.f64 (-.f64 n m)) (neg.f64 l)) l l))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (+.f64 n m) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 l) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64))) l))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (* l (- (/ (fabs (- m n)) l) 1)))))
#s(approx (- l (fabs (- m n))) (*.f64 (neg.f64 l) (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) l) #s(literal 1 binary64))))

rewrite88.0ms (1.2%)

Memory

-18.1MiB live, 69.3MiB allocated; 14ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	21	148
0	36	148
1	154	148
0	1207	148

Stop Event

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

Counts

21 → 171

Calls

Call 1

Inputs
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)
(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))
(*.f64 K (+.f64 m n))
K
(+.f64 m n)
m
n
#s(literal 2 binary64)
M
(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M)
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(-.f64 l (fabs.f64 (-.f64 m n)))
l
(fabs.f64 (-.f64 m n))
(-.f64 m n)

Outputs
(.f64 (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))))
(/.f64 (.f64 (exp.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))) (exp.f64 (-.f64 l (fabs.f64 (-.f64 n m)))))
(/.f64 (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (exp.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))))) (exp.f64 (-.f64 l (fabs.f64 (-.f64 n m)))))
(fma.f64 (.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (.f64 (.f64 (sin.f64 M) (sin.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m)))))))
(fma.f64 (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (.f64 (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))))
(fma.f64 (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (.f64 (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (.f64 (sin.f64 M) (sin.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (.f64 (cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m)))))))
(+.f64 (.f64 (.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m)))))) (.f64 (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m)))))))
(+.f64 (.f64 (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))) (.f64 (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))))
(+.f64 (.f64 (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))))) (.f64 (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))))))
(+.f64 (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m)))))) (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m)))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))))) (.f64 (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))))) (.f64 (.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))))))))
(fma.f64 (sin.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (.f64 (cos.f64 M) (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M) (.f64 (cos.f64 M) (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)))))
(fma.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (.f64 (sin.f64 M) (sin.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)))))
(fma.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M) (.f64 (sin.f64 M) (sin.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (.f64 (neg.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (sin.f64 M)))
(cos.f64 (neg.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))))
(cos.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)))
(cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))
(+.f64 (.f64 (sin.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))))
(+.f64 (.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M))) (neg.f64 (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (neg.f64 (fma.f64 M (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M) (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M)) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64))) (fma.f64 M (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M) (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M)) (/.f64 (.f64 M M) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M)))
(-.f64 (/.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 M (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M) (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 M #s(literal 3 binary64)) (fma.f64 M (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M) (pow.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)
(*.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K)
(*.f64 (+.f64 n m) (/.f64 K #s(literal 2 binary64)))
(*.f64 K (/.f64 (+.f64 n m) #s(literal 2 binary64)))
(/.f64 (neg.f64 (*.f64 (neg.f64 K) (+.f64 n m))) #s(literal 2 binary64))
(/.f64 (*.f64 (neg.f64 K) (+.f64 n m)) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))
(neg.f64 (/.f64 (*.f64 (neg.f64 K) (+.f64 n m)) #s(literal 2 binary64)))
(neg.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal -2 binary64)))
(fma.f64 (/.f64 m #s(literal 2 binary64)) K (*.f64 (/.f64 n #s(literal 2 binary64)) K))
(fma.f64 K (/.f64 m #s(literal 2 binary64)) (*.f64 K (/.f64 n #s(literal 2 binary64))))
(+.f64 (.f64 (/.f64 m #s(literal 2 binary64)) K) (.f64 (/.f64 n #s(literal 2 binary64)) K))
(+.f64 (.f64 K (/.f64 m #s(literal 2 binary64))) (.f64 K (/.f64 n #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 m K) #s(literal 2 binary64)) (/.f64 (.f64 n K) #s(literal 2 binary64)))
(*.f64 (+.f64 n m) K)
(*.f64 K (+.f64 n m))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (-.f64 m n))
(/.f64 (.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) K) (fma.f64 n (-.f64 n m) (.f64 m m)))
(/.f64 (.f64 K (.f64 (+.f64 n m) (-.f64 m n))) (-.f64 m n))
(/.f64 (.f64 K (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fma.f64 n (-.f64 n m) (.f64 m m)))
(/.f64 (-.f64 (.f64 (.f64 m K) (.f64 m K)) (.f64 (.f64 n K) (.f64 n K))) (-.f64 (.f64 m K) (.f64 n K)))
(/.f64 (+.f64 (pow.f64 (.f64 m K) #s(literal 3 binary64)) (pow.f64 (.f64 n K) #s(literal 3 binary64))) (fma.f64 (.f64 m K) (.f64 m K) (-.f64 (.f64 (.f64 n K) (.f64 n K)) (.f64 (.f64 m K) (.f64 n K)))))
(fma.f64 n K (*.f64 m K))
(fma.f64 m K (*.f64 n K))
(fma.f64 K n (*.f64 m K))
(fma.f64 K m (*.f64 n K))
(-.f64 (.f64 m K) (.f64 (neg.f64 n) K))
(-.f64 (.f64 m K) (.f64 (neg.f64 K) n))
(+.f64 (.f64 n K) (.f64 m K))
(+.f64 (.f64 m K) (.f64 n K))
K
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (*.f64 (+.f64 n m) (-.f64 m n))) (+.f64 n m))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fma.f64 n (+.f64 n m) (*.f64 m m)))
(/.f64 (-.f64 (.f64 n n) (.f64 m m)) (-.f64 n m))
(/.f64 (neg.f64 (*.f64 (+.f64 n m) (-.f64 m n))) (neg.f64 (-.f64 m n)))
(/.f64 (neg.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (neg.f64 (fma.f64 n (-.f64 n m) (*.f64 m m))))
(/.f64 (*.f64 (+.f64 n m) (-.f64 m n)) (-.f64 m n))
(/.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) (fma.f64 n n (-.f64 (.f64 m m) (.f64 n m))))
(/.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) (fma.f64 n (-.f64 n m) (*.f64 m m)))
(-.f64 (/.f64 (.f64 m m) (-.f64 m n)) (/.f64 (.f64 n n) (-.f64 m n)))
(+.f64 (/.f64 (pow.f64 m #s(literal 3 binary64)) (fma.f64 n (-.f64 n m) (.f64 m m))) (/.f64 (pow.f64 n #s(literal 3 binary64)) (fma.f64 n (-.f64 n m) (.f64 m m))))
(+.f64 n m)
(+.f64 m n)
m
n
#s(literal 2 binary64)
M
(*.f64 (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l)) (exp.f64 (fabs.f64 (-.f64 n m))))
(/.f64 (-.f64 (.f64 (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m)))))) (.f64 (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))))) (-.f64 (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m)))))))
(/.f64 (+.f64 (pow.f64 (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) #s(literal 3 binary64)) (pow.f64 (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) #s(literal 3 binary64))) (fma.f64 (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (-.f64 (.f64 (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m)))))) (.f64 (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m)))))))))
(/.f64 (neg.f64 (exp.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))))) (neg.f64 (exp.f64 (-.f64 l (fabs.f64 (-.f64 n m))))))
(/.f64 (exp.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) (exp.f64 (-.f64 l (fabs.f64 (-.f64 n m)))))
(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m)))))
(+.f64 (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))))
(+.f64 (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))) (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))))
(/.f64 (-.f64 (*.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l) (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l)) (pow.f64 (-.f64 m n) #s(literal 2 binary64))) (-.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l) (fabs.f64 (-.f64 n m))))
(/.f64 (+.f64 (pow.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l) #s(literal 3 binary64)) (pow.f64 (fabs.f64 (-.f64 n m)) #s(literal 3 binary64))) (fma.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l) (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l) (-.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (*.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l) (fabs.f64 (-.f64 n m))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 l (fabs.f64 (-.f64 n m))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (-.f64 l (fabs.f64 (-.f64 n m))) (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 (neg.f64 (pow.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 3 binary64))) (pow.f64 (-.f64 l (fabs.f64 (-.f64 n m))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (-.f64 l (fabs.f64 (-.f64 n m))) (+.f64 (-.f64 l (fabs.f64 (-.f64 n m))) (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) (pow.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 l (fabs.f64 (-.f64 n m))) #s(literal 2 binary64))) (+.f64 (-.f64 l (fabs.f64 (-.f64 n m))) (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)))))
(/.f64 (-.f64 (neg.f64 (pow.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 3 binary64))) (pow.f64 (-.f64 l (fabs.f64 (-.f64 n m))) #s(literal 3 binary64))) (fma.f64 (-.f64 l (fabs.f64 (-.f64 n m))) (+.f64 (-.f64 l (fabs.f64 (-.f64 n m))) (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) (pow.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64))))
(fma.f64 (sqrt.f64 (-.f64 m n)) (sqrt.f64 (-.f64 m n)) (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l))
(-.f64 (/.f64 (pow.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)) (+.f64 (-.f64 l (fabs.f64 (-.f64 n m))) (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 l (fabs.f64 (-.f64 n m))) #s(literal 2 binary64)) (+.f64 (-.f64 l (fabs.f64 (-.f64 n m))) (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))))))
(-.f64 (/.f64 (neg.f64 (pow.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 l (fabs.f64 (-.f64 n m))) (+.f64 (-.f64 l (fabs.f64 (-.f64 n m))) (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) (pow.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (-.f64 l (fabs.f64 (-.f64 n m))) #s(literal 3 binary64)) (fma.f64 (-.f64 l (fabs.f64 (-.f64 n m))) (+.f64 (-.f64 l (fabs.f64 (-.f64 n m))) (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) (pow.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)))))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 n m))))
(+.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l) (fabs.f64 (-.f64 n m)))
(+.f64 (fabs.f64 (-.f64 n m)) (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l))
(*.f64 (neg.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M))
(*.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (neg.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)))
(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(*.f64 (neg.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) (neg.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)))
(*.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) (fabs.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)))
(*.f64 (exp.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M))) (exp.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M))))
(*.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M))
(pow.f64 (exp.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M))) #s(literal 2 binary64))
(pow.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M)) (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64))) (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M))) (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M))
(/.f64 (*.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M)) (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M))) (.f64 (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M)) (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (*.f64 (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64))) (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M))) (*.f64 (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64))) (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64))) (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (.f64 (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64))) (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 1/2 binary64)) (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 1/2 binary64)))
(pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 1 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 M M))) (neg.f64 (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (neg.f64 (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 M M)) (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M))
(/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64))) (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) (/.f64 (*.f64 M M) (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)))
(-.f64 (/.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 M #s(literal 3 binary64)) (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)
(exp.f64 (*.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 1 binary64)))
(+.f64 (/.f64 m #s(literal 2 binary64)) (-.f64 (/.f64 n #s(literal 2 binary64)) M))
(/.f64 (-.f64 (.f64 (/.f64 m #s(literal 2 binary64)) (/.f64 m #s(literal 2 binary64))) (.f64 (/.f64 n #s(literal 2 binary64)) (/.f64 n #s(literal 2 binary64)))) (-.f64 (/.f64 m #s(literal 2 binary64)) (/.f64 n #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (/.f64 m #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 n #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 m #s(literal 2 binary64)) (/.f64 m #s(literal 2 binary64)) (-.f64 (.f64 (/.f64 n #s(literal 2 binary64)) (/.f64 n #s(literal 2 binary64))) (.f64 (/.f64 m #s(literal 2 binary64)) (/.f64 n #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (+.f64 n m))) #s(literal 2 binary64))
(/.f64 (fma.f64 m #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) n)) #s(literal 4 binary64))
(/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (.f64 (-.f64 m n) #s(literal 2 binary64)))
(/.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) (.f64 (fma.f64 n (-.f64 n m) (.f64 m m)) #s(literal 2 binary64)))
(/.f64 (neg.f64 (+.f64 n m)) #s(literal -2 binary64))
(/.f64 (+.f64 n m) #s(literal 2 binary64))
(neg.f64 (/.f64 (neg.f64 (+.f64 n m)) #s(literal 2 binary64)))
(neg.f64 (/.f64 (+.f64 n m) #s(literal -2 binary64)))
(+.f64 (/.f64 n #s(literal 2 binary64)) (/.f64 m #s(literal 2 binary64)))
(+.f64 (/.f64 m #s(literal 2 binary64)) (/.f64 n #s(literal 2 binary64)))
(/.f64 (neg.f64 (-.f64 (*.f64 l l) (pow.f64 (-.f64 m n) #s(literal 2 binary64)))) (neg.f64 (+.f64 (fabs.f64 (-.f64 n m)) l)))
(/.f64 (neg.f64 (-.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 (fabs.f64 (-.f64 n m)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 l l (fma.f64 (fabs.f64 (-.f64 n m)) l (pow.f64 (-.f64 m n) #s(literal 2 binary64))))))
(/.f64 (-.f64 (*.f64 l l) (pow.f64 (-.f64 m n) #s(literal 2 binary64))) (+.f64 (fabs.f64 (-.f64 n m)) l))
(/.f64 (-.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 (fabs.f64 (-.f64 n m)) #s(literal 3 binary64))) (fma.f64 l l (fma.f64 (fabs.f64 (-.f64 n m)) l (pow.f64 (-.f64 m n) #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 l l) (+.f64 (fabs.f64 (-.f64 n m)) l)) (/.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (+.f64 (fabs.f64 (-.f64 n m)) l)))
(-.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (fma.f64 l l (fma.f64 (fabs.f64 (-.f64 n m)) l (pow.f64 (-.f64 m n) #s(literal 2 binary64))))) (/.f64 (pow.f64 (fabs.f64 (-.f64 n m)) #s(literal 3 binary64)) (fma.f64 l l (fma.f64 (fabs.f64 (-.f64 n m)) l (pow.f64 (-.f64 m n) #s(literal 2 binary64))))))
(-.f64 l (fabs.f64 (-.f64 n m)))
l
(*.f64 (sqrt.f64 (-.f64 m n)) (sqrt.f64 (-.f64 m n)))
(pow.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 (fabs.f64 (*.f64 (+.f64 n m) (-.f64 m n))) (fabs.f64 (+.f64 n m)))
(/.f64 (fabs.f64 (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fabs.f64 (fma.f64 n (+.f64 n m) (*.f64 m m))))
(sqrt.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)))
(fabs.f64 (neg.f64 (-.f64 n m)))
(fabs.f64 (neg.f64 (neg.f64 (-.f64 m n))))
(fabs.f64 (-.f64 n m))
(fabs.f64 (neg.f64 (-.f64 m n)))
(fabs.f64 (-.f64 m n))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fma.f64 n (-.f64 n m) (*.f64 m m)))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (*.f64 (+.f64 n m) (-.f64 m n))) (-.f64 m n))
(/.f64 (neg.f64 (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (neg.f64 (fma.f64 n (+.f64 n m) (*.f64 m m))))
(/.f64 (neg.f64 (*.f64 (+.f64 n m) (-.f64 m n))) (neg.f64 (+.f64 n m)))
(/.f64 (*.f64 (+.f64 n m) (-.f64 m n)) (+.f64 n m))
(/.f64 (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) (fma.f64 n (+.f64 n m) (*.f64 m m)))
(-.f64 (/.f64 (.f64 m m) (+.f64 n m)) (/.f64 (.f64 n n) (+.f64 n m)))
(-.f64 (/.f64 (pow.f64 m #s(literal 3 binary64)) (fma.f64 n (+.f64 n m) (.f64 m m))) (/.f64 (pow.f64 n #s(literal 3 binary64)) (fma.f64 n (+.f64 n m) (.f64 m m))))
(-.f64 m n)

eval58.0ms (0.8%)

Memory: 14.3MiB live, 110.2MiB allocated; 25ms collecting garbage
Compiler: Compiled 19 467 to 2 306 computations (88.2% saved)

prune22.0ms (0.3%)

Memory

12.7MiB live, 57.2MiB allocated; 5ms collecting garbage

Pruning

15 alts after pruning (15 fresh and 0 done)

	Pruned	Kept	Total
New	386	15	401
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	387	15	402

Accuracy

97.9%

Counts

402 → 15

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	71.3%	(.f64 (sin.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	72.3%	(.f64 (sin.f64 (+.f64 (neg.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	32.7%	(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 m K) #s(literal 3 binary64)) (pow.f64 (.f64 n K) #s(literal 3 binary64))) (fma.f64 (.f64 m K) (.f64 m K) (-.f64 (.f64 (.f64 n K) (.f64 n K)) (.f64 (.f64 m K) (*.f64 n K))))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	31.8%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (+.f64 (cosh.f64 (.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 2 binary64))))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	47.1%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 #s(approx (pow (- (/ (+ m n) 2) M) 2) (*.f64 M M))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	42.9%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
▶	34.2%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
	41.4%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 m m) #s(literal -1/4 binary64)))))
	44.4%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
▶	26.8%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	30.3%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
	60.8%	(.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
▶	96.0%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
	65.2%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))))
▶	68.4%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))

Compiler

Compiled 1 334 to 890 computations (33.3% saved)

series150.0ms (2.1%)

Memory

-31.1MiB live, 261.8MiB allocated; 71ms collecting garbage

Counts

63 → 588

Calls

Call 1

Inputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
(*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))
(fabs.f64 (-.f64 n m))
(-.f64 n m)
n
m
(+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)
(pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64))
(fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M))
#s(literal 1/2 binary64)
(+.f64 n m)
(neg.f64 M)
M
#s(literal 2 binary64)
l
(cos.f64 M)
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)
(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))
(*.f64 K (+.f64 m n))
K
(+.f64 m n)
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(*.f64 n n)
#s(literal -1/4 binary64)
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))
(+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)
(pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))
(-.f64 (*.f64 #s(literal 1/2 binary64) m) M)
(*.f64 #s(literal 1/2 binary64) m)
(cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))
(-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(*.f64 m K)
(.f64 (sin.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(sin.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))
(/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))
(*.f64 (+.f64 n m) K)
(-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M)
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(-.f64 l (fabs.f64 (-.f64 m n)))
(fabs.f64 (-.f64 m n))
(-.f64 m n)

Outputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K (+ m n))) M)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K (+ m n))))
#s(approx K #s(hole binary64 K))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* -1/2 (* K (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M)))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* K (+ (* -1/2 (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M))))) (* -1/8 (* K (* (pow m 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* K (+ (* -1/2 (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M))))) (* K (+ (* -1/8 (* (pow m 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* 1/48 (* K (* (pow m 3) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* m (sin (neg M))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (pow m 2) (cos (neg M))))) (* 1/2 (* m (sin (neg M)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (pow m 2) (cos (neg M)))) (* 1/48 (* K (* (pow m 3) (sin (neg M))))))) (* 1/2 (* m (sin (neg M)))))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx (* (* m K) 1/2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (* m K) #s(hole binary64 (* K m)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/8 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))) (* K (+ (* -1/8 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* -1/8 (* K (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))) (* K (+ (* -1/8 (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (pow (+ m n) 3)))))))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (- (* 1/2 (PI)) M)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (* (+ n m) K) #s(hole binary64 (* K (+ m n))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (+ m n))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 m)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* K (- (+ (* 1/2 (+ m n)) (* 1/2 (/ (PI) K))) (/ M K)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 m) (/ M K))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* -1 (* K (+ (* -1 (/ (- (* 1/2 (PI)) M) K)) (* -1/2 (+ m n)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (- n m))))
#s(approx (- n m) #s(hole binary64 n))
#s(approx (- n m) #s(hole binary64 (+ n (* -1 m))))
#s(approx m #s(hole binary64 m))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (pow (- (* 1/2 n) M) 2))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (pow (- (* 1/2 n) M) 2)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (- (* 1/2 n) M)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (- (+ (* 1/2 m) (* 1/2 n)) M)))
#s(approx (+ n m) #s(hole binary64 n))
#s(approx (+ n m) #s(hole binary64 (+ m n)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K n)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K n)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (+ (* 1/2 (* K m)) (* 1/2 (* K n)))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K n)))
#s(approx (* K (+ m n)) #s(hole binary64 (+ (* K m) (* K n))))
#s(approx (+ m n) #s(hole binary64 n))
#s(approx (+ m n) #s(hole binary64 (+ m n)))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (+ (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))) (* m (+ (* -1/2 (* K (* M (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M)))))) (+ (* -1/8 (* (pow K 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (+ (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))) (* m (+ (* -1/2 (* K (* M (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M)))))) (+ (* -1/8 (* (pow K 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* (sin (neg M)) (- (* 1/2 (pow M 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (+ (* -1/4 M) (* 1/6 (pow M 3))))))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow M 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* M (* m (exp (- (fabs (- n m)) (+ l (pow M 2)))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* m (+ (* M (exp (- (fabs (- n m)) (+ l (pow M 2))))) (* m (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* m (+ (* M (exp (- (fabs (- n m)) (+ l (pow M 2))))) (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (+ (* -1/4 M) (* 1/6 (pow M 3))))) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow M 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M m)) (+ l (pow M 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- (* -1/4 m) (* -1 M)))) (+ l (pow M 2)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (pow M 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* -1 (* M m)) (pow M 2)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* m (+ (* -1 M) (* 1/4 m))) (pow M 2)))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (pow M 2)))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (+ (* -1 (* M m)) (pow M 2))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (+ (* m (+ (* -1 M) (* 1/4 m))) (pow M 2))))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* -1 M)))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (- (* 1/2 m) M)))
#s(approx (* 1/2 m) #s(hole binary64 (* 1/2 m)))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (neg M))))) (* 1/2 (* K (sin (neg M)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (neg M)))) (* 1/48 (* (pow K 3) (* m (sin (neg M))))))) (* 1/2 (* K (sin (neg M)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* 1/2 (* K (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* -1/8 (* (pow K 2) (* m (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* m (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* -1/48 (* (pow K 3) (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (- (+ (* 1/2 (PI)) (+ (* 1/2 (* K m)) (* 1/2 (* K n)))) M)))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (+ (* 1/2 (* K m)) (* 1/2 (* K n)))))
#s(approx (* (+ n m) K) #s(hole binary64 (* K n)))
#s(approx (* (+ n m) K) #s(hole binary64 (+ (* K m) (* K n))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- M (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- (+ M (* -1/4 m)) (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow (- (* 1/2 n) M) 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (* 1/2 n) M)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (+ (* 1/2 m) (* 1/2 n)) M)))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* 1/2 n)))
#s(approx (/ (+ m n) 2) #s(hole binary64 (+ (* 1/2 m) (* 1/2 n))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (- m n)))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (- m n))))
#s(approx (- m n) #s(hole binary64 (* -1 n)))
#s(approx (- m n) #s(hole binary64 (- m n)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- n m)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (- n m) #s(hole binary64 (* -1 m)))
#s(approx (- n m) #s(hole binary64 (* m (- (/ n m) 1))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))) (/ M m)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* 1/2 m)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* m (- (+ 1/2 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (+ n m) #s(hole binary64 m))
#s(approx (+ n m) #s(hole binary64 (* m (+ 1 (/ n m)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K m)))
#s(approx (* K (+ m n)) #s(hole binary64 (* m (+ K (/ (* K n) m)))))
#s(approx (+ m n) #s(hole binary64 m))
#s(approx (+ m n) #s(hole binary64 (* m (+ 1 (/ n m)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ M m) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ (fabs (- n m)) (pow m 2)) (+ 1/4 (+ (* -1 (/ M m)) (+ (/ l (pow m 2)) (/ (pow M 2) (pow m 2)))))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ M m))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (+ (* -1 (/ M m)) (+ (/ l (pow m 2)) (/ (pow M 2) (pow m 2))))))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ M m))))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (+ (* -1 (/ M m)) (/ (pow M 2) (pow m 2)))))))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* 1/2 m)))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* m (+ 1/2 (* -1 (/ M m))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* m (+ (* -1 (/ M m)) (* 1/2 K)))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* m (- (+ (* 1/2 K) (+ (* 1/2 (/ (PI) m)) (* 1/2 (/ (* K n) m)))) (/ M m)))))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))))
#s(approx (* (+ n m) K) #s(hole binary64 (* K m)))
#s(approx (* (+ n m) K) #s(hole binary64 (* m (+ K (/ (* K n) m)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (+ (* -1 (/ (pow (- (* 1/2 n) M) 2) (pow m 2))) (/ M m)) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 m)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* m (- (+ 1/2 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* 1/2 m)))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* m (+ 1/2 (* 1/2 (/ n m))))))
#s(approx (- m n) #s(hole binary64 m))
#s(approx (- m n) #s(hole binary64 (* m (+ 1 (* -1 (/ n m))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (+ n (* -1 m)))))
#s(approx (- n m) #s(hole binary64 (* -1 (* m (+ 1 (* -1 (/ n m)))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (+ l (pow (- (* 1/2 n) M) 2)) m))) m))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* -1 (* m (- (* -1 (/ (- (* 1/2 n) M) m)) 1/2)))))
#s(approx (+ n m) #s(hole binary64 (* -1 (* m (- (* -1 (/ n m)) 1)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- n (* -1 m)))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* m (- (* -1 (/ n m)) 1)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (+ n (* -1 m))) (+ l (pow (+ M (* -1/2 m)) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (+ n (* -1 m))) (+ l (pow (+ M (* -1/2 m)) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ n (* -1 m))) (+ l (pow M 2))) m)) M) m)) 1/4))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ M (* -1 (/ (+ l (pow M 2)) m))) m))))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ M (* -1 (/ (pow M 2) m))) m))))))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* -1 (* m (- (/ M m) 1/2)))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (/ M m))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M) m)) (* -1/2 K))))))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))))
#s(approx (* (+ n m) K) #s(hole binary64 (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 n) M) 2) m) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* m (- (* -1 (/ (- (* 1/2 n) M) m)) 1/2)))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* -1 (* m (- (* -1/2 (/ n m)) 1/2)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (neg (+ n (* -1 m)))))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (neg (+ n (* -1 m))))))
#s(approx (- m n) #s(hole binary64 (* -1 (* m (- (/ n m) 1)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- n m) #s(hole binary64 (- n m)))
#s(approx n #s(hole binary64 n))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (pow (- (* 1/2 m) M) 2))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (pow (- (* 1/2 m) M) 2)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (- (* 1/2 m) M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (* (* n n) -1/4) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (* n n) #s(hole binary64 (pow n 2)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* 1/2 (* K (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* -1/8 (* (pow K 2) (* n (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* n (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* -1/48 (* (pow K 3) (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- M (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- (+ M (* -1/4 n)) (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow (- (* 1/2 m) M) 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (* 1/2 m) M)))
#s(approx (- m n) #s(hole binary64 (+ m (* -1 n))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- n m)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- n m) #s(hole binary64 (* n (+ 1 (* -1 (/ m n))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* 1/4 (pow n 2))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))) (/ M n)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* 1/4 (pow n 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* 1/2 n)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* n (- (+ 1/2 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (+ n m) #s(hole binary64 (* n (+ 1 (/ m n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* n (+ K (/ (* K m) n)))))
#s(approx (+ m n) #s(hole binary64 (* n (+ 1 (/ m n)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* n (- (+ (* 1/2 K) (+ (* 1/2 (/ (PI) n)) (* 1/2 (/ (* K m) n)))) (/ M n)))))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))))
#s(approx (* (+ n m) K) #s(hole binary64 (* n (+ K (/ (* K m) n)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (+ (* -1 (/ (pow (- (* 1/2 m) M) 2) (pow n 2))) (/ M n)) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow n 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 n)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* n (- (+ 1/2 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* n (+ 1/2 (* 1/2 (/ m n))))))
#s(approx (- m n) #s(hole binary64 (* n (- (/ m n) 1))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (neg (+ m (* -1 n))))))
#s(approx (- n m) #s(hole binary64 (* -1 (* n (- (/ m n) 1)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (+ l (pow (- (* 1/2 m) M) 2)) n))) n))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* -1 (* n (- (* -1 (/ (- (* 1/2 m) M) n)) 1/2)))))
#s(approx (+ n m) #s(hole binary64 (* -1 (* n (- (* -1 (/ m n)) 1)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- m (* -1 n)))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* n (- (* -1 (/ m n)) 1)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M) n)) (* -1/2 K))))))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))))
#s(approx (* (+ n m) K) #s(hole binary64 (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 m) M) 2) n) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* n (- (* -1 (/ (- (* 1/2 m) M) n)) 1/2)))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* -1 (* n (- (* -1/2 (/ m n)) 1/2)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (+ m (* -1 n))))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (+ m (* -1 n)))))
#s(approx (- m n) #s(hole binary64 (* -1 (* n (+ 1 (* -1 (/ m n)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (+ (* M (+ (* -1/2 (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (* 1/4 (pow (+ m n) 2)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n))))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* 1/4 (pow (+ m n) 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* 1/2 (+ m n))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (+ (* -1 M) (* 1/2 (+ m n)))))
#s(approx (neg M) #s(hole binary64 (* -1 M)))
#s(approx M #s(hole binary64 M))
#s(approx (cos M) #s(hole binary64 1))
#s(approx (cos M) #s(hole binary64 (+ 1 (* -1/2 (pow M 2)))))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2)))))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (* 1/2 (* K (+ m n))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K (+ m n))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m)))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (+ (* m (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1)))))) (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (+ (* M (+ (* -1/2 (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))) (+ (* -1/6 (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (+ (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (+ (* -1 m) (* 1/6 (pow m 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* (sin (* 1/2 (* K m))) (- (* 1/2 (pow m 2)) 1))))))) (+ (* m (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1))))))) (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1))) (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (+ (* -1 m) (* 1/6 (pow m 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1)))) (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M m)) (+ l (* 1/4 (pow m 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (- (* -1 M) (* -1 m)))) (+ l (* 1/4 (pow m 2))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (* 1/4 (pow m 2)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* -1 (* M m)) (* 1/4 (pow m 2))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* 1/4 (pow m 2)) (* M (+ M (* -1 m)))))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (+ (* -1 (* M m)) (* 1/4 (pow m 2)))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (+ (* 1/4 (pow m 2)) (* M (+ M (* -1 m))))))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (+ (* -1 M) (* 1/2 m))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (* 1/2 (* K m)))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (sin (* 1/2 (* K m)))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K m))))) (* -1 (sin (* 1/2 (* K m)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K m)))) (* -1/6 (* M (sin (* 1/2 (* K m))))))) (* -1 (sin (* 1/2 (* K m)))))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K m)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))) (+ (* 1/6 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* -1 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* -1/2 (* M (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* M (+ (* -1/2 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* 1/6 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))
#s(approx (- M (/ (PI) 2)) #s(hole binary64 (* -1/2 (PI))))
#s(approx (- M (/ (PI) 2)) #s(hole binary64 (- M (* 1/2 (PI)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow (+ m n) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (+ m n)) (* 1/4 (pow (+ m n) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (- (* -1 M) (* -1 (+ m n)))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow (+ m n) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 (+ m n))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (+ m n)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- n m)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (pow M 2)))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (pow M 2)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* -1 M)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* M (- (* 1/2 (/ (+ m n) M)) 1))))
#s(approx (cos M) #s(hole binary64 (cos M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ m M) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- n m)) (pow M 2)) (+ 1 (+ (* -1 (/ m M)) (+ (* 1/4 (/ (pow m 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (pow M 2)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ m M))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ m M)) (+ (* 1/4 (/ (pow m 2) (pow M 2))) (/ l (pow M 2))))))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ m M))))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ m M)) (* 1/4 (/ (pow m 2) (pow M 2))))))))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* M (- (* 1/2 (/ m M)) 1))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K m) M)) 1))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* M (- (+ (* 1/2 (/ (PI) M)) (* 1/2 (/ (* K (+ m n)) M))) 1))))
#s(approx (- M (/ (PI) 2)) #s(hole binary64 M))
#s(approx (- M (/ (PI) 2)) #s(hole binary64 (* M (+ 1 (* -1/2 (/ (PI) M))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1/4 (/ (pow (+ m n) 2) (pow M 2))) (+ 1 (* -1 (/ (+ m n) M)))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow M 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (+ m n) M)) 1))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1 (/ (+ l (* 1/4 (pow (+ m n) 2))) M)))) M))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (+ m n) M)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K m)))) (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 m)) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 m)) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))) M)) m) M)) 1))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (* -1 (/ (+ l (* 1/4 (pow m 2))) M))) M))))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (* -1/4 (/ (pow m 2) M))) M))))))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ m M)))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K m))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K m) M)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* -1 (* M (+ 1 (* -1 (/ (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))))
#s(approx (- M (/ (PI) 2)) #s(hole binary64 (* -1 (* M (- (* 1/2 (/ (PI) M)) 1)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* 1/4 (/ (pow (+ m n) 2) M)) (+ m n)) M)) 1))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (+ m n) M)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* -1 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (pow (- (* 1/2 (+ m n)) M) 2)))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx l #s(hole binary64 l))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (neg l) #s(hole binary64 (* -1 l)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* -1 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))) (* 1/2 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* 1/2 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (pow (- (* 1/2 m) M) 2)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (pow (- (* 1/2 m) M) 2))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* 1/2 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* l (+ (* -1/6 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* 1/2 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (fabs (- m n)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* l (- (/ (fabs (- n m)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 l))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* l (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 l)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* l (- (/ (fabs (- n m)) l) (+ 1 (/ (pow (- (* 1/2 m) M) 2) l))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 l))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* l (+ 1 (/ (pow (- (* 1/2 m) M) 2) l)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 l))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* l (+ 1 (* -1 (/ (fabs (- m n)) l))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* -1 (* l (- (* -1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)) 1)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)) l)))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* -1 (* l (- (* -1 (/ (pow (- (* 1/2 m) M) 2) l)) 1)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (* l (- (/ (fabs (- m n)) l) 1)))))

Calls

15 calls:

Time	Variable		Point	Expression
16.0ms	K	@	0	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (fabs (- n m)) (- n m) n m (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (+ (* 1/2 (+ n m)) (neg M)) 1/2 (+ n m) (neg M) M 2 l (cos M) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* K (+ m n)) K (+ m n) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg l) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* n n) -1/4) (* n n) -1/4 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (+ (pow (- (* 1/2 m) M) 2) l) (pow (- (* 1/2 m) M) 2) (- (* 1/2 m) M) (* 1/2 m) (cos (- (* (* m K) 1/2) M)) (- (* (* m K) 1/2) M) (* (* m K) 1/2) (* m K) (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (/ (* (+ n m) K) 2) (* (+ n m) K) (- M (/ (PI) 2)) (/ (PI) 2) (PI) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (pow (- (/ (+ m n) 2) M) 2) (- (/ (+ m n) 2) M) (/ (+ m n) 2) (- l (fabs (- m n))) (fabs (- m n)) (- m n))
16.0ms	m	@	inf	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (fabs (- n m)) (- n m) n m (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (+ (* 1/2 (+ n m)) (neg M)) 1/2 (+ n m) (neg M) M 2 l (cos M) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* K (+ m n)) K (+ m n) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg l) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* n n) -1/4) (* n n) -1/4 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (+ (pow (- (* 1/2 m) M) 2) l) (pow (- (* 1/2 m) M) 2) (- (* 1/2 m) M) (* 1/2 m) (cos (- (* (* m K) 1/2) M)) (- (* (* m K) 1/2) M) (* (* m K) 1/2) (* m K) (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (/ (* (+ n m) K) 2) (* (+ n m) K) (- M (/ (PI) 2)) (/ (PI) 2) (PI) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (pow (- (/ (+ m n) 2) M) 2) (- (/ (+ m n) 2) M) (/ (+ m n) 2) (- l (fabs (- m n))) (fabs (- m n)) (- m n))
14.0ms	m	@	0	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (fabs (- n m)) (- n m) n m (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (+ (* 1/2 (+ n m)) (neg M)) 1/2 (+ n m) (neg M) M 2 l (cos M) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* K (+ m n)) K (+ m n) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg l) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* n n) -1/4) (* n n) -1/4 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (+ (pow (- (* 1/2 m) M) 2) l) (pow (- (* 1/2 m) M) 2) (- (* 1/2 m) M) (* 1/2 m) (cos (- (* (* m K) 1/2) M)) (- (* (* m K) 1/2) M) (* (* m K) 1/2) (* m K) (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (/ (* (+ n m) K) 2) (* (+ n m) K) (- M (/ (PI) 2)) (/ (PI) 2) (PI) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (pow (- (/ (+ m n) 2) M) 2) (- (/ (+ m n) 2) M) (/ (+ m n) 2) (- l (fabs (- m n))) (fabs (- m n)) (- m n))
11.0ms	M	@	0	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (fabs (- n m)) (- n m) n m (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (+ (* 1/2 (+ n m)) (neg M)) 1/2 (+ n m) (neg M) M 2 l (cos M) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* K (+ m n)) K (+ m n) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg l) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* n n) -1/4) (* n n) -1/4 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (+ (pow (- (* 1/2 m) M) 2) l) (pow (- (* 1/2 m) M) 2) (- (* 1/2 m) M) (* 1/2 m) (cos (- (* (* m K) 1/2) M)) (- (* (* m K) 1/2) M) (* (* m K) 1/2) (* m K) (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (/ (* (+ n m) K) 2) (* (+ n m) K) (- M (/ (PI) 2)) (/ (PI) 2) (PI) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (pow (- (/ (+ m n) 2) M) 2) (- (/ (+ m n) 2) M) (/ (+ m n) 2) (- l (fabs (- m n))) (fabs (- m n)) (- m n))
9.0ms	n	@	inf	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (fabs (- n m)) (- n m) n m (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (+ (* 1/2 (+ n m)) (neg M)) 1/2 (+ n m) (neg M) M 2 l (cos M) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* K (+ m n)) K (+ m n) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg l) (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* n n) -1/4) (* n n) -1/4 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (+ (pow (- (* 1/2 m) M) 2) l) (pow (- (* 1/2 m) M) 2) (- (* 1/2 m) M) (* 1/2 m) (cos (- (* (* m K) 1/2) M)) (- (* (* m K) 1/2) M) (* (* m K) 1/2) (* m K) (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (/ (* (+ n m) K) 2) (* (+ n m) K) (- M (/ (PI) 2)) (/ (PI) 2) (PI) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (pow (- (/ (+ m n) 2) M) 2) (- (/ (+ m n) 2) M) (/ (+ m n) 2) (- l (fabs (- m n))) (fabs (- m n)) (- m n))

simplify298.0ms (4.1%)

Memory

7.4MiB live, 424.5MiB allocated; 46ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	2374	24410
1	7342	24382
0	8539	23558

Stop Event

1×	iter limit
1×	node limit

Counts

588 → 588

Calls

Call 1

Inputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K (+ m n))) M)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K (+ m n))))
#s(approx K #s(hole binary64 K))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* -1/2 (* K (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M)))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* K (+ (* -1/2 (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M))))) (* -1/8 (* K (* (pow m 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* K (+ (* -1/2 (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M))))) (* K (+ (* -1/8 (* (pow m 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* 1/48 (* K (* (pow m 3) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* m (sin (neg M))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (pow m 2) (cos (neg M))))) (* 1/2 (* m (sin (neg M)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (pow m 2) (cos (neg M)))) (* 1/48 (* K (* (pow m 3) (sin (neg M))))))) (* 1/2 (* m (sin (neg M)))))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx (* (* m K) 1/2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (* m K) #s(hole binary64 (* K m)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/8 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))) (* K (+ (* -1/8 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* -1/8 (* K (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))) (* K (+ (* -1/8 (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (pow (+ m n) 3)))))))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (- (* 1/2 (PI)) M)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (* (+ n m) K) #s(hole binary64 (* K (+ m n))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (+ m n))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 m)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* K (- (+ (* 1/2 (+ m n)) (* 1/2 (/ (PI) K))) (/ M K)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 m) (/ M K))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* -1 (* K (+ (* -1 (/ (- (* 1/2 (PI)) M) K)) (* -1/2 (+ m n)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (- n m))))
#s(approx (- n m) #s(hole binary64 n))
#s(approx (- n m) #s(hole binary64 (+ n (* -1 m))))
#s(approx m #s(hole binary64 m))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (pow (- (* 1/2 n) M) 2))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (pow (- (* 1/2 n) M) 2)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (- (* 1/2 n) M)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (- (+ (* 1/2 m) (* 1/2 n)) M)))
#s(approx (+ n m) #s(hole binary64 n))
#s(approx (+ n m) #s(hole binary64 (+ m n)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K n)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K n)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (+ (* 1/2 (* K m)) (* 1/2 (* K n)))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K n)))
#s(approx (* K (+ m n)) #s(hole binary64 (+ (* K m) (* K n))))
#s(approx (+ m n) #s(hole binary64 n))
#s(approx (+ m n) #s(hole binary64 (+ m n)))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (+ (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))) (* m (+ (* -1/2 (* K (* M (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M)))))) (+ (* -1/8 (* (pow K 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (+ (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))) (* m (+ (* -1/2 (* K (* M (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M)))))) (+ (* -1/8 (* (pow K 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* (sin (neg M)) (- (* 1/2 (pow M 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (+ (* -1/4 M) (* 1/6 (pow M 3))))))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow M 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* M (* m (exp (- (fabs (- n m)) (+ l (pow M 2)))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* m (+ (* M (exp (- (fabs (- n m)) (+ l (pow M 2))))) (* m (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* m (+ (* M (exp (- (fabs (- n m)) (+ l (pow M 2))))) (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (+ (* -1/4 M) (* 1/6 (pow M 3))))) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow M 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M m)) (+ l (pow M 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- (* -1/4 m) (* -1 M)))) (+ l (pow M 2)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (pow M 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* -1 (* M m)) (pow M 2)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* m (+ (* -1 M) (* 1/4 m))) (pow M 2)))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (pow M 2)))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (+ (* -1 (* M m)) (pow M 2))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (+ (* m (+ (* -1 M) (* 1/4 m))) (pow M 2))))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* -1 M)))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (- (* 1/2 m) M)))
#s(approx (* 1/2 m) #s(hole binary64 (* 1/2 m)))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (neg M))))) (* 1/2 (* K (sin (neg M)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (neg M)))) (* 1/48 (* (pow K 3) (* m (sin (neg M))))))) (* 1/2 (* K (sin (neg M)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* 1/2 (* K (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* -1/8 (* (pow K 2) (* m (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* m (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* -1/48 (* (pow K 3) (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (- (+ (* 1/2 (PI)) (+ (* 1/2 (* K m)) (* 1/2 (* K n)))) M)))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (+ (* 1/2 (* K m)) (* 1/2 (* K n)))))
#s(approx (* (+ n m) K) #s(hole binary64 (* K n)))
#s(approx (* (+ n m) K) #s(hole binary64 (+ (* K m) (* K n))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- M (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- (+ M (* -1/4 m)) (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow (- (* 1/2 n) M) 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (* 1/2 n) M)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (+ (* 1/2 m) (* 1/2 n)) M)))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* 1/2 n)))
#s(approx (/ (+ m n) 2) #s(hole binary64 (+ (* 1/2 m) (* 1/2 n))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (- m n)))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (- m n))))
#s(approx (- m n) #s(hole binary64 (* -1 n)))
#s(approx (- m n) #s(hole binary64 (- m n)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- n m)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (- n m) #s(hole binary64 (* -1 m)))
#s(approx (- n m) #s(hole binary64 (* m (- (/ n m) 1))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))) (/ M m)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* 1/2 m)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* m (- (+ 1/2 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (+ n m) #s(hole binary64 m))
#s(approx (+ n m) #s(hole binary64 (* m (+ 1 (/ n m)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K m)))
#s(approx (* K (+ m n)) #s(hole binary64 (* m (+ K (/ (* K n) m)))))
#s(approx (+ m n) #s(hole binary64 m))
#s(approx (+ m n) #s(hole binary64 (* m (+ 1 (/ n m)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ M m) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ (fabs (- n m)) (pow m 2)) (+ 1/4 (+ (* -1 (/ M m)) (+ (/ l (pow m 2)) (/ (pow M 2) (pow m 2)))))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ M m))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (+ (* -1 (/ M m)) (+ (/ l (pow m 2)) (/ (pow M 2) (pow m 2))))))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ M m))))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (+ (* -1 (/ M m)) (/ (pow M 2) (pow m 2)))))))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* 1/2 m)))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* m (+ 1/2 (* -1 (/ M m))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* m (+ (* -1 (/ M m)) (* 1/2 K)))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* m (- (+ (* 1/2 K) (+ (* 1/2 (/ (PI) m)) (* 1/2 (/ (* K n) m)))) (/ M m)))))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))))
#s(approx (* (+ n m) K) #s(hole binary64 (* K m)))
#s(approx (* (+ n m) K) #s(hole binary64 (* m (+ K (/ (* K n) m)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (+ (* -1 (/ (pow (- (* 1/2 n) M) 2) (pow m 2))) (/ M m)) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 m)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* m (- (+ 1/2 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* 1/2 m)))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* m (+ 1/2 (* 1/2 (/ n m))))))
#s(approx (- m n) #s(hole binary64 m))
#s(approx (- m n) #s(hole binary64 (* m (+ 1 (* -1 (/ n m))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (+ n (* -1 m)))))
#s(approx (- n m) #s(hole binary64 (* -1 (* m (+ 1 (* -1 (/ n m)))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (+ l (pow (- (* 1/2 n) M) 2)) m))) m))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* -1 (* m (- (* -1 (/ (- (* 1/2 n) M) m)) 1/2)))))
#s(approx (+ n m) #s(hole binary64 (* -1 (* m (- (* -1 (/ n m)) 1)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- n (* -1 m)))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* m (- (* -1 (/ n m)) 1)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (+ n (* -1 m))) (+ l (pow (+ M (* -1/2 m)) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (+ n (* -1 m))) (+ l (pow (+ M (* -1/2 m)) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ n (* -1 m))) (+ l (pow M 2))) m)) M) m)) 1/4))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ M (* -1 (/ (+ l (pow M 2)) m))) m))))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ M (* -1 (/ (pow M 2) m))) m))))))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* -1 (* m (- (/ M m) 1/2)))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (/ M m))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M) m)) (* -1/2 K))))))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))))
#s(approx (* (+ n m) K) #s(hole binary64 (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 n) M) 2) m) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* m (- (* -1 (/ (- (* 1/2 n) M) m)) 1/2)))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* -1 (* m (- (* -1/2 (/ n m)) 1/2)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (neg (+ n (* -1 m)))))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (neg (+ n (* -1 m))))))
#s(approx (- m n) #s(hole binary64 (* -1 (* m (- (/ n m) 1)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- n m) #s(hole binary64 (- n m)))
#s(approx n #s(hole binary64 n))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (pow (- (* 1/2 m) M) 2))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (pow (- (* 1/2 m) M) 2)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (- (* 1/2 m) M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (* (* n n) -1/4) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (* n n) #s(hole binary64 (pow n 2)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* 1/2 (* K (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* -1/8 (* (pow K 2) (* n (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* n (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* -1/48 (* (pow K 3) (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- M (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- (+ M (* -1/4 n)) (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow (- (* 1/2 m) M) 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (* 1/2 m) M)))
#s(approx (- m n) #s(hole binary64 (+ m (* -1 n))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- n m)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- n m) #s(hole binary64 (* n (+ 1 (* -1 (/ m n))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* 1/4 (pow n 2))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))) (/ M n)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* 1/4 (pow n 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* 1/2 n)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* n (- (+ 1/2 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (+ n m) #s(hole binary64 (* n (+ 1 (/ m n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* n (+ K (/ (* K m) n)))))
#s(approx (+ m n) #s(hole binary64 (* n (+ 1 (/ m n)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* n (- (+ (* 1/2 K) (+ (* 1/2 (/ (PI) n)) (* 1/2 (/ (* K m) n)))) (/ M n)))))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))))
#s(approx (* (+ n m) K) #s(hole binary64 (* n (+ K (/ (* K m) n)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (+ (* -1 (/ (pow (- (* 1/2 m) M) 2) (pow n 2))) (/ M n)) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow n 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 n)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* n (- (+ 1/2 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* n (+ 1/2 (* 1/2 (/ m n))))))
#s(approx (- m n) #s(hole binary64 (* n (- (/ m n) 1))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (neg (+ m (* -1 n))))))
#s(approx (- n m) #s(hole binary64 (* -1 (* n (- (/ m n) 1)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (+ l (pow (- (* 1/2 m) M) 2)) n))) n))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* -1 (* n (- (* -1 (/ (- (* 1/2 m) M) n)) 1/2)))))
#s(approx (+ n m) #s(hole binary64 (* -1 (* n (- (* -1 (/ m n)) 1)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- m (* -1 n)))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* n (- (* -1 (/ m n)) 1)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M) n)) (* -1/2 K))))))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))))
#s(approx (* (+ n m) K) #s(hole binary64 (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 m) M) 2) n) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* n (- (* -1 (/ (- (* 1/2 m) M) n)) 1/2)))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* -1 (* n (- (* -1/2 (/ m n)) 1/2)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (+ m (* -1 n))))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (+ m (* -1 n)))))
#s(approx (- m n) #s(hole binary64 (* -1 (* n (+ 1 (* -1 (/ m n)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (+ (* M (+ (* -1/2 (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (* 1/4 (pow (+ m n) 2)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n))))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* 1/4 (pow (+ m n) 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* 1/2 (+ m n))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (+ (* -1 M) (* 1/2 (+ m n)))))
#s(approx (neg M) #s(hole binary64 (* -1 M)))
#s(approx M #s(hole binary64 M))
#s(approx (cos M) #s(hole binary64 1))
#s(approx (cos M) #s(hole binary64 (+ 1 (* -1/2 (pow M 2)))))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2)))))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (* 1/2 (* K (+ m n))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K (+ m n))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m)))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (+ (* m (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1)))))) (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (+ (* M (+ (* -1/2 (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))) (+ (* -1/6 (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (+ (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (+ (* -1 m) (* 1/6 (pow m 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* (sin (* 1/2 (* K m))) (- (* 1/2 (pow m 2)) 1))))))) (+ (* m (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1))))))) (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1))) (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (+ (* -1 m) (* 1/6 (pow m 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1)))) (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M m)) (+ l (* 1/4 (pow m 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (- (* -1 M) (* -1 m)))) (+ l (* 1/4 (pow m 2))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (* 1/4 (pow m 2)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* -1 (* M m)) (* 1/4 (pow m 2))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* 1/4 (pow m 2)) (* M (+ M (* -1 m)))))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (+ (* -1 (* M m)) (* 1/4 (pow m 2)))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (+ (* 1/4 (pow m 2)) (* M (+ M (* -1 m))))))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (+ (* -1 M) (* 1/2 m))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (* 1/2 (* K m)))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (sin (* 1/2 (* K m)))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K m))))) (* -1 (sin (* 1/2 (* K m)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K m)))) (* -1/6 (* M (sin (* 1/2 (* K m))))))) (* -1 (sin (* 1/2 (* K m)))))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K m)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))) (+ (* 1/6 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* -1 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* -1/2 (* M (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* M (+ (* -1/2 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* 1/6 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))
#s(approx (- M (/ (PI) 2)) #s(hole binary64 (* -1/2 (PI))))
#s(approx (- M (/ (PI) 2)) #s(hole binary64 (- M (* 1/2 (PI)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow (+ m n) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (+ m n)) (* 1/4 (pow (+ m n) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (- (* -1 M) (* -1 (+ m n)))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow (+ m n) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 (+ m n))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (+ m n)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- n m)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (pow M 2)))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (pow M 2)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* -1 M)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* M (- (* 1/2 (/ (+ m n) M)) 1))))
#s(approx (cos M) #s(hole binary64 (cos M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ m M) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- n m)) (pow M 2)) (+ 1 (+ (* -1 (/ m M)) (+ (* 1/4 (/ (pow m 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (pow M 2)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ m M))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ m M)) (+ (* 1/4 (/ (pow m 2) (pow M 2))) (/ l (pow M 2))))))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ m M))))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ m M)) (* 1/4 (/ (pow m 2) (pow M 2))))))))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* M (- (* 1/2 (/ m M)) 1))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K m) M)) 1))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* M (- (+ (* 1/2 (/ (PI) M)) (* 1/2 (/ (* K (+ m n)) M))) 1))))
#s(approx (- M (/ (PI) 2)) #s(hole binary64 M))
#s(approx (- M (/ (PI) 2)) #s(hole binary64 (* M (+ 1 (* -1/2 (/ (PI) M))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1/4 (/ (pow (+ m n) 2) (pow M 2))) (+ 1 (* -1 (/ (+ m n) M)))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow M 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (+ m n) M)) 1))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1 (/ (+ l (* 1/4 (pow (+ m n) 2))) M)))) M))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (+ m n) M)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K m)))) (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 m)) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 m)) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))) M)) m) M)) 1))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (* -1 (/ (+ l (* 1/4 (pow m 2))) M))) M))))))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (* -1/4 (/ (pow m 2) M))) M))))))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ m M)))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K m))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K m) M)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* -1 (* M (+ 1 (* -1 (/ (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))))
#s(approx (- M (/ (PI) 2)) #s(hole binary64 (* -1 (* M (- (* 1/2 (/ (PI) M)) 1)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* 1/4 (/ (pow (+ m n) 2) M)) (+ m n)) M)) 1))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (+ m n) M)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* -1 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (pow (- (* 1/2 (+ m n)) M) 2)))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx l #s(hole binary64 l))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (neg l) #s(hole binary64 (* -1 l)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* -1 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))) (* 1/2 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* 1/2 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (pow (- (* 1/2 m) M) 2)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (pow (- (* 1/2 m) M) 2))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* 1/2 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* l (+ (* -1/6 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* 1/2 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (fabs (- m n)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* l (- (/ (fabs (- n m)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 l))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* l (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 l)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* l (- (/ (fabs (- n m)) l) (+ 1 (/ (pow (- (* 1/2 m) M) 2) l))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 l))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* l (+ 1 (/ (pow (- (* 1/2 m) M) 2) l)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 l))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* l (+ 1 (* -1 (/ (fabs (- m n)) l))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* -1 (* l (- (* -1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)) 1)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)) l)))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* -1 (* l (- (* -1 (/ (pow (- (* 1/2 m) M) 2) l)) 1)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (* l (- (/ (fabs (- m n)) l) 1)))))

Outputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (cos.f64 M) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))) (.f64 (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64))) K (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (cos.f64 M)) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))) K (.f64 (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64))) K (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (cos.f64 M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (cos.f64 M) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)))) K (cos.f64 M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))) (.f64 (.f64 #s(literal -1/8 binary64) (cos.f64 M)) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))) K (.f64 #s(literal -1/2 binary64) (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)))) K (cos.f64 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (neg.f64 M))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K (+ m n))) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (/ (* (+ n m) K) 2) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))
#s(approx (* K (+ m n)) #s(hole binary64 (* K (+ m n))))
#s(approx (* (+ n m) K) (*.f64 (+.f64 n m) K))
#s(approx K #s(hole binary64 K))
#s(approx K K)
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* -1/2 (* K (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M)))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M))) m) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* K (+ (* -1/2 (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M))))) (* -1/8 (* K (* (pow m 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (.f64 (cos.f64 M) (.f64 m m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 #s(literal -1/2 binary64) m) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M))))) K (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* K (+ (* -1/2 (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M))))) (* K (+ (* -1/8 (* (pow m 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* 1/48 (* K (* (pow m 3) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 m #s(literal 3 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M)))) (.f64 (.f64 (.f64 (cos.f64 M) (.f64 m m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) #s(literal -1/8 binary64))) K (.f64 (.f64 #s(literal -1/2 binary64) m) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M))))) K (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (cos (- (* (* m K) 1/2) M)) (cos.f64 M))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* m (sin (neg M))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (fma.f64 (.f64 (.f64 m K) (neg.f64 (sin.f64 M))) #s(literal -1/2 binary64) (cos.f64 M)))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (pow m 2) (cos (neg M))))) (* 1/2 (* m (sin (neg M)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (cos.f64 M) (.f64 m m)) (.f64 #s(literal -1/2 binary64) (*.f64 (neg.f64 (sin.f64 M)) m))) K (cos.f64 M)))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (pow m 2) (cos (neg M)))) (* 1/48 (* K (* (pow m 3) (sin (neg M))))))) (* 1/2 (* m (sin (neg M)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 m #s(literal 3 binary64)) (neg.f64 (sin.f64 M))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 m m)) (cos.f64 M))) K (.f64 #s(literal -1/2 binary64) (*.f64 (neg.f64 (sin.f64 M)) m))) K (cos.f64 M)))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (* (* m K) 1/2) M) (neg.f64 M))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx (- (* (* m K) 1/2) M) (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))
#s(approx (* (* m K) 1/2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (* (* m K) 1/2) (.f64 (.f64 m K) #s(literal 1/2 binary64)))
#s(approx (* m K) #s(hole binary64 (* K m)))
#s(approx (* m K) (*.f64 m K))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) (+.f64 n m)) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/8 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))) (+.f64 n m)) (.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))) K (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))) (* K (+ (* -1/8 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/48 binary64) K) (.f64 (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) (pow.f64 (+.f64 n m) #s(literal 3 binary64))))) K (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))) (+.f64 n m)))) K (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) M)))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (+.f64 n m)) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* -1/8 (* K (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (+.f64 n m)) #s(literal 1/2 binary64))) K (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))) (* K (+ (* -1/8 (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (pow (+ m n) 3)))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M))) (+.f64 n m) (.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (pow.f64 (+.f64 n m) #s(literal 3 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) #s(literal -1/8 binary64))) K)) K (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (- (* 1/2 (PI)) M)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) M))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (/ (* (+ n m) K) 2) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))
#s(approx (* (+ n m) K) #s(hole binary64 (* K (+ m n))))
#s(approx (* (+ n m) K) (*.f64 (+.f64 n m) K))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (+ m n))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (*.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (/.f64 (neg.f64 M) K)) K))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (cos (- (* (* m K) 1/2) M)) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (* (* m K) 1/2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 m)))))
#s(approx (- (* (* m K) 1/2) M) (*.f64 (fma.f64 #s(literal 1/2 binary64) m (/.f64 (neg.f64 M) K)) K))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* K (- (+ (* 1/2 (+ m n)) (* 1/2 (/ (PI) K))) (/ M K)))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (/.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M) K)) K))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (*.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) (+.f64 n m) (/.f64 M K))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 m) (/ M K))))))
#s(approx (- (* (* m K) 1/2) M) (*.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) m (/.f64 M K))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* -1 (* K (+ (* -1 (/ (- (* 1/2 (PI)) M) K)) (* -1/2 (+ m n)))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) (+.f64 n m) (neg.f64 (/.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M) K)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) K) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))) m (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) K) #s(literal -1/2 binary64) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))))))) m (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))))) m (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (.f64 (cos.f64 M) m) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (.f64 (cos.f64 M) m) (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) m (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 M) m) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))) m (.f64 (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) m (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (.f64 m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) m M) (.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (- n m))))
#s(approx (fabs (- n m)) (fabs.f64 (-.f64 n m)))
#s(approx (- n m) #s(hole binary64 n))
#s(approx (- n m) n)
#s(approx (- n m) #s(hole binary64 (+ n (* -1 m))))
#s(approx (- n m) (fma.f64 #s(literal -1 binary64) m n))
#s(approx m #s(hole binary64 m))
#s(approx m m)
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (pow (- (* 1/2 n) M) 2))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (+.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) m (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))) l))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (+.f64 (fma.f64 (fma.f64 #s(literal 1/4 binary64) m (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))) l))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (pow (- (* 1/2 n) M) 2)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (fma.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) m (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (fma.f64 (fma.f64 #s(literal 1/4 binary64) m (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (- (* 1/2 n) M)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) (-.f64 (*.f64 #s(literal 1/2 binary64) n) M))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (- (+ (* 1/2 m) (* 1/2 n)) M)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M))
#s(approx (+ n m) #s(hole binary64 n))
#s(approx (+ n m) n)
#s(approx (+ n m) #s(hole binary64 (+ m n)))
#s(approx (+ n m) (+.f64 n m))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K n)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) m) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) m) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) K))) m (cos.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) m) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))) m (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) K))) m (cos.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K n)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (/ (* (+ n m) K) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (+ (* 1/2 (* K m)) (* 1/2 (* K n)))))
#s(approx (/ (* (+ n m) K) 2) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))
#s(approx (* K (+ m n)) #s(hole binary64 (* K n)))
#s(approx (* (+ n m) K) (*.f64 n K))
#s(approx (* K (+ m n)) #s(hole binary64 (+ (* K m) (* K n))))
#s(approx (* (+ n m) K) (*.f64 (+.f64 n m) K))
#s(approx (+ m n) #s(hole binary64 n))
#s(approx (+ n m) n)
#s(approx (+ m n) #s(hole binary64 (+ m n)))
#s(approx (+ n m) (+.f64 n m))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (fma.f64 (.f64 m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) m M) (.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (cos.f64 M)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (.f64 M (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (neg.f64 (sin.f64 M))))) m (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (+ (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))) (* m (+ (* -1/2 (* K (* M (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M)))))) (+ (* -1/8 (* (pow K 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (neg.f64 (sin.f64 M))) K) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (neg.f64 (sin.f64 M))) M) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (cos.f64 M)) (.f64 (.f64 (-.f64 (.f64 (.f64 M M) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))) (cos.f64 M)))) m (.f64 (.f64 M (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))))) m (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (+ (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))) (* m (+ (* -1/2 (* K (* M (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M)))))) (+ (* -1/8 (* (pow K 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* (sin (neg M)) (- (* 1/2 (pow M 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (+ (* -1/4 M) (* 1/6 (pow M 3))))))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (neg.f64 (sin.f64 M))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (neg.f64 (sin.f64 M))) M) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (cos.f64 M)) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 M M) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))) K) #s(literal -1/2 binary64) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 M (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))) (fma.f64 (.f64 (fma.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))) (cos.f64 M) (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (neg.f64 (sin.f64 M))))))) m (.f64 (.f64 (-.f64 (.f64 (.f64 M M) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))) (cos.f64 M))))) m (.f64 (.f64 M (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))))) m (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (cos.f64 M))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow M 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* M (* m (exp (- (fabs (- n m)) (+ l (pow M 2)))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (*.f64 M m) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* m (+ (* M (exp (- (fabs (- n m)) (+ l (pow M 2))))) (* m (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) m) (-.f64 (.f64 (.f64 M M) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) M)) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* m (+ (* M (exp (- (fabs (- n m)) (+ l (pow M 2))))) (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (+ (* -1/4 M) (* 1/6 (pow M 3))))) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4)))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) m) (fma.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) M)) (.f64 (-.f64 (.f64 (.f64 M M) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) M)) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow M 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M m)) (+ l (pow M 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fma.f64 M m (fabs.f64 (-.f64 n m))) (fma.f64 M M l)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- (* -1/4 m) (* -1 M)))) (+ l (pow M 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (*.f64 #s(literal 1 binary64) M)) m (fabs.f64 (-.f64 n m))) (fma.f64 M M l)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (pow M 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (fma.f64 M M l))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* -1 (* M m)) (pow M 2)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (+.f64 (fma.f64 (neg.f64 M) m (*.f64 M M)) l))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* m (+ (* -1 M) (* 1/4 m))) (pow M 2)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (+.f64 (fma.f64 (fma.f64 #s(literal 1/4 binary64) m (neg.f64 M)) m (*.f64 M M)) l))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (pow M 2)))
#s(approx (pow (- (* 1/2 m) M) 2) (*.f64 M M))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (+ (* -1 (* M m)) (pow M 2))))
#s(approx (pow (- (* 1/2 m) M) 2) (fma.f64 (neg.f64 M) m (*.f64 M M)))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (+ (* m (+ (* -1 M) (* 1/4 m))) (pow M 2))))
#s(approx (pow (- (* 1/2 m) M) 2) (fma.f64 (fma.f64 #s(literal 1/4 binary64) m (neg.f64 M)) m (*.f64 M M)))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* -1 M)))
#s(approx (- (* 1/2 m) M) (neg.f64 M))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (- (* 1/2 m) M)))
#s(approx (- (* 1/2 m) M) (-.f64 (*.f64 #s(literal 1/2 binary64) m) M))
#s(approx (* 1/2 m) #s(hole binary64 (* 1/2 m)))
#s(approx (* 1/2 m) (*.f64 #s(literal 1/2 binary64) m))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (neg M))))) (* 1/2 (* K (sin (neg M)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (cos.f64 M) m) (.f64 #s(literal -1/2 binary64) (*.f64 (neg.f64 (sin.f64 M)) K))) m (cos.f64 M)))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (neg M)))) (* 1/48 (* (pow K 3) (* m (sin (neg M))))))) (* 1/2 (* K (sin (neg M)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 M) (.f64 K K)) #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (pow.f64 K #s(literal 3 binary64)) m) (neg.f64 (sin.f64 M))) #s(literal 1/48 binary64))) m (.f64 #s(literal -1/2 binary64) (*.f64 (neg.f64 (sin.f64 M)) K))) m (cos.f64 M)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))) m (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))) m (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 K K)) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))) m (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* 1/2 (* K (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) m) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* -1/8 (* (pow K 2) (* m (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) m) (.f64 (.f64 #s(literal 1/2 binary64) K) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)))) m (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 n K))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* m (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* -1/48 (* (pow K 3) (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) m) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)))) m (.f64 (.f64 #s(literal 1/2 binary64) K) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)))) m (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 n K))) M))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (- (+ (* 1/2 (PI)) (+ (* 1/2 (* K m)) (* 1/2 (* K n)))) M)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (/ (* (+ n m) K) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (+ (* 1/2 (* K m)) (* 1/2 (* K n)))))
#s(approx (/ (* (+ n m) K) 2) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))
#s(approx (* (+ n m) K) #s(hole binary64 (* K n)))
#s(approx (* (+ n m) K) (*.f64 n K))
#s(approx (* (+ n m) K) #s(hole binary64 (+ (* K m) (* K n))))
#s(approx (* (+ n m) K) (*.f64 (+.f64 n m) K))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (neg.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- M (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (-.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) m) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- (+ M (* -1/4 m)) (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (-.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) m M) (.f64 #s(literal 1/2 binary64) n)) m) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow (- (* 1/2 n) M) 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* m (- (* 1/2 n) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (fma.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) m (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* m (- (+ (* 1/4 m) (* 1/2 n)) M)) (pow (- (* 1/2 n) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (fma.f64 (fma.f64 #s(literal 1/4 binary64) m (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (* 1/2 n) M)))
#s(approx (- (/ (+ m n) 2) M) (-.f64 (*.f64 #s(literal 1/2 binary64) n) M))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (+ (* 1/2 m) (* 1/2 n)) M)))
#s(approx (- (/ (+ m n) 2) M) (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* 1/2 n)))
#s(approx (/ (+ m n) 2) (*.f64 #s(literal 1/2 binary64) n))
#s(approx (/ (+ m n) 2) #s(hole binary64 (+ (* 1/2 m) (* 1/2 n))))
#s(approx (/ (+ m n) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 n m)))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (- m n)))))
#s(approx (- l (fabs (- m n))) (-.f64 l (fabs.f64 (-.f64 n m))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (- m n))))
#s(approx (fabs (- n m)) (fabs.f64 (-.f64 n m)))
#s(approx (- m n) #s(hole binary64 (* -1 n)))
#s(approx (- m n) (neg.f64 n))
#s(approx (- m n) #s(hole binary64 (- m n)))
#s(approx (- m n) (-.f64 m n))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 #s(literal -1/4 binary64) (.f64 m m)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- n m)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (/.f64 M m)) (+.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l) (.f64 m m)))) (*.f64 m m)))
#s(approx (- n m) #s(hole binary64 (* -1 m)))
#s(approx (- n m) (neg.f64 m))
#s(approx (- n m) #s(hole binary64 (* m (- (/ n m) 1))))
#s(approx (- n m) (*.f64 (-.f64 (/.f64 n m) #s(literal 1 binary64)) m))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (.f64 #s(literal 1/4 binary64) (.f64 m m)))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (.f64 (+.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) m)) (*.f64 m m)))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2))))) (/ M m)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (.f64 (-.f64 (+.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l) (.f64 m m))) (/.f64 M m)) (.f64 m m)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (.f64 #s(literal 1/4 binary64) (.f64 m m)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (.f64 (+.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) m)) (*.f64 m m)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (.f64 (-.f64 (+.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) (.f64 m m))) (/.f64 M m)) (.f64 m m)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* 1/2 m)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) (*.f64 #s(literal 1/2 binary64) m))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* m (- (+ 1/2 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) (.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) m)) m))
#s(approx (+ n m) #s(hole binary64 m))
#s(approx (+ n m) m)
#s(approx (+ n m) #s(hole binary64 (* m (+ 1 (/ n m)))))
#s(approx (+ n m) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 n m)) m))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M) m)) m))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (/ (* (+ n m) K) 2) (.f64 (.f64 m K) #s(literal 1/2 binary64)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))))
#s(approx (/ (* (+ n m) K) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m))
#s(approx (* K (+ m n)) #s(hole binary64 (* K m)))
#s(approx (* (+ n m) K) (*.f64 m K))
#s(approx (* K (+ m n)) #s(hole binary64 (* m (+ K (/ (* K n) m)))))
#s(approx (* (+ n m) K) (*.f64 (fma.f64 K (/.f64 n m) K) m))
#s(approx (+ m n) #s(hole binary64 m))
#s(approx (+ n m) m)
#s(approx (+ m n) #s(hole binary64 (* m (+ 1 (/ n m)))))
#s(approx (+ n m) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 n m)) m))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (/.f64 M m)) (+.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l) (.f64 m m)))) (*.f64 m m)))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 #s(literal -1/4 binary64) (.f64 m m)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ M m) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 (-.f64 (/.f64 M m) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ (fabs (- n m)) (pow m 2)) (+ 1/4 (+ (* -1 (/ M m)) (+ (/ l (pow m 2)) (/ (pow M 2) (pow m 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (+.f64 (fma.f64 (/.f64 M m) #s(literal -1 binary64) #s(literal 1/4 binary64)) (/.f64 (fma.f64 M M l) (.f64 m m)))) (.f64 m m)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 #s(literal 1/4 binary64) (.f64 m m)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ M m))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 (fma.f64 (/.f64 M m) #s(literal -1 binary64) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (+ (* -1 (/ M m)) (+ (/ l (pow m 2)) (/ (pow M 2) (pow m 2))))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 (+.f64 (fma.f64 (/.f64 M m) #s(literal -1 binary64) #s(literal 1/4 binary64)) (/.f64 (fma.f64 M M l) (.f64 m m))) (*.f64 m m)))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (pow (- (* 1/2 m) M) 2) (.f64 #s(literal 1/4 binary64) (.f64 m m)))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ M m))))))
#s(approx (pow (- (* 1/2 m) M) 2) (.f64 (fma.f64 (/.f64 M m) #s(literal -1 binary64) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (+ (* -1 (/ M m)) (/ (pow M 2) (pow m 2)))))))
#s(approx (pow (- (* 1/2 m) M) 2) (.f64 (+.f64 (fma.f64 (/.f64 M m) (/.f64 M m) (/.f64 (neg.f64 M) m)) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* 1/2 m)))
#s(approx (- (* 1/2 m) M) (*.f64 #s(literal 1/2 binary64) m))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* m (+ 1/2 (* -1 (/ M m))))))
#s(approx (- (* 1/2 m) M) (*.f64 (fma.f64 (/.f64 M m) #s(literal -1 binary64) #s(literal 1/2 binary64)) m))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* m (+ (* -1 (/ M m)) (* 1/2 K)))))
#s(approx (- (* (* m K) 1/2) M) (*.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (neg.f64 M) m)) m))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (.f64 (.f64 m K) #s(literal 1/2 binary64)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* m (- (+ (* 1/2 K) (+ (* 1/2 (/ (PI) m)) (* 1/2 (/ (* K n) m)))) (/ M m)))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 n K))) M) m)) m))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (/ (* (+ n m) K) 2) (.f64 (.f64 m K) #s(literal 1/2 binary64)))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))))
#s(approx (/ (* (+ n m) K) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m))
#s(approx (* (+ n m) K) #s(hole binary64 (* K m)))
#s(approx (* (+ n m) K) (*.f64 m K))
#s(approx (* (+ n m) K) #s(hole binary64 (* m (+ K (/ (* K n) m)))))
#s(approx (* (+ n m) K) (*.f64 (fma.f64 K (/.f64 n m) K) m))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 m m)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (+ (* -1 (/ (pow (- (* 1/2 n) M) 2) (pow m 2))) (/ M m)) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (fma.f64 (/.f64 #s(literal -1 binary64) m) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) m) (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64)))) (*.f64 m m)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 #s(literal 1/4 binary64) (.f64 m m)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (+.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) m)) (*.f64 m m)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (- (+ 1/4 (+ (* 1/2 (/ n m)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))) (/ M m)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (-.f64 (+.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) (.f64 m m))) (/.f64 M m)) (.f64 m m)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 m)))
#s(approx (- (/ (+ m n) 2) M) (*.f64 #s(literal 1/2 binary64) m))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* m (- (+ 1/2 (* 1/2 (/ n m))) (/ M m)))))
#s(approx (- (/ (+ m n) 2) M) (.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) m)) m))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* 1/2 m)))
#s(approx (/ (+ m n) 2) (*.f64 #s(literal 1/2 binary64) m))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* m (+ 1/2 (* 1/2 (/ n m))))))
#s(approx (/ (+ m n) 2) (*.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) m))
#s(approx (- m n) #s(hole binary64 m))
#s(approx (- m n) m)
#s(approx (- m n) #s(hole binary64 (* m (+ 1 (* -1 (/ n m))))))
#s(approx (- m n) (*.f64 (fma.f64 (/.f64 n m) #s(literal -1 binary64) #s(literal 1 binary64)) m))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) l) (pow.f64 (-.f64 (.f64 (-.f64 n (neg.f64 m)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) K) (-.f64 n (neg.f64 m))) M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) l) (pow.f64 (-.f64 (.f64 (-.f64 n (neg.f64 m)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))) (cos.f64 M)))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) l) (pow.f64 (-.f64 (*.f64 (-.f64 n (neg.f64 m)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m) #s(literal 1/4 binary64)) (*.f64 m m)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (-.f64 (/.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)) m) (-.f64 (.f64 #s(literal 1/2 binary64) n) M))) m)) #s(literal 1/4 binary64)) (*.f64 m m)))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (+ n (* -1 m)))))
#s(approx (fabs (- n m)) (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)))
#s(approx (- n m) #s(hole binary64 (* -1 (* m (+ 1 (* -1 (/ n m)))))))
#s(approx (- n m) (*.f64 (neg.f64 m) (fma.f64 (/.f64 n m) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (+ l (pow (- (* 1/2 n) M) 2)) m))) m))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l) m) #s(literal -1 binary64) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M))) m) #s(literal -1 binary64) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) m) #s(literal -1 binary64) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M))) m) #s(literal -1 binary64) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* -1 (* m (- (* -1 (/ (- (* 1/2 n) M) m)) 1/2)))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) (.f64 (neg.f64 m) (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m) #s(literal 1/2 binary64))))
#s(approx (+ n m) #s(hole binary64 (* -1 (* m (- (* -1 (/ n m)) 1)))))
#s(approx (+ n m) (*.f64 (neg.f64 m) (-.f64 (/.f64 (neg.f64 n) m) #s(literal 1 binary64))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- n (* -1 m)))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) K) (-.f64 n (neg.f64 m))) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (neg.f64 m) (fma.f64 #s(literal -1/2 binary64) K (neg.f64 (/.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M) m)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))))
#s(approx (/ (* (+ n m) K) 2) (.f64 (neg.f64 m) (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 n m) K))))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))))
#s(approx (* (+ n m) K) (.f64 (neg.f64 m) (.f64 #s(literal -1 binary64) (fma.f64 K (/.f64 n m) K))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* m (- (* -1 (/ n m)) 1)))))
#s(approx (+ n m) (*.f64 (neg.f64 m) (-.f64 (/.f64 (neg.f64 n) m) #s(literal 1 binary64))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) l) (pow.f64 (-.f64 (*.f64 (-.f64 n (neg.f64 m)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m) #s(literal 1/4 binary64)) (*.f64 m m)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (-.f64 (/.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)) m) (-.f64 (.f64 #s(literal 1/2 binary64) n) M))) m)) #s(literal 1/4 binary64)) (*.f64 m m)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (+ n (* -1 m))) (+ l (pow (+ M (* -1/2 m)) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) (+.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (+ n (* -1 m))) (+ l (pow (+ M (* -1/2 m)) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (exp.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) (+.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) l))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ n (* -1 m))) (+ l (pow M 2))) m)) M) m)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) (fma.f64 M M l)) m)) M) m)) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ M (* -1 (/ (+ l (pow M 2)) m))) m))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 M M l) m) #s(literal -1 binary64) M) m) #s(literal -1 binary64) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ M (* -1 (/ (pow M 2) m))) m))))))
#s(approx (pow (- (* 1/2 m) M) 2) (.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (.f64 M M) m) #s(literal -1 binary64) M) m) #s(literal -1 binary64) #s(literal 1/4 binary64)) (*.f64 m m)))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* -1 (* m (- (/ M m) 1/2)))))
#s(approx (- (* 1/2 m) M) (*.f64 (neg.f64 m) (-.f64 (/.f64 M m) #s(literal 1/2 binary64))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (/ M m))))))
#s(approx (- (* (* m K) 1/2) M) (*.f64 (neg.f64 m) (fma.f64 #s(literal -1/2 binary64) K (/.f64 M m))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (-.f64 n (neg.f64 m)) K))) M)) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) l) (pow.f64 (-.f64 (.f64 (-.f64 n (neg.f64 m)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (-.f64 n (neg.f64 m)) K))) M)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M) m)) (* -1/2 K))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (.f64 (neg.f64 m) (fma.f64 #s(literal -1/2 binary64) K (neg.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 n K))) M) m)))))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))))
#s(approx (/ (* (+ n m) K) 2) (.f64 (neg.f64 m) (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 n m) K))))
#s(approx (* (+ n m) K) #s(hole binary64 (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))))
#s(approx (* (+ n m) K) (.f64 (neg.f64 m) (.f64 #s(literal -1 binary64) (fma.f64 K (/.f64 n m) K))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m) #s(literal 1/4 binary64)) (*.f64 m m)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 n) M) 2) m) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) m) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M))) m)) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 n) M)) (* -1 (/ (pow (- (* 1/2 n) M) 2) m))) m))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) m) #s(literal -1 binary64) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M))) m) #s(literal -1 binary64) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* m (- (* -1 (/ (- (* 1/2 n) M) m)) 1/2)))))
#s(approx (- (/ (+ m n) 2) M) (.f64 (neg.f64 m) (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m) #s(literal 1/2 binary64))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* -1 (* m (- (* -1/2 (/ n m)) 1/2)))))
#s(approx (/ (+ m n) 2) (.f64 (neg.f64 m) (-.f64 (.f64 (/.f64 n m) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (neg (+ n (* -1 m)))))))
#s(approx (- l (fabs (- m n))) (-.f64 l (fabs.f64 (fma.f64 #s(literal -1 binary64) m n))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (neg (+ n (* -1 m))))))
#s(approx (fabs (- n m)) (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)))
#s(approx (- m n) #s(hole binary64 (* -1 (* m (- (/ n m) 1)))))
#s(approx (- m n) (*.f64 (neg.f64 m) (-.f64 (/.f64 n m) #s(literal 1 binary64))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))) n (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))) n (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))) n (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (fma.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))))) n (.f64 (.f64 (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))))) n (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))) n (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (.f64 n (cos.f64 M)) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (.f64 n (cos.f64 M)) (.f64 (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 #s(literal -1/2 binary64) m M))) n (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (fma.f64 (.f64 n (cos.f64 M)) (.f64 (fma.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))) n (.f64 (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 #s(literal -1/2 binary64) m M))) n (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal -1/4 binary64))) (.f64 (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) m M) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) n M) (.f64 #s(literal 1/2 binary64) m)) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (- n m) #s(hole binary64 (- n m)))
#s(approx (- n m) (-.f64 n m))
#s(approx n #s(hole binary64 n))
#s(approx n n)
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (pow (- (* 1/2 m) M) 2))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (+.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) n (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))) l))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (+.f64 (fma.f64 (fma.f64 #s(literal 1/4 binary64) n (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))) l))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (pow (- (* 1/2 m) M) 2)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (fma.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) n (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (fma.f64 (fma.f64 #s(literal 1/4 binary64) n (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (- (* 1/2 m) M)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) (-.f64 (*.f64 #s(literal 1/2 binary64) m) M))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 (.f64 n K) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) n) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) K))) n (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) n) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))) n (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) K))) n (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal -1/4 binary64))) (.f64 (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) m M) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) n M) (.f64 #s(literal 1/2 binary64) m)) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (* (* n n) -1/4) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (* (* n n) -1/4) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
#s(approx (* n n) #s(hole binary64 (pow n 2)))
#s(approx (* n n) (*.f64 n n))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (fma.f64 #s(literal -1/2 binary64) m M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))) n (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) K) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))) n (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (fma.f64 #s(literal -1/2 binary64) m M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))) n (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) K) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) #s(literal 1/2 binary64) (fma.f64 (fma.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 K K)) #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) K) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) #s(literal 1/2 binary64) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (fma.f64 #s(literal -1/2 binary64) m M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) K) (.f64 (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (fma.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (fma.f64 #s(literal -1/2 binary64) m M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))) n (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* 1/2 (* K (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 (.f64 n K) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M))) #s(literal 1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* -1/8 (* (pow K 2) (* n (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) n) (.f64 (.f64 #s(literal 1/2 binary64) K) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)))) n (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 m K))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* n (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* -1/48 (* (pow K 3) (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) n) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)))) n (.f64 (.f64 #s(literal 1/2 binary64) K) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)))) n (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 m K))) M))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (neg.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- M (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (-.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) n) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- (+ M (* -1/4 n)) (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (-.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) n M) (.f64 #s(literal 1/2 binary64) m)) n) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow (- (* 1/2 m) M) 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* n (- (* 1/2 m) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (fma.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) n (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* n (- (+ (* 1/4 n) (* 1/2 m)) M)) (pow (- (* 1/2 m) M) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (fma.f64 (fma.f64 #s(literal 1/4 binary64) n (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (- (* 1/2 m) M)))
#s(approx (- (/ (+ m n) 2) M) (-.f64 (*.f64 #s(literal 1/2 binary64) m) M))
#s(approx (- m n) #s(hole binary64 (+ m (* -1 n))))
#s(approx (- m n) (fma.f64 #s(literal -1 binary64) n m))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- n m)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 n n)) (/.f64 M n)) (+.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (.f64 n n)))) (*.f64 n n)))
#s(approx (- n m) #s(hole binary64 (* n (+ 1 (* -1 (/ m n))))))
#s(approx (- n m) (*.f64 (fma.f64 (/.f64 m n) #s(literal -1 binary64) #s(literal 1 binary64)) n))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* 1/4 (pow n 2))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (.f64 (.f64 n n) #s(literal 1/4 binary64)))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (.f64 (+.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) n)) (*.f64 n n)))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2))))) (/ M n)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (.f64 (-.f64 (+.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (.f64 n n))) (/.f64 M n)) (.f64 n n)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* 1/4 (pow n 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (.f64 (.f64 n n) #s(literal 1/4 binary64)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (.f64 (+.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) n)) (*.f64 n n)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (.f64 (-.f64 (+.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) (.f64 n n))) (/.f64 M n)) (.f64 n n)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* 1/2 n)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) (*.f64 #s(literal 1/2 binary64) n))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* n (- (+ 1/2 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) (.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) n)) n))
#s(approx (+ n m) #s(hole binary64 (* n (+ 1 (/ m n)))))
#s(approx (+ n m) (*.f64 (+.f64 (/.f64 m n) #s(literal 1 binary64)) n))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) (/.f64 M n)) n))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))))
#s(approx (/ (* (+ n m) K) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n))
#s(approx (* K (+ m n)) #s(hole binary64 (* n (+ K (/ (* K m) n)))))
#s(approx (* (+ n m) K) (*.f64 (fma.f64 K (/.f64 m n) K) n))
#s(approx (+ m n) #s(hole binary64 (* n (+ 1 (/ m n)))))
#s(approx (+ n m) (*.f64 (+.f64 (/.f64 m n) #s(literal 1 binary64)) n))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 n n)) (/.f64 M n)) (+.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (.f64 n n)))) (*.f64 n n)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* n (- (+ (* 1/2 K) (+ (* 1/2 (/ (PI) n)) (* 1/2 (/ (* K m) n)))) (/ M n)))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 m K))) M) n)) n))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))))
#s(approx (/ (* (+ n m) K) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n))
#s(approx (* (+ n m) K) #s(hole binary64 (* n (+ K (/ (* K m) n)))))
#s(approx (* (+ n m) K) (*.f64 (fma.f64 K (/.f64 m n) K) n))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (+ (* -1 (/ (pow (- (* 1/2 m) M) 2) (pow n 2))) (/ M n)) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (fma.f64 (/.f64 #s(literal -1 binary64) n) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) n) (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64)))) (*.f64 n n)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow n 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (.f64 n n) #s(literal 1/4 binary64)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (+.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) n)) (*.f64 n n)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (- (+ 1/4 (+ (* 1/2 (/ m n)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))) (/ M n)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (-.f64 (+.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) (.f64 n n))) (/.f64 M n)) (.f64 n n)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 n)))
#s(approx (- (/ (+ m n) 2) M) (*.f64 #s(literal 1/2 binary64) n))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* n (- (+ 1/2 (* 1/2 (/ m n))) (/ M n)))))
#s(approx (- (/ (+ m n) 2) M) (.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) n)) n))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* n (+ 1/2 (* 1/2 (/ m n))))))
#s(approx (/ (+ m n) 2) (*.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) n))
#s(approx (- m n) #s(hole binary64 (* n (- (/ m n) 1))))
#s(approx (- m n) (*.f64 (-.f64 (/.f64 m n) #s(literal 1 binary64)) n))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) l) (pow.f64 (-.f64 (.f64 (-.f64 m (neg.f64 n)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) K) (-.f64 m (neg.f64 n))) M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) l) (pow.f64 (-.f64 (.f64 (-.f64 m (neg.f64 n)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))) (cos.f64 M)))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) l) (pow.f64 (-.f64 (*.f64 (-.f64 m (neg.f64 n)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n) #s(literal 1/4 binary64)) (*.f64 n n)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (-.f64 (/.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)) n) (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) n)) #s(literal 1/4 binary64)) (*.f64 n n)))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (neg (+ m (* -1 n))))))
#s(approx (fabs (- n m)) (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)))
#s(approx (- n m) #s(hole binary64 (* -1 (* n (- (/ m n) 1)))))
#s(approx (- n m) (*.f64 (neg.f64 n) (-.f64 (/.f64 m n) #s(literal 1 binary64))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (+ l (pow (- (* 1/2 m) M) 2)) n))) n))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) n) #s(literal -1 binary64) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) n) #s(literal -1 binary64) #s(literal 1/4 binary64)) (.f64 n n)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) n) #s(literal -1 binary64) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) n) #s(literal -1 binary64) #s(literal 1/4 binary64)) (.f64 n n)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* -1 (* n (- (* -1 (/ (- (* 1/2 m) M) n)) 1/2)))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) (.f64 (neg.f64 n) (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n) #s(literal 1/2 binary64))))
#s(approx (+ n m) #s(hole binary64 (* -1 (* n (- (* -1 (/ m n)) 1)))))
#s(approx (+ n m) (*.f64 (neg.f64 n) (-.f64 (/.f64 (neg.f64 m) n) #s(literal 1 binary64))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- m (* -1 n)))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) K) (-.f64 m (neg.f64 n))) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (neg.f64 n) (fma.f64 #s(literal -1/2 binary64) K (neg.f64 (/.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M) n)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))))
#s(approx (/ (* (+ n m) K) 2) (.f64 (neg.f64 n) (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 m n) K))))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))))
#s(approx (* (+ n m) K) (.f64 (neg.f64 n) (.f64 #s(literal -1 binary64) (fma.f64 K (/.f64 m n) K))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* n (- (* -1 (/ m n)) 1)))))
#s(approx (+ n m) (*.f64 (neg.f64 n) (-.f64 (/.f64 (neg.f64 m) n) #s(literal 1 binary64))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) l) (pow.f64 (-.f64 (*.f64 (-.f64 m (neg.f64 n)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n) #s(literal 1/4 binary64)) (*.f64 n n)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (-.f64 (/.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)) n) (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) n)) #s(literal 1/4 binary64)) (*.f64 n n)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (exp.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (-.f64 m (neg.f64 n)) K))) M)) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) l) (pow.f64 (-.f64 (.f64 (-.f64 m (neg.f64 n)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (-.f64 m (neg.f64 n)) K))) M)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M) n)) (* -1/2 K))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (.f64 (neg.f64 n) (fma.f64 #s(literal -1/2 binary64) K (neg.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 m K))) M) n)))))
#s(approx (/ (* (+ n m) K) 2) #s(hole binary64 (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))))
#s(approx (/ (* (+ n m) K) 2) (.f64 (neg.f64 n) (.f64 #s(literal -1/2 binary64) (fma.f64 K (/.f64 m n) K))))
#s(approx (* (+ n m) K) #s(hole binary64 (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))))
#s(approx (* (+ n m) K) (.f64 (neg.f64 n) (.f64 #s(literal -1 binary64) (fma.f64 K (/.f64 m n) K))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n) #s(literal 1/4 binary64)) (*.f64 n n)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 m) M) 2) n) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) n) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) n)) #s(literal 1/4 binary64)) (.f64 n n)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow n 2) (+ 1/4 (* -1 (/ (+ (* -1 (- (* 1/2 m) M)) (* -1 (/ (pow (- (* 1/2 m) M) 2) n))) n))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) n) #s(literal -1 binary64) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) n) #s(literal -1 binary64) #s(literal 1/4 binary64)) (.f64 n n)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* n (- (* -1 (/ (- (* 1/2 m) M) n)) 1/2)))))
#s(approx (- (/ (+ m n) 2) M) (.f64 (neg.f64 n) (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n) #s(literal 1/2 binary64))))
#s(approx (/ (+ m n) 2) #s(hole binary64 (* -1 (* n (- (* -1/2 (/ m n)) 1/2)))))
#s(approx (/ (+ m n) 2) (.f64 (neg.f64 n) (-.f64 (.f64 (/.f64 m n) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (+ m (* -1 n))))))
#s(approx (- l (fabs (- m n))) (-.f64 l (fabs.f64 (fma.f64 #s(literal -1 binary64) n m))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (+ m (* -1 n)))))
#s(approx (fabs (- n m)) (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)))
#s(approx (- m n) #s(hole binary64 (* -1 (* n (+ 1 (* -1 (/ m n)))))))
#s(approx (- m n) (*.f64 (neg.f64 n) (fma.f64 (/.f64 m n) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))) (+.f64 n m))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) #s(literal -1/2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64))))) M (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))) (+.f64 n m)))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) #s(literal -1/2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))))))) M (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))))) M (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))) (+.f64 n m)))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (fma.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) #s(literal -1/2 binary64))) M (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (+ (* M (+ (* -1/2 (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (fma.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) #s(literal -1/2 binary64)) (+.f64 n m) (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (.f64 M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) M (.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 M (+.f64 n m) (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (-.f64 M (+.f64 n m))) M (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (* 1/4 (pow (+ m n) 2)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (+.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (*.f64 (neg.f64 M) (+.f64 n m))) l))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n))))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (+.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (+.f64 n m) M) M (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))) l))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* 1/4 (pow (+ m n) 2))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (*.f64 (neg.f64 M) (+.f64 n m))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (fma.f64 (fma.f64 #s(literal -1 binary64) (+.f64 n m) M) M (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* 1/2 (+ m n))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) (*.f64 #s(literal 1/2 binary64) (+.f64 n m)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (+ (* -1 M) (* 1/2 (+ m n)))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)))
#s(approx (neg M) #s(hole binary64 (* -1 M)))
#s(approx (neg M) (neg.f64 M))
#s(approx M #s(hole binary64 M))
#s(approx M M)
#s(approx (cos M) #s(hole binary64 1))
#s(approx (cos M) #s(literal 1 binary64))
#s(approx (cos M) #s(hole binary64 (+ 1 (* -1/2 (pow M 2)))))
#s(approx (cos M) (fma.f64 (*.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2)))))
#s(approx (cos M) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 M M)) #s(literal 1/2 binary64)) (*.f64 M M) #s(literal 1 binary64)))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2)))))
#s(approx (cos M) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 M M) #s(literal 1/24 binary64)) (.f64 M M)) #s(literal 1/2 binary64)) (.f64 M M) #s(literal 1 binary64)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (* 1/2 (* K (+ m n))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) M (cos.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))) (sin.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) (+.f64 n m) (PI.f64)))) M (cos.f64 (.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) #s(literal -1/2 binary64))) M (.f64 #s(literal 1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))))) M (cos.f64 (.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K (+ m n))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K) (neg.f64 M)))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) M (.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 M (+.f64 n m) (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (-.f64 M (+.f64 n m))) M (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m)))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (.f64 m (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (+ (* m (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1)))))) (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (fma.f64 (.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))) m (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 m m) #s(literal 1/2 binary64)) #s(literal 1 binary64))))) M (fma.f64 (.f64 m (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (cos.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (+ (* M (+ (* -1/2 (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))) (+ (* -1/6 (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (+ (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (+ (* -1 m) (* 1/6 (pow m 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* (sin (* 1/2 (* K m))) (- (* 1/2 (pow m 2)) 1))))))) (+ (* m (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1))))))) (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) m) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (fma.f64 (.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))) #s(literal -1/6 binary64) (fma.f64 (.f64 (-.f64 (.f64 (.f64 m m) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 m #s(literal 3 binary64)) (neg.f64 m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))) (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))))))) M (fma.f64 (.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))) m (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 m m) #s(literal 1/2 binary64)) #s(literal 1 binary64)))))) M (fma.f64 (.f64 m (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (cos.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (*.f64 m m) l))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) m) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (*.f64 m m) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1))) (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (fma.f64 (.f64 M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))) (-.f64 (.f64 (.f64 m m) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) m)) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (*.f64 m m) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (+ (* -1 m) (* 1/6 (pow m 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1)))) (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 m #s(literal 3 binary64)) (neg.f64 m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))) M (.f64 (-.f64 (.f64 (.f64 m m) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) m)) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (*.f64 m m) l)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (*.f64 m m) l)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M m)) (+ l (* 1/4 (pow m 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fma.f64 M m (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (*.f64 m m) l)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (- (* -1 M) (* -1 m)))) (+ l (* 1/4 (pow m 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) (-.f64 M m)) M (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (* 1/4 (pow m 2)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (fma.f64 #s(literal 1/4 binary64) (*.f64 m m) l))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* -1 (* M m)) (* 1/4 (pow m 2))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (+.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (.f64 (neg.f64 M) m)) l))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* 1/4 (pow m 2)) (* M (+ M (* -1 m)))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (+.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) m M) M (.f64 #s(literal 1/4 binary64) (.f64 m m))) l))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (+ (* -1 (* M m)) (* 1/4 (pow m 2)))))
#s(approx (pow (- (* 1/2 m) M) 2) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (.f64 (neg.f64 M) m)))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (+ (* 1/4 (pow m 2)) (* M (+ M (* -1 m))))))
#s(approx (pow (- (* 1/2 m) M) 2) (fma.f64 (fma.f64 #s(literal -1 binary64) m M) M (.f64 #s(literal 1/4 binary64) (.f64 m m))))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (+ (* -1 M) (* 1/2 m))))
#s(approx (- (* 1/2 m) M) (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (* 1/2 (* K m)))))
#s(approx (cos (- (* (* m K) 1/2) M)) (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (sin (* 1/2 (* K m)))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (fma.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) M (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K m))))) (* -1 (sin (* 1/2 (* K m)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (fma.f64 (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) m (PI.f64)))) M (cos.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K m)))) (* -1/6 (* M (sin (* 1/2 (* K m))))))) (* -1 (sin (* 1/2 (* K m)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) M (.f64 #s(literal 1 binary64) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))))) M (cos.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K m)))))
#s(approx (- (* (* m K) 1/2) M) (fma.f64 (*.f64 #s(literal 1/2 binary64) K) m (neg.f64 M)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64)))) M (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))) (+ (* 1/6 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64))) (.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64) (fma.f64 (.f64 #s(literal 1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* -1 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (neg.f64 M) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* -1/2 (* M (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) M) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64)))) M (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* M (+ (* -1/2 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* 1/6 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) M) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) #s(literal -1/2 binary64))) M (cos.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64)))) M (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K)) (neg.f64 M)))
#s(approx (- M (/ (PI) 2)) #s(hole binary64 (* -1/2 (PI))))
#s(approx (- M (/ (PI) 2)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
#s(approx (- M (/ (PI) 2)) #s(hole binary64 (- M (* 1/2 (PI)))))
#s(approx (- M (/ (PI) 2)) (-.f64 M (*.f64 (PI.f64) #s(literal 1/2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow (+ m n) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (+ m n)) (* 1/4 (pow (+ m n) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (fma.f64 M (+.f64 n m) (*.f64 #s(literal -1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (- (* -1 M) (* -1 (+ m n)))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (fma.f64 (.f64 #s(literal -1 binary64) (-.f64 M (+.f64 n m))) M (.f64 #s(literal -1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* 1/4 (pow (+ m n) 2))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* -1 (* M (+ m n))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (*.f64 (neg.f64 M) (+.f64 n m))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (+ (* 1/4 (pow (+ m n) 2)) (* M (+ M (* -1 (+ m n)))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (fma.f64 (fma.f64 #s(literal -1 binary64) (+.f64 n m) M) M (*.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* 1/2 (+ m n))))
#s(approx (- (/ (+ m n) 2) M) (*.f64 #s(literal 1/2 binary64) (+.f64 n m)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (+ m n)))))
#s(approx (- (/ (+ m n) 2) M) (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (+.f64 n m) M) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- n m)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (+.f64 (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l) (.f64 M M)))) (.f64 M M)))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (pow M 2)))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (*.f64 M M))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (.f64 (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2))))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (.f64 (+.f64 (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l) (.f64 M M))) (*.f64 M M)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (pow M 2)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (*.f64 M M))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (.f64 (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 (neg.f64 (+.f64 n m)) M)) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* -1 M)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) (neg.f64 M))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* M (- (* 1/2 (/ (+ m n) M)) 1))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) (.f64 (-.f64 (.f64 (/.f64 (+.f64 n m) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))
#s(approx (cos M) #s(hole binary64 (cos M)))
#s(approx (cos M) (cos.f64 M))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 (*.f64 M M)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (+.f64 n m) M) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (+.f64 (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l) (.f64 M M)))) (.f64 M M)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (neg.f64 (*.f64 M M)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ m M) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 (-.f64 (/.f64 m M) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- n m)) (pow M 2)) (+ 1 (+ (* -1 (/ m M)) (+ (* 1/4 (/ (pow m 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (+.f64 (fma.f64 (/.f64 m M) #s(literal -1 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l) (.f64 M M)))) (*.f64 M M)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (pow M 2)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (*.f64 M M))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ m M))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 (fma.f64 (/.f64 m M) #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ m M)) (+ (* 1/4 (/ (pow m 2) (pow M 2))) (/ l (pow M 2))))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 (+.f64 (fma.f64 (/.f64 m M) #s(literal -1 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l) (.f64 M M))) (.f64 M M)))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ m M))))))
#s(approx (pow (- (* 1/2 m) M) 2) (.f64 (fma.f64 (/.f64 m M) #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ m M)) (* 1/4 (/ (pow m 2) (pow M 2))))))))
#s(approx (pow (- (* 1/2 m) M) 2) (.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (.f64 m m) M) (/.f64 (neg.f64 m) M)) #s(literal 1 binary64)) (*.f64 M M)))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* M (- (* 1/2 (/ m M)) 1))))
#s(approx (- (* 1/2 m) M) (.f64 (-.f64 (.f64 (/.f64 m M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K m) M)) 1))))
#s(approx (- (* (* m K) 1/2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 m M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (neg.f64 M))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* M (- (+ (* 1/2 (/ (PI) M)) (* 1/2 (/ (* K (+ m n)) M))) 1))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (.f64 (-.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K))) M) #s(literal 1 binary64)) M))
#s(approx (- M (/ (PI) 2)) #s(hole binary64 M))
#s(approx (- M (/ (PI) 2)) M)
#s(approx (- M (/ (PI) 2)) #s(hole binary64 (* M (+ 1 (* -1/2 (/ (PI) M))))))
#s(approx (- M (/ (PI) 2)) (*.f64 (fma.f64 (/.f64 (PI.f64) M) #s(literal -1/2 binary64) #s(literal 1 binary64)) M))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (neg.f64 (*.f64 M M)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (+.f64 n m) M) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1/4 (/ (pow (+ m n) 2) (pow M 2))) (+ 1 (* -1 (/ (+ m n) M)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (.f64 (/.f64 #s(literal -1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M)) (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1 binary64) #s(literal 1 binary64))) (*.f64 M M)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (pow M 2)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (*.f64 M M))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m n) M))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ (+ m n) M)) (* 1/4 (/ (pow (+ m n) 2) (pow M 2))))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) (/.f64 (neg.f64 (+.f64 n m)) M)) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (+ m n) 2) M) (neg.f64 M))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (+ m n) M)) 1))))
#s(approx (- (/ (+ m n) 2) M) (.f64 (-.f64 (.f64 (/.f64 (+.f64 n m) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) M)) (+.f64 n m)) M)) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1 (/ (+ l (* 1/4 (pow (+ m n) 2))) M)))) M))))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (.f64 (fma.f64 (/.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l) M) #s(literal -1 binary64) n) m) M) #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))))
#s(approx (pow (+ (* 1/2 (+ n m)) (neg M)) 2) (.f64 (fma.f64 (/.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal -1/4 binary64) n) m) M) #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (+ m n) M)))))))
#s(approx (+ (* 1/2 (+ n m)) (neg M)) (*.f64 (neg.f64 M) (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K) (neg.f64 M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (neg.f64 M) (fma.f64 (.f64 K (/.f64 (+.f64 n m) M)) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) M)) (+.f64 n m)) M)) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K m)))) (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 m)) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) m (neg.f64 M)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 m)) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))) M)) m) M)) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)) M)) m) M)) #s(literal 1 binary64)) (*.f64 M M)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (* -1 (/ (+ l (* 1/4 (pow m 2))) M))) M))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l) M) #s(literal -1 binary64) m) M) #s(literal -1 binary64) #s(literal 1 binary64)) (*.f64 M M)))
#s(approx (pow (- (* 1/2 m) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (* -1/4 (/ (pow m 2) M))) M))))))
#s(approx (pow (- (* 1/2 m) M) 2) (.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (.f64 m m) M) #s(literal -1/4 binary64) m) M) #s(literal -1 binary64) #s(literal 1 binary64)) (*.f64 M M)))
#s(approx (- (* 1/2 m) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ m M)))))))
#s(approx (- (* 1/2 m) M) (*.f64 (neg.f64 M) (fma.f64 (/.f64 m M) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K m))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (cos.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) K) m (neg.f64 M))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K m) M)))))))
#s(approx (- (* (* m K) 1/2) M) (.f64 (neg.f64 M) (fma.f64 (.f64 K (/.f64 m M)) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K)) (neg.f64 M))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) #s(hole binary64 (* -1 (* M (+ 1 (* -1 (/ (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))))
#s(approx (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K))) M) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (- M (/ (PI) 2)) #s(hole binary64 (* -1 (* M (- (* 1/2 (/ (PI) M)) 1)))))
#s(approx (- M (/ (PI) 2)) (.f64 (neg.f64 M) (-.f64 (.f64 (/.f64 (PI.f64) M) #s(literal 1/2 binary64)) #s(literal 1 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* 1/4 (/ (pow (+ m n) 2) M)) (+ m n)) M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (-.f64 (.f64 (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 1/4 binary64)) m) n) M)) #s(literal 1 binary64)) (*.f64 M M)))
#s(approx (pow (- (/ (+ m n) 2) M) 2) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (+ n (* -1/4 (/ (pow (+ m n) 2) M)))) M))))))
#s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 (fma.f64 (/.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal -1/4 binary64) n) m) M) #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (- (/ (+ m n) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (+ m n) M)))))))
#s(approx (- (/ (+ m n) 2) M) (*.f64 (neg.f64 M) (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (neg.f64 l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))) (neg.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))))) l (neg.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* -1 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (neg.f64 l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M)) (neg.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M)))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (neg.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M)))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (neg.f64 l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) l (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (pow (- (* 1/2 (+ m n)) M) 2)))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (+ l (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))
#s(approx l #s(hole binary64 l))
#s(approx l l)
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (neg.f64 l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) l (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))
#s(approx (neg l) #s(hole binary64 (* -1 l)))
#s(approx (neg l) (neg.f64 l))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (neg.f64 l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (neg.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))) l (neg.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* -1 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (neg.f64 l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))) (* 1/2 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* 1/2 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) l (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (pow (- (* 1/2 m) M) 2)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (pow (- (* 1/2 m) M) 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (neg.f64 l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* 1/2 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))) (neg.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* l (+ (* -1/6 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* 1/2 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))) #s(literal 1/2 binary64))) l (neg.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (fabs (- m n)))))
#s(approx (- l (fabs (- m n))) (neg.f64 (fabs.f64 (-.f64 n m))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 l))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* l (- (/ (fabs (- n m)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) l) (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l) #s(literal 1 binary64))) l))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 l))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) l)
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* l (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (.f64 (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l) #s(literal 1 binary64)) l))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) l) (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l) #s(literal 1 binary64))) l))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 l)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (neg.f64 l))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* l (- (/ (fabs (- n m)) l) (+ 1 (/ (pow (- (* 1/2 m) M) 2) l))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) l) (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) #s(literal 1 binary64))) l))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 l))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* l (+ 1 (/ (pow (- (* 1/2 m) M) 2) l)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) #s(literal 1 binary64)) l))
#s(approx (- l (fabs (- m n))) #s(hole binary64 l))
#s(approx (- l (fabs (- m n))) l)
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* l (+ 1 (* -1 (/ (fabs (- m n)) l))))))
#s(approx (- l (fabs (- m n))) (*.f64 (fma.f64 (/.f64 (fabs.f64 (-.f64 n m)) l) #s(literal -1 binary64) #s(literal 1 binary64)) l))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M)))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 l) (fma.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))) l) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) #s(hole binary64 (* -1 (* l (- (* -1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l)) 1)))))
#s(approx (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l) (.f64 (neg.f64 l) (-.f64 (neg.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)) #s(literal 1 binary64))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (neg.f64 l) (fma.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))) l) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (.f64 (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)) l)))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 (neg.f64 l) (fma.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))) l) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* -1 (* l (- (* -1 (/ (pow (- (* 1/2 m) M) 2) l)) 1)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 (neg.f64 l) (-.f64 (/.f64 (neg.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))) l) #s(literal 1 binary64))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (* l (- (/ (fabs (- m n)) l) 1)))))
#s(approx (- l (fabs (- m n))) (*.f64 (neg.f64 l) (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) l) #s(literal 1 binary64))))

rewrite173.0ms (2.4%)

Memory

20.3MiB live, 210.9MiB allocated; 19ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	78	665
0	132	657
1	469	657
0	3431	657

Stop Event

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

Counts

63 → 610

Calls

Call 1

Inputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
(*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))
(fabs.f64 (-.f64 n m))
(-.f64 n m)
n
m
(+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)
(pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64))
(fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M))
#s(literal 1/2 binary64)
(+.f64 n m)
(neg.f64 M)
M
#s(literal 2 binary64)
l
(cos.f64 M)
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)
(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))
(*.f64 K (+.f64 m n))
K
(+.f64 m n)
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(*.f64 n n)
#s(literal -1/4 binary64)
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
(-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))
(+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)
(pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))
(-.f64 (*.f64 #s(literal 1/2 binary64) m) M)
(*.f64 #s(literal 1/2 binary64) m)
(cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))
(-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(*.f64 m K)
(.f64 (sin.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(sin.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))
(/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))
(*.f64 (+.f64 n m) K)
(-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M)
(/.f64 (+.f64 m n) #s(literal 2 binary64))
(-.f64 l (fabs.f64 (-.f64 m n)))
(fabs.f64 (-.f64 m n))
(-.f64 m n)

Outputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (cos.f64 M) (exp.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))))))
(*.f64 (cos.f64 M) (exp.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))))
(*.f64 (exp.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 M))
(/.f64 (*.f64 (exp.f64 (fabs.f64 (-.f64 m n))) (cos.f64 M)) (exp.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(/.f64 (*.f64 (cos.f64 M) (exp.f64 (fabs.f64 (-.f64 m n)))) (exp.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(fma.f64 (cosh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 M) (*.f64 (sinh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 M)))
(fma.f64 (cos.f64 M) (cosh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (*.f64 (cos.f64 M) (sinh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))))))
(+.f64 (.f64 (cosh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 M)) (.f64 (sinh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cos.f64 M)))
(+.f64 (.f64 (cos.f64 M) (cosh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))))) (.f64 (cos.f64 M) (sinh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))))))
(/.f64 (-.f64 (.f64 (cosh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cosh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))))) (.f64 (sinh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (sinh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))))) (-.f64 (cosh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (sinh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (cosh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (sinh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (cosh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cosh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (-.f64 (.f64 (sinh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (sinh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))))) (.f64 (cosh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (sinh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (exp.f64 (fabs.f64 (-.f64 m n)))) (neg.f64 (exp.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(/.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (exp.f64 l))
(/.f64 (exp.f64 (fabs.f64 (-.f64 m n))) (exp.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(exp.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))))
(+.f64 (sinh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (cosh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))))
(+.f64 (cosh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (sinh.f64 (-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))) (.f64 l l)) (+.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l))
(/.f64 (-.f64 (pow.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))) (fma.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) (fma.f64 l l (*.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l) #s(literal 2 binary64)))) (neg.f64 (+.f64 (+.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64)) (pow.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l) (+.f64 (+.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) (pow.f64 (-.f64 m n) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l) #s(literal 2 binary64))) (+.f64 (+.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l))
(/.f64 (-.f64 (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64)) (pow.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l) #s(literal 3 binary64))) (fma.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l) (+.f64 (+.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) (pow.f64 (-.f64 m n) #s(literal 2 binary64))))
(-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))
(-.f64 (/.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (+.f64 (+.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)) (/.f64 (pow.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l) #s(literal 2 binary64)) (+.f64 (+.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)))
(-.f64 (/.f64 (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64)) (fma.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l) (+.f64 (+.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) (pow.f64 (-.f64 m n) #s(literal 2 binary64)))) (/.f64 (pow.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l) #s(literal 3 binary64)) (fma.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l) (+.f64 (+.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l) (pow.f64 (-.f64 m n) #s(literal 2 binary64)))))
(-.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) l)
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(*.f64 (sqrt.f64 (-.f64 n m)) (sqrt.f64 (-.f64 n m)))
(*.f64 (sqrt.f64 (-.f64 m n)) (sqrt.f64 (-.f64 m n)))
(pow.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 (fabs.f64 (*.f64 (+.f64 n m) (-.f64 m n))) (fabs.f64 (+.f64 n m)))
(/.f64 (fabs.f64 (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fabs.f64 (fma.f64 n (+.f64 n m) (*.f64 m m))))
(/.f64 (fabs.f64 (*.f64 (+.f64 n m) (-.f64 n m))) (fabs.f64 (+.f64 n m)))
(/.f64 (fabs.f64 (-.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fabs.f64 (fma.f64 n n (*.f64 m (+.f64 n m)))))
(sqrt.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)))
(fabs.f64 (neg.f64 (neg.f64 (-.f64 n m))))
(fabs.f64 (neg.f64 (neg.f64 (-.f64 m n))))
(fabs.f64 (neg.f64 (-.f64 n m)))
(fabs.f64 (neg.f64 (-.f64 m n)))
(fabs.f64 (-.f64 m n))
(fabs.f64 (-.f64 n m))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (*.f64 (+.f64 n m) (-.f64 m n))) (-.f64 m n))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fma.f64 n (-.f64 n m) (*.f64 m m)))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fma.f64 n n (*.f64 m (-.f64 m n))))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (*.f64 (+.f64 n m) (-.f64 n m))) (-.f64 n m))
(/.f64 (neg.f64 (-.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (neg.f64 (fma.f64 n n (*.f64 m (+.f64 n m)))))
(/.f64 (neg.f64 (*.f64 (+.f64 n m) (-.f64 n m))) (neg.f64 (+.f64 n m)))
(/.f64 (*.f64 (+.f64 n m) (-.f64 n m)) (+.f64 n m))
(/.f64 (-.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) (fma.f64 n n (*.f64 m (+.f64 n m))))
(-.f64 (/.f64 (pow.f64 n #s(literal 3 binary64)) (fma.f64 n n (.f64 m (+.f64 n m)))) (/.f64 (pow.f64 m #s(literal 3 binary64)) (fma.f64 n n (.f64 m (+.f64 n m)))))
(-.f64 (/.f64 (.f64 n n) (+.f64 n m)) (/.f64 (.f64 m m) (+.f64 n m)))
(-.f64 n m)
n
m
(/.f64 (-.f64 (*.f64 l l) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 4 binary64))) (-.f64 l (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 4 binary64)) (*.f64 l l))) (neg.f64 (-.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(/.f64 (neg.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))) (neg.f64 (fma.f64 l (-.f64 l (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 4 binary64)))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 4 binary64)) (*.f64 l l)) (-.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))
(/.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64))) (fma.f64 l l (-.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 4 binary64)) (*.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64))) (fma.f64 l (-.f64 l (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 4 binary64))))
(fma.f64 (neg.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))) l)
(fma.f64 (fabs.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))) (fabs.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))) l)
(fma.f64 (exp.f64 (log.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (log.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)))) l)
(fma.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) l)
(-.f64 (/.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 4 binary64)) (-.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)) (/.f64 (*.f64 l l) (-.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)))
(-.f64 l (*.f64 (neg.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))))
(+.f64 (/.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 6 binary64)) (fma.f64 l (-.f64 l (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 4 binary64)))) (/.f64 (pow.f64 l #s(literal 3 binary64)) (fma.f64 l (-.f64 l (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 4 binary64)))))
(+.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) l)
(+.f64 l (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)))
(*.f64 (neg.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))) (neg.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))))
(*.f64 (fabs.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))) (fabs.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))))
(*.f64 (exp.f64 (log.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)))) (exp.f64 (log.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)))))
(*.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)))
(pow.f64 (exp.f64 (log.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)))) #s(literal 2 binary64))
(pow.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 M M)) (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))) (-.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) (neg.f64 M)))
(/.f64 (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) #s(literal 1/8 binary64) (pow.f64 (neg.f64 M) #s(literal 3 binary64))) (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))) (fma.f64 (neg.f64 M) (-.f64 (neg.f64 M) (.f64 (+.f64 n m) #s(literal 1/2 binary64))) (pow.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) (-.f64 (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 M M))) (-.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) (neg.f64 M)))
(/.f64 (.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) #s(literal 1/8 binary64) (pow.f64 (neg.f64 M) #s(literal 3 binary64)))) (fma.f64 (neg.f64 M) (-.f64 (neg.f64 M) (.f64 (+.f64 n m) #s(literal 1/2 binary64))) (pow.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 M M)) (-.f64 (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 M M))) (.f64 (-.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) (neg.f64 M)) (-.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) (neg.f64 M))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 M M)) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) #s(literal 1/8 binary64) (pow.f64 (neg.f64 M) #s(literal 3 binary64)))) (.f64 (-.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) (neg.f64 M)) (fma.f64 (neg.f64 M) (-.f64 (neg.f64 M) (.f64 (+.f64 n m) #s(literal 1/2 binary64))) (pow.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) #s(literal 1/8 binary64) (pow.f64 (neg.f64 M) #s(literal 3 binary64))) (-.f64 (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 M M))) (.f64 (fma.f64 (neg.f64 M) (-.f64 (neg.f64 M) (.f64 (+.f64 n m) #s(literal 1/2 binary64))) (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) (neg.f64 M))))
(/.f64 (.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) #s(literal 1/8 binary64) (pow.f64 (neg.f64 M) #s(literal 3 binary64))) (fma.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) #s(literal 1/8 binary64) (pow.f64 (neg.f64 M) #s(literal 3 binary64)))) (.f64 (fma.f64 (neg.f64 M) (-.f64 (neg.f64 M) (.f64 (+.f64 n m) #s(literal 1/2 binary64))) (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (fma.f64 (neg.f64 M) (-.f64 (neg.f64 M) (.f64 (+.f64 n m) #s(literal 1/2 binary64))) (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(fma.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) (.f64 (neg.f64 M) (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))))
(fma.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) (.f64 (+.f64 n m) #s(literal 1/2 binary64)) (.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) (neg.f64 M)))
(fma.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) (neg.f64 M) (.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) (.f64 (+.f64 n m) #s(literal 1/2 binary64))))
(fma.f64 (neg.f64 M) (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) (.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))))
(exp.f64 (*.f64 (log.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))) #s(literal 2 binary64)))
(+.f64 (.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))) (*.f64 (neg.f64 M) (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))))
(+.f64 (.f64 (neg.f64 M) (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))) (.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))))
(+.f64 (.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) (.f64 (+.f64 n m) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) (neg.f64 M)))
(+.f64 (.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) (neg.f64 M)) (.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) (*.f64 (+.f64 n m) #s(literal 1/2 binary64))))
(+.f64 (cosh.f64 (.f64 (log.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))) #s(literal 2 binary64))))
(*.f64 (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 1/2 binary64)) (pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 1/2 binary64)))
(pow.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M)) #s(literal 1 binary64))
(/.f64 (-.f64 (.f64 M M) (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (-.f64 (neg.f64 M) (*.f64 (+.f64 n m) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 M M))) (neg.f64 (-.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) (neg.f64 M))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) #s(literal 1/8 binary64) (pow.f64 (neg.f64 M) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (neg.f64 M) (-.f64 (neg.f64 M) (.f64 (+.f64 n m) #s(literal 1/2 binary64))) (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 M M)) (-.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) (neg.f64 M)))
(/.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) #s(literal 1/8 binary64) (pow.f64 (neg.f64 M) #s(literal 3 binary64))) (fma.f64 M M (-.f64 (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) (neg.f64 M)))))
(/.f64 (fma.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) #s(literal 1/8 binary64) (pow.f64 (neg.f64 M) #s(literal 3 binary64))) (fma.f64 (neg.f64 M) (-.f64 (neg.f64 M) (.f64 (+.f64 n m) #s(literal 1/2 binary64))) (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))
(fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M))
(fma.f64 #s(literal 1/2 binary64) n (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)))
(fma.f64 n #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)))
(-.f64 (/.f64 (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) (neg.f64 M))) (/.f64 (.f64 M M) (-.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) (neg.f64 M))))
(-.f64 (neg.f64 M) (*.f64 (neg.f64 (+.f64 n m)) #s(literal 1/2 binary64)))
(-.f64 (neg.f64 M) (*.f64 #s(literal -1/2 binary64) (+.f64 n m)))
(exp.f64 (*.f64 (log.f64 (fma.f64 (+.f64 n m) #s(literal 1/2 binary64) (neg.f64 M))) #s(literal 1 binary64)))
(+.f64 (+.f64 (neg.f64 M) (.f64 #s(literal 1/2 binary64) n)) (.f64 #s(literal 1/2 binary64) m))
(+.f64 (/.f64 (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (fma.f64 (neg.f64 M) (-.f64 (neg.f64 M) (.f64 (+.f64 n m) #s(literal 1/2 binary64))) (pow.f64 (.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (neg.f64 M) #s(literal 3 binary64)) (fma.f64 (neg.f64 M) (-.f64 (neg.f64 M) (.f64 (+.f64 n m) #s(literal 1/2 binary64))) (pow.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) n) (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)))
(+.f64 (*.f64 (+.f64 n m) #s(literal 1/2 binary64)) (neg.f64 M))
(+.f64 (neg.f64 M) (*.f64 (+.f64 n m) #s(literal 1/2 binary64)))
#s(literal 1/2 binary64)
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fma.f64 n (+.f64 n m) (*.f64 m m)))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (*.f64 (+.f64 n m) (-.f64 n m))) (+.f64 n m))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (-.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fma.f64 n n (*.f64 m (+.f64 n m))))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (*.f64 (+.f64 n m) (-.f64 m n))) (+.f64 n m))
(/.f64 (neg.f64 (*.f64 (+.f64 n m) (-.f64 n m))) (neg.f64 (-.f64 n m)))
(/.f64 (neg.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (neg.f64 (fma.f64 n (-.f64 n m) (*.f64 m m))))
(/.f64 (neg.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (neg.f64 (fma.f64 n n (*.f64 m (-.f64 m n)))))
(/.f64 (neg.f64 (*.f64 (+.f64 n m) (-.f64 m n))) (neg.f64 (-.f64 m n)))
(/.f64 (*.f64 (+.f64 n m) (-.f64 m n)) (-.f64 m n))
(/.f64 (*.f64 (+.f64 n m) (-.f64 n m)) (-.f64 n m))
(/.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) (fma.f64 n (-.f64 n m) (*.f64 m m)))
(/.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) (fma.f64 n n (*.f64 m (-.f64 m n))))
(-.f64 (/.f64 (.f64 m m) (-.f64 m n)) (/.f64 (.f64 n n) (-.f64 m n)))
(-.f64 (/.f64 (.f64 n n) (-.f64 n m)) (/.f64 (.f64 m m) (-.f64 n m)))
(+.f64 (/.f64 (pow.f64 m #s(literal 3 binary64)) (fma.f64 n (-.f64 n m) (.f64 m m))) (/.f64 (pow.f64 n #s(literal 3 binary64)) (fma.f64 n (-.f64 n m) (.f64 m m))))
(+.f64 (/.f64 (pow.f64 n #s(literal 3 binary64)) (fma.f64 n n (.f64 m (-.f64 m n)))) (/.f64 (pow.f64 m #s(literal 3 binary64)) (fma.f64 n n (.f64 m (-.f64 m n)))))
(+.f64 n m)
(+.f64 m n)
(neg.f64 M)
M
#s(literal 2 binary64)
l
(fma.f64 (sin.f64 M) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 M) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 M) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M))
(cos.f64 (neg.f64 (neg.f64 M)))
(cos.f64 (neg.f64 M))
(cos.f64 M)
(+.f64 (.f64 (sin.f64 M) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 M) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(fma.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (.f64 (.f64 (sin.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))
(fma.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))))
(fma.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (.f64 (sin.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M))))
(fma.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (.f64 (cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))
(+.f64 (.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))
(+.f64 (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))))
(+.f64 (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M))) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M))))
(+.f64 (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M))) (.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)))) (-.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (fma.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (-.f64 (.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M))) (.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M))))))
(fma.f64 (sin.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M) (.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)))
(fma.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M) (.f64 (sin.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)))
(fma.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)))
(fma.f64 (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (.f64 (neg.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (.f64 (sin.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)))
(sin.f64 (+.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (neg.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (sin.f64 M)))
(-.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))))
(cos.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)))
(cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))
(+.f64 (.f64 (sin.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)))
(+.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (neg.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M))) (neg.f64 (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (neg.f64 (fma.f64 M (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M) (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M)) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64))) (fma.f64 M (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M) (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M)) (/.f64 (.f64 M M) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M)))
(-.f64 (/.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 M (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M) (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 M #s(literal 3 binary64)) (fma.f64 M (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M) (pow.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)
(*.f64 (/.f64 K #s(literal 2 binary64)) (+.f64 n m))
(*.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K)
(*.f64 (+.f64 n m) (/.f64 K #s(literal 2 binary64)))
(*.f64 K (/.f64 (+.f64 n m) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 m n)) (/.f64 K #s(literal 2 binary64))) (-.f64 m n))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) (/.f64 K #s(literal 2 binary64))) (-.f64 n m))
(/.f64 (.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) (/.f64 K #s(literal 2 binary64))) (fma.f64 n (-.f64 n m) (.f64 m m)))
(/.f64 (.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) (/.f64 K #s(literal 2 binary64))) (fma.f64 n n (.f64 m (-.f64 m n))))
(/.f64 (neg.f64 (*.f64 (neg.f64 K) (+.f64 n m))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (*.f64 (-.f64 m n) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (*.f64 (-.f64 n m) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) K) (.f64 (fma.f64 n (-.f64 n m) (*.f64 m m)) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) K) (.f64 (fma.f64 n n (*.f64 m (-.f64 m n))) #s(literal 2 binary64)))
(/.f64 (*.f64 (neg.f64 K) (+.f64 n m)) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))
(neg.f64 (/.f64 (*.f64 (neg.f64 K) (+.f64 n m)) #s(literal 2 binary64)))
(neg.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal -2 binary64)))
(fma.f64 (/.f64 m #s(literal 2 binary64)) K (*.f64 (/.f64 n #s(literal 2 binary64)) K))
(fma.f64 K (/.f64 m #s(literal 2 binary64)) (*.f64 K (/.f64 n #s(literal 2 binary64))))
(+.f64 (.f64 (/.f64 m #s(literal 2 binary64)) K) (.f64 (/.f64 n #s(literal 2 binary64)) K))
(+.f64 (.f64 K (/.f64 m #s(literal 2 binary64))) (.f64 K (/.f64 n #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 m K) #s(literal 2 binary64)) (/.f64 (.f64 n K) #s(literal 2 binary64)))
(*.f64 (+.f64 n m) K)
(*.f64 K (+.f64 n m))
(/.f64 (.f64 K (.f64 (+.f64 n m) (-.f64 m n))) (-.f64 m n))
(/.f64 (.f64 K (.f64 (+.f64 n m) (-.f64 n m))) (-.f64 n m))
(/.f64 (.f64 K (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fma.f64 n (-.f64 n m) (.f64 m m)))
(/.f64 (.f64 K (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fma.f64 n n (.f64 m (-.f64 m n))))
(/.f64 (-.f64 (.f64 (.f64 m K) (.f64 m K)) (.f64 (.f64 n K) (.f64 n K))) (-.f64 (.f64 m K) (.f64 n K)))
(/.f64 (+.f64 (pow.f64 (.f64 m K) #s(literal 3 binary64)) (pow.f64 (.f64 n K) #s(literal 3 binary64))) (fma.f64 (.f64 m K) (.f64 m K) (-.f64 (.f64 (.f64 n K) (.f64 n K)) (.f64 (.f64 m K) (.f64 n K)))))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (-.f64 m n))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m))
(/.f64 (.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) K) (fma.f64 n (-.f64 n m) (.f64 m m)))
(/.f64 (.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) K) (fma.f64 n n (.f64 m (-.f64 m n))))
(fma.f64 n K (*.f64 m K))
(fma.f64 m K (*.f64 n K))
(fma.f64 K n (*.f64 m K))
(fma.f64 K m (*.f64 n K))
(-.f64 (.f64 m K) (.f64 (neg.f64 n) K))
(-.f64 (.f64 m K) (.f64 (neg.f64 K) n))
(+.f64 (.f64 n K) (.f64 m K))
(+.f64 (.f64 m K) (.f64 n K))
K
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fma.f64 n (+.f64 n m) (*.f64 m m)))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (*.f64 (+.f64 n m) (-.f64 n m))) (+.f64 n m))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (-.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fma.f64 n n (*.f64 m (+.f64 n m))))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (*.f64 (+.f64 n m) (-.f64 m n))) (+.f64 n m))
(/.f64 (neg.f64 (*.f64 (+.f64 n m) (-.f64 n m))) (neg.f64 (-.f64 n m)))
(/.f64 (neg.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (neg.f64 (fma.f64 n (-.f64 n m) (*.f64 m m))))
(/.f64 (neg.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (neg.f64 (fma.f64 n n (*.f64 m (-.f64 m n)))))
(/.f64 (neg.f64 (*.f64 (+.f64 n m) (-.f64 m n))) (neg.f64 (-.f64 m n)))
(/.f64 (*.f64 (+.f64 n m) (-.f64 m n)) (-.f64 m n))
(/.f64 (*.f64 (+.f64 n m) (-.f64 n m)) (-.f64 n m))
(/.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) (fma.f64 n (-.f64 n m) (*.f64 m m)))
(/.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) (fma.f64 n n (*.f64 m (-.f64 m n))))
(-.f64 (/.f64 (.f64 m m) (-.f64 m n)) (/.f64 (.f64 n n) (-.f64 m n)))
(-.f64 (/.f64 (.f64 n n) (-.f64 n m)) (/.f64 (.f64 m m) (-.f64 n m)))
(+.f64 (/.f64 (pow.f64 m #s(literal 3 binary64)) (fma.f64 n (-.f64 n m) (.f64 m m))) (/.f64 (pow.f64 n #s(literal 3 binary64)) (fma.f64 n (-.f64 n m) (.f64 m m))))
(+.f64 (/.f64 (pow.f64 n #s(literal 3 binary64)) (fma.f64 n n (.f64 m (-.f64 m n)))) (/.f64 (pow.f64 m #s(literal 3 binary64)) (fma.f64 n n (.f64 m (-.f64 m n)))))
(+.f64 n m)
(+.f64 m n)
(/.f64 (-.f64 (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))) (-.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))
(/.f64 (+.f64 (pow.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(literal 3 binary64)) (pow.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(literal 3 binary64))) (fma.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (-.f64 (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))))
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
(+.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(+.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
(.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))))
(fma.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (*.f64 n n))))))
(fma.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))))
(fma.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (.f64 (sin.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M))))
(fma.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (*.f64 n n))))))
(+.f64 (.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))) (.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))))
(+.f64 (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))))
(+.f64 (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M))) (.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M))))
(+.f64 (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))) (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))))
(/.f64 (-.f64 (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))))) (-.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))))
(/.f64 (+.f64 (pow.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) #s(literal 3 binary64)) (pow.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) #s(literal 3 binary64))) (fma.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (-.f64 (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))) (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))))))
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))
(+.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))))
(+.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))
(.f64 (.f64 #s(literal -1/4 binary64) (neg.f64 n)) (neg.f64 n))
(.f64 (.f64 #s(literal -1/4 binary64) (fabs.f64 n)) (fabs.f64 n))
(.f64 (.f64 #s(literal -1/4 binary64) n) n)
(.f64 (neg.f64 n) (.f64 (neg.f64 n) #s(literal -1/4 binary64)))
(.f64 (fabs.f64 n) (.f64 (fabs.f64 n) #s(literal -1/4 binary64)))
(.f64 #s(literal -1/4 binary64) (.f64 n n))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(.f64 n (.f64 #s(literal -1/4 binary64) n))
(*.f64 (neg.f64 (neg.f64 n)) (neg.f64 (neg.f64 n)))
(*.f64 (neg.f64 (fabs.f64 n)) (neg.f64 (fabs.f64 n)))
(*.f64 (fabs.f64 (fabs.f64 n)) (fabs.f64 (fabs.f64 n)))
(*.f64 (pow.f64 n #s(literal 1 binary64)) (pow.f64 n #s(literal 1 binary64)))
(*.f64 (pow.f64 n #s(literal 1 binary64)) n)
(*.f64 (neg.f64 n) (neg.f64 n))
(*.f64 (fabs.f64 n) (fabs.f64 n))
(*.f64 n n)
(pow.f64 (neg.f64 n) #s(literal 2 binary64))
(pow.f64 (fabs.f64 n) #s(literal 2 binary64))
(pow.f64 n #s(literal 2 binary64))
(neg.f64 (*.f64 n (neg.f64 n)))
(neg.f64 (*.f64 (neg.f64 n) n))
(fabs.f64 (*.f64 n n))
(exp.f64 (*.f64 (log.f64 n) #s(literal 2 binary64)))
#s(literal -1/4 binary64)
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
(.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))
(/.f64 (.f64 (exp.f64 (fabs.f64 (-.f64 m n))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
(/.f64 (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (fabs.f64 (-.f64 m n)))) (exp.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
(fma.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (.f64 (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
(fma.f64 (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M))))
(fma.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
(fma.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (.f64 (sin.f64 M) (sin.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64))))))
(+.f64 (.f64 (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
(+.f64 (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
(+.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) (-.f64 (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
(/.f64 (+.f64 (pow.f64 (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) #s(literal 3 binary64)) (pow.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) #s(literal 3 binary64))) (fma.f64 (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (-.f64 (.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))))
(/.f64 (neg.f64 (exp.f64 (fabs.f64 (-.f64 m n)))) (neg.f64 (exp.f64 (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))
(/.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (exp.f64 l))
(/.f64 (exp.f64 (fabs.f64 (-.f64 m n))) (exp.f64 (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
(+.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))
(+.f64 (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))
(/.f64 (-.f64 (.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))) (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (.f64 l l)) (+.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))) l))
(/.f64 (-.f64 (pow.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))) (fma.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))) (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))) (fma.f64 l l (.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))) l))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) #s(literal 2 binary64)))) (neg.f64 (+.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (fabs.f64 (-.f64 m n)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64)) (pow.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (+.f64 (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (fabs.f64 (-.f64 m n))) (pow.f64 (-.f64 m n) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) #s(literal 2 binary64))) (+.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (fabs.f64 (-.f64 m n))))
(/.f64 (-.f64 (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64)) (pow.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) #s(literal 3 binary64))) (fma.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (+.f64 (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (fabs.f64 (-.f64 m n))) (pow.f64 (-.f64 m n) #s(literal 2 binary64))))
(-.f64 (-.f64 (fabs.f64 (-.f64 m n)) l) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))
(-.f64 (/.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (+.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (fabs.f64 (-.f64 m n)))) (/.f64 (pow.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) #s(literal 2 binary64)) (+.f64 (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (fabs.f64 (-.f64 m n)))))
(-.f64 (/.f64 (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64)) (fma.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (+.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (fabs.f64 (-.f64 m n))) (pow.f64 (-.f64 m n) #s(literal 2 binary64)))) (/.f64 (pow.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) #s(literal 3 binary64)) (fma.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (+.f64 (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (fabs.f64 (-.f64 m n))) (pow.f64 (-.f64 m n) #s(literal 2 binary64)))))
(-.f64 (-.f64 (fabs.f64 (-.f64 m n)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))) l)
(-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))
(/.f64 (-.f64 (.f64 l l) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 4 binary64))) (-.f64 l (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 4 binary64)) (.f64 l l))) (neg.f64 (-.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
(/.f64 (neg.f64 (+.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 6 binary64)))) (neg.f64 (fma.f64 l (-.f64 l (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 4 binary64)))))
(/.f64 (-.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 4 binary64)) (.f64 l l)) (-.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))
(/.f64 (+.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 6 binary64))) (fma.f64 l l (-.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 4 binary64)) (.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))
(/.f64 (+.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 6 binary64))) (fma.f64 l (-.f64 l (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 4 binary64))))
(fma.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) l)
(fma.f64 (fabs.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) (fabs.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) l)
(fma.f64 (exp.f64 (log.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) (exp.f64 (log.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) l)
(fma.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) (-.f64 (.f64 #s(literal 1/2 binary64) m) M) l)
(-.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 4 binary64)) (-.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)) (/.f64 (.f64 l l) (-.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
(-.f64 l (.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) (-.f64 (*.f64 #s(literal 1/2 binary64) m) M)))
(+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 6 binary64)) (fma.f64 l (-.f64 l (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 4 binary64)))) (/.f64 (pow.f64 l #s(literal 3 binary64)) (fma.f64 l (-.f64 l (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 4 binary64)))))
(+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)
(+.f64 l (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))
(.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) (neg.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M)))
(.f64 (fabs.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) (fabs.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M)))
(.f64 (exp.f64 (log.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) (exp.f64 (log.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M))))
(.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) (-.f64 (*.f64 #s(literal 1/2 binary64) m) M))
(pow.f64 (exp.f64 (log.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M))) #s(literal 2 binary64))
(pow.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))
(/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (.f64 (neg.f64 M) M)) (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) (fma.f64 #s(literal 1/2 binary64) m M))
(/.f64 (.f64 (-.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 m #s(literal 3 binary64))) (pow.f64 M #s(literal 3 binary64))) (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (*.f64 M (fma.f64 #s(literal 1/2 binary64) m M))))
(/.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (.f64 (neg.f64 M) M))) (fma.f64 #s(literal 1/2 binary64) m M))
(/.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) (-.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 m #s(literal 3 binary64))) (pow.f64 M #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (*.f64 M (fma.f64 #s(literal 1/2 binary64) m M))))
(/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (.f64 (neg.f64 M) M)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (.f64 (neg.f64 M) M))) (.f64 (fma.f64 #s(literal 1/2 binary64) m M) (fma.f64 #s(literal 1/2 binary64) m M)))
(/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (.f64 (neg.f64 M) M)) (-.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 m #s(literal 3 binary64))) (pow.f64 M #s(literal 3 binary64)))) (.f64 (fma.f64 #s(literal 1/2 binary64) m M) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (*.f64 M (fma.f64 #s(literal 1/2 binary64) m M)))))
(/.f64 (.f64 (-.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 m #s(literal 3 binary64))) (pow.f64 M #s(literal 3 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (.f64 (neg.f64 M) M))) (.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (*.f64 M (fma.f64 #s(literal 1/2 binary64) m M))) (fma.f64 #s(literal 1/2 binary64) m M)))
(/.f64 (.f64 (-.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 m #s(literal 3 binary64))) (pow.f64 M #s(literal 3 binary64))) (-.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 m #s(literal 3 binary64))) (pow.f64 M #s(literal 3 binary64)))) (.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (.f64 M (fma.f64 #s(literal 1/2 binary64) m M))) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (.f64 M (fma.f64 #s(literal 1/2 binary64) m M)))))
(exp.f64 (.f64 (log.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) #s(literal 2 binary64))))
(.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 1/2 binary64)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 1/2 binary64)))
(pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 1 binary64))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (.f64 (neg.f64 M) M))) (neg.f64 (fma.f64 #s(literal 1/2 binary64) m M)))
(/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 m #s(literal 3 binary64))) (pow.f64 M #s(literal 3 binary64)))) (neg.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (*.f64 M (fma.f64 #s(literal 1/2 binary64) m M)))))
(/.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (.f64 (neg.f64 M) M)) (fma.f64 #s(literal 1/2 binary64) m M))
(/.f64 (-.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 m #s(literal 3 binary64))) (pow.f64 M #s(literal 3 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (*.f64 M (fma.f64 #s(literal 1/2 binary64) m M))))
(-.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 m m)) (fma.f64 #s(literal 1/2 binary64) m M)) (/.f64 (*.f64 M M) (fma.f64 #s(literal 1/2 binary64) m M)))
(-.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 m #s(literal 3 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (.f64 M (fma.f64 #s(literal 1/2 binary64) m M)))) (/.f64 (pow.f64 M #s(literal 3 binary64)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (*.f64 M (fma.f64 #s(literal 1/2 binary64) m M)))))
(-.f64 (*.f64 #s(literal 1/2 binary64) m) M)
(exp.f64 (.f64 (log.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) #s(literal 1 binary64)))
(*.f64 #s(literal 1/2 binary64) m)
(*.f64 m #s(literal 1/2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M))) (.f64 (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (-.f64 (.f64 (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))))))))
(fma.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)))
(fma.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (sin.f64 M) (.f64 (cos.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)))
(fma.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M) (.f64 (sin.f64 M) (sin.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 M) (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (.f64 (sin.f64 M) (sin.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (.f64 (neg.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (sin.f64 M)))
(cos.f64 (neg.f64 (neg.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
(cos.f64 (neg.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))
(cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))
(+.f64 (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)))
(+.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 M M))) (neg.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) M)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (neg.f64 (fma.f64 M (fma.f64 (.f64 m K) #s(literal 1/2 binary64) M) (pow.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 M M)) (fma.f64 (.f64 m K) #s(literal 1/2 binary64) M))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64))) (fma.f64 M (fma.f64 (.f64 m K) #s(literal 1/2 binary64) M) (pow.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (fma.f64 (.f64 m K) #s(literal 1/2 binary64) M)) (/.f64 (.f64 M M) (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) M)))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (fma.f64 M (fma.f64 (.f64 m K) #s(literal 1/2 binary64) M) (pow.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 M #s(literal 3 binary64)) (fma.f64 M (fma.f64 (.f64 m K) #s(literal 1/2 binary64) M) (pow.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)
(.f64 (.f64 #s(literal 1/2 binary64) K) m)
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(.f64 (.f64 #s(literal 1/2 binary64) m) K)
(.f64 #s(literal 1/2 binary64) (.f64 m K))
(.f64 m (.f64 #s(literal 1/2 binary64) K))
(.f64 K (.f64 #s(literal 1/2 binary64) m))
(*.f64 m K)
(*.f64 K m)
(.f64 (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(/.f64 (.f64 (exp.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))) (exp.f64 (-.f64 l (fabs.f64 (-.f64 m n)))))
(/.f64 (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (exp.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))))) (exp.f64 (-.f64 l (fabs.f64 (-.f64 m n)))))
(fma.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (.f64 (sin.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))))
(fma.f64 (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (.f64 (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))))
(fma.f64 (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (sin.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M))))
(fma.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))))
(+.f64 (.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))))
(+.f64 (.f64 (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))) (.f64 (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))))
(+.f64 (.f64 (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M))) (.f64 (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M))))
(+.f64 (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M))) (.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)))) (-.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (fma.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (-.f64 (.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M))) (.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M))))))
(fma.f64 (sin.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M) (.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)))
(fma.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M) (.f64 (sin.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)))
(fma.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)))
(fma.f64 (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (.f64 (neg.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (.f64 (sin.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)))
(sin.f64 (+.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (neg.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (sin.f64 M)))
(-.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))))
(cos.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)))
(cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))
(+.f64 (.f64 (sin.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M)))
(+.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (neg.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (-.f64 (.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M) (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M) (/.f64 (PI.f64) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M) #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M) (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M) (-.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (neg.f64 K) (+.f64 n m)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M)) (.f64 #s(literal -2 binary64) (-.f64 (.f64 M M) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M)))
(/.f64 (-.f64 (.f64 (.f64 (neg.f64 K) (+.f64 n m)) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M) (.f64 M M))) (.f64 #s(literal -2 binary64) (-.f64 (pow.f64 M #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))))) (.f64 #s(literal -2 binary64) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M) (.f64 M M))))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 n m) K) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M)) (.f64 #s(literal 2 binary64) (-.f64 (.f64 M M) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M)))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 n m) K) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M) (.f64 M M))) (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 M #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))))) (.f64 #s(literal 2 binary64) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M) (.f64 M M))))
(/.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M)) #s(literal -2 binary64) (.f64 (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M) (neg.f64 (PI.f64)))) (.f64 (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M) #s(literal -2 binary64)))
(/.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M)) #s(literal 2 binary64) (.f64 (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M) (PI.f64))) (.f64 (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M) #s(literal 2 binary64)))
(/.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64))) #s(literal -2 binary64) (.f64 (fma.f64 M (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M) (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64))) (neg.f64 (PI.f64)))) (.f64 (fma.f64 M (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M) (pow.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64))) #s(literal -2 binary64)))
(/.f64 (fma.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64))) #s(literal 2 binary64) (.f64 (fma.f64 M (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M) (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64))) (PI.f64))) (.f64 (fma.f64 M (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K M) (pow.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) #s(literal 2 binary64))) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64))))
(fma.f64 (sqrt.f64 (PI.f64)) (/.f64 (sqrt.f64 (PI.f64)) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))
(fma.f64 (pow.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))
(-.f64 (/.f64 (pow.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) #s(literal 2 binary64)) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))
(-.f64 (/.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) #s(literal 3 binary64)) (fma.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))
(+.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M) (/.f64 (PI.f64) #s(literal 2 binary64)))
(*.f64 (/.f64 K #s(literal 2 binary64)) (+.f64 n m))
(*.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K)
(*.f64 (+.f64 n m) (/.f64 K #s(literal 2 binary64)))
(*.f64 K (/.f64 (+.f64 n m) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 m n)) (/.f64 K #s(literal 2 binary64))) (-.f64 m n))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) (/.f64 K #s(literal 2 binary64))) (-.f64 n m))
(/.f64 (.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) (/.f64 K #s(literal 2 binary64))) (fma.f64 n (-.f64 n m) (.f64 m m)))
(/.f64 (.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) (/.f64 K #s(literal 2 binary64))) (fma.f64 n n (.f64 m (-.f64 m n))))
(/.f64 (neg.f64 (*.f64 (neg.f64 K) (+.f64 n m))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (*.f64 (-.f64 m n) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (*.f64 (-.f64 n m) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) K) (.f64 (fma.f64 n (-.f64 n m) (*.f64 m m)) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) K) (.f64 (fma.f64 n n (*.f64 m (-.f64 m n))) #s(literal 2 binary64)))
(/.f64 (*.f64 (neg.f64 K) (+.f64 n m)) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))
(neg.f64 (/.f64 (*.f64 (neg.f64 K) (+.f64 n m)) #s(literal 2 binary64)))
(neg.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal -2 binary64)))
(fma.f64 (/.f64 m #s(literal 2 binary64)) K (*.f64 (/.f64 n #s(literal 2 binary64)) K))
(fma.f64 K (/.f64 m #s(literal 2 binary64)) (*.f64 K (/.f64 n #s(literal 2 binary64))))
(+.f64 (.f64 (/.f64 m #s(literal 2 binary64)) K) (.f64 (/.f64 n #s(literal 2 binary64)) K))
(+.f64 (.f64 K (/.f64 m #s(literal 2 binary64))) (.f64 K (/.f64 n #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 m K) #s(literal 2 binary64)) (/.f64 (.f64 n K) #s(literal 2 binary64)))
(*.f64 (+.f64 n m) K)
(*.f64 K (+.f64 n m))
(/.f64 (.f64 K (.f64 (+.f64 n m) (-.f64 m n))) (-.f64 m n))
(/.f64 (.f64 K (.f64 (+.f64 n m) (-.f64 n m))) (-.f64 n m))
(/.f64 (.f64 K (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fma.f64 n (-.f64 n m) (.f64 m m)))
(/.f64 (.f64 K (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fma.f64 n n (.f64 m (-.f64 m n))))
(/.f64 (-.f64 (.f64 (.f64 m K) (.f64 m K)) (.f64 (.f64 n K) (.f64 n K))) (-.f64 (.f64 m K) (.f64 n K)))
(/.f64 (+.f64 (pow.f64 (.f64 m K) #s(literal 3 binary64)) (pow.f64 (.f64 n K) #s(literal 3 binary64))) (fma.f64 (.f64 m K) (.f64 m K) (-.f64 (.f64 (.f64 n K) (.f64 n K)) (.f64 (.f64 m K) (.f64 n K)))))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (-.f64 m n))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m))
(/.f64 (.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) K) (fma.f64 n (-.f64 n m) (.f64 m m)))
(/.f64 (.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) K) (fma.f64 n n (.f64 m (-.f64 m n))))
(fma.f64 n K (*.f64 m K))
(fma.f64 m K (*.f64 n K))
(fma.f64 K n (*.f64 m K))
(fma.f64 K m (*.f64 n K))
(-.f64 (.f64 m K) (.f64 (neg.f64 n) K))
(-.f64 (.f64 m K) (.f64 (neg.f64 K) n))
(+.f64 (.f64 n K) (.f64 m K))
(+.f64 (.f64 m K) (.f64 n K))
(/.f64 (neg.f64 (-.f64 (*.f64 M M) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)))) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M)))
(/.f64 (neg.f64 (-.f64 (pow.f64 M #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M) (*.f64 M M))))
(/.f64 (-.f64 (*.f64 M M) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M))
(/.f64 (-.f64 (pow.f64 M #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M) (*.f64 M M)))
(-.f64 (/.f64 (*.f64 M M) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M)) (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M)))
(-.f64 (/.f64 (pow.f64 M #s(literal 3 binary64)) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M) (.f64 M M))) (/.f64 (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M) (.f64 M M))))
(-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))
(*.f64 (sqrt.f64 (PI.f64)) (/.f64 (sqrt.f64 (PI.f64)) #s(literal 2 binary64)))
(*.f64 (pow.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)))
(/.f64 (neg.f64 (neg.f64 (PI.f64))) #s(literal 2 binary64))
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 (PI.f64) #s(literal 2 binary64))
(neg.f64 (/.f64 (neg.f64 (PI.f64)) #s(literal 2 binary64)))
(neg.f64 (/.f64 (PI.f64) #s(literal -2 binary64)))
(PI.f64)
(*.f64 (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l)) (exp.f64 (fabs.f64 (-.f64 m n))))
(/.f64 (-.f64 (.f64 (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (.f64 (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))) (-.f64 (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))))
(/.f64 (+.f64 (pow.f64 (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) #s(literal 3 binary64)) (pow.f64 (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) #s(literal 3 binary64))) (fma.f64 (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (-.f64 (.f64 (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (.f64 (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))))))
(/.f64 (neg.f64 (exp.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))))) (neg.f64 (exp.f64 (-.f64 l (fabs.f64 (-.f64 m n))))))
(/.f64 (exp.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) (exp.f64 (-.f64 l (fabs.f64 (-.f64 m n)))))
(exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(+.f64 (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(+.f64 (cosh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))) (sinh.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(/.f64 (-.f64 (*.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l) (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l)) (pow.f64 (-.f64 m n) #s(literal 2 binary64))) (-.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l) (fabs.f64 (-.f64 m n))))
(/.f64 (+.f64 (pow.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l) #s(literal 3 binary64)) (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64))) (fma.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l) (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l) (-.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (*.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l) (fabs.f64 (-.f64 m n))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 (neg.f64 (pow.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 3 binary64))) (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) (pow.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 2 binary64))) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)))))
(/.f64 (-.f64 (neg.f64 (pow.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 3 binary64))) (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 3 binary64))) (fma.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) (pow.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64))))
(fma.f64 (sqrt.f64 (-.f64 n m)) (sqrt.f64 (-.f64 n m)) (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l))
(fma.f64 (sqrt.f64 (-.f64 m n)) (sqrt.f64 (-.f64 m n)) (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l))
(-.f64 (/.f64 (pow.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))))) (/.f64 (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 2 binary64)) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))))))
(-.f64 (/.f64 (neg.f64 (pow.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) (pow.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 3 binary64)) (fma.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) (pow.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)))))
(-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
(+.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l) (fabs.f64 (-.f64 m n)))
(+.f64 (fabs.f64 (-.f64 m n)) (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))) l))
(*.f64 (neg.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M))
(*.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (neg.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)))
(neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(*.f64 (neg.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) (neg.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)))
(*.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) (fabs.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)))
(*.f64 (exp.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M))) (exp.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M))))
(*.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M))
(pow.f64 (exp.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M))) #s(literal 2 binary64))
(pow.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M)) (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64))) (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M))) (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M))
(/.f64 (*.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M)) (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M))) (.f64 (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M)) (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (*.f64 (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64))) (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M))) (*.f64 (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64))) (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64))) (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (.f64 (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64))) (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 1/2 binary64)) (pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 1/2 binary64)))
(pow.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 1 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 M M))) (neg.f64 (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (neg.f64 (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 M M)) (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M))
(/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64))) (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) (/.f64 (*.f64 M M) (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)))
(-.f64 (/.f64 (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 M #s(literal 3 binary64)) (fma.f64 M (+.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M) (pow.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)
(exp.f64 (*.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 1 binary64)))
(+.f64 (/.f64 m #s(literal 2 binary64)) (-.f64 (/.f64 n #s(literal 2 binary64)) M))
(/.f64 (-.f64 (.f64 (/.f64 m #s(literal 2 binary64)) (/.f64 m #s(literal 2 binary64))) (.f64 (/.f64 n #s(literal 2 binary64)) (/.f64 n #s(literal 2 binary64)))) (-.f64 (/.f64 m #s(literal 2 binary64)) (/.f64 n #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (/.f64 m #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 n #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 m #s(literal 2 binary64)) (/.f64 m #s(literal 2 binary64)) (-.f64 (.f64 (/.f64 n #s(literal 2 binary64)) (/.f64 n #s(literal 2 binary64))) (.f64 (/.f64 m #s(literal 2 binary64)) (/.f64 n #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (+.f64 n m))) #s(literal 2 binary64))
(/.f64 (fma.f64 m #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) n)) #s(literal 4 binary64))
(/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (.f64 (-.f64 m n) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (.f64 (-.f64 n m) #s(literal 2 binary64)))
(/.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) (.f64 (fma.f64 n (-.f64 n m) (.f64 m m)) #s(literal 2 binary64)))
(/.f64 (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) (.f64 (fma.f64 n n (.f64 m (-.f64 m n))) #s(literal 2 binary64)))
(/.f64 (neg.f64 (+.f64 n m)) #s(literal -2 binary64))
(/.f64 (+.f64 n m) #s(literal 2 binary64))
(neg.f64 (/.f64 (neg.f64 (+.f64 n m)) #s(literal 2 binary64)))
(neg.f64 (/.f64 (+.f64 n m) #s(literal -2 binary64)))
(+.f64 (/.f64 n #s(literal 2 binary64)) (/.f64 m #s(literal 2 binary64)))
(+.f64 (/.f64 m #s(literal 2 binary64)) (/.f64 n #s(literal 2 binary64)))
(/.f64 (neg.f64 (-.f64 (*.f64 l l) (pow.f64 (-.f64 m n) #s(literal 2 binary64)))) (neg.f64 (+.f64 (fabs.f64 (-.f64 m n)) l)))
(/.f64 (neg.f64 (-.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 l l (fma.f64 (fabs.f64 (-.f64 m n)) l (pow.f64 (-.f64 m n) #s(literal 2 binary64))))))
(/.f64 (-.f64 (*.f64 l l) (pow.f64 (-.f64 m n) #s(literal 2 binary64))) (+.f64 (fabs.f64 (-.f64 m n)) l))
(/.f64 (-.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64))) (fma.f64 l l (fma.f64 (fabs.f64 (-.f64 m n)) l (pow.f64 (-.f64 m n) #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 l l) (+.f64 (fabs.f64 (-.f64 m n)) l)) (/.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (+.f64 (fabs.f64 (-.f64 m n)) l)))
(-.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (fma.f64 l l (fma.f64 (fabs.f64 (-.f64 m n)) l (pow.f64 (-.f64 m n) #s(literal 2 binary64))))) (/.f64 (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64)) (fma.f64 l l (fma.f64 (fabs.f64 (-.f64 m n)) l (pow.f64 (-.f64 m n) #s(literal 2 binary64))))))
(-.f64 l (fabs.f64 (-.f64 m n)))
(*.f64 (sqrt.f64 (-.f64 n m)) (sqrt.f64 (-.f64 n m)))
(*.f64 (sqrt.f64 (-.f64 m n)) (sqrt.f64 (-.f64 m n)))
(pow.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 (fabs.f64 (*.f64 (+.f64 n m) (-.f64 m n))) (fabs.f64 (+.f64 n m)))
(/.f64 (fabs.f64 (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fabs.f64 (fma.f64 n (+.f64 n m) (*.f64 m m))))
(/.f64 (fabs.f64 (*.f64 (+.f64 n m) (-.f64 n m))) (fabs.f64 (+.f64 n m)))
(/.f64 (fabs.f64 (-.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fabs.f64 (fma.f64 n n (*.f64 m (+.f64 n m)))))
(sqrt.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)))
(fabs.f64 (neg.f64 (neg.f64 (-.f64 n m))))
(fabs.f64 (neg.f64 (neg.f64 (-.f64 m n))))
(fabs.f64 (neg.f64 (-.f64 n m)))
(fabs.f64 (neg.f64 (-.f64 m n)))
(fabs.f64 (-.f64 m n))
(fabs.f64 (-.f64 n m))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (*.f64 (+.f64 n m) (-.f64 m n))) (-.f64 m n))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (*.f64 (+.f64 n m) (-.f64 n m))) (-.f64 n m))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fma.f64 n (-.f64 n m) (*.f64 m m)))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (+.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fma.f64 n n (*.f64 m (-.f64 m n))))
(/.f64 (neg.f64 (*.f64 (+.f64 n m) (-.f64 m n))) (neg.f64 (+.f64 n m)))
(/.f64 (neg.f64 (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (neg.f64 (fma.f64 n (+.f64 n m) (*.f64 m m))))
(/.f64 (*.f64 (+.f64 n m) (-.f64 m n)) (+.f64 n m))
(/.f64 (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) (fma.f64 n (+.f64 n m) (*.f64 m m)))
(-.f64 (/.f64 (.f64 m m) (+.f64 n m)) (/.f64 (.f64 n n) (+.f64 n m)))
(-.f64 (/.f64 (pow.f64 m #s(literal 3 binary64)) (fma.f64 n (+.f64 n m) (.f64 m m))) (/.f64 (pow.f64 n #s(literal 3 binary64)) (fma.f64 n (+.f64 n m) (.f64 m m))))
(-.f64 m n)

eval257.0ms (3.6%)

Memory: -19.5MiB live, 411.6MiB allocated; 199ms collecting garbage
Compiler: Compiled 81 741 to 6 562 computations (92% saved)

prune46.0ms (0.6%)

Memory

35.2MiB live, 180.4MiB allocated; 14ms collecting garbage

Pruning

19 alts after pruning (19 fresh and 0 done)

	Pruned	Kept	Total
New	1 308	16	1 324
Fresh	7	3	10
Picked	5	0	5
Done	0	0	0
Total	1 320	19	1 339

Accuracy

97.9%

Counts

1 339 → 19

Alt Table

Click to see full alt table

Status	Accuracy	Program
	27.1%	(.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64))))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	46.8%	(.f64 (sin.f64 (-.f64 (/.f64 (.f64 (/.f64 (*.f64 (+.f64 n m) (-.f64 n m)) (-.f64 n m)) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	26.4%	(.f64 (sin.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	27.4%	(.f64 (sin.f64 (+.f64 (neg.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	31.8%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (+.f64 (cosh.f64 (.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 2 binary64))))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	47.1%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 #s(approx (pow (- (/ (+ m n) 2) M) 2) (*.f64 M M))) (-.f64 l (fabs.f64 (-.f64 m n))))))
▶	42.9%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	30.3%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
	24.7%	(.f64 (cos.f64 (-.f64 #s(approx (/ ( (+ n m) K) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
▶	21.1%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
▶	28.9%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	42.9%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
	29.7%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	49.1%	(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
▶	32.9%	(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	8.2%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (+.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M))))
	22.7%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
	57.4%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 #s(literal -1/4 binary64) (.f64 m m)))) (cos.f64 M)))
▶	57.4%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) (cos.f64 M)))

Compiler

Compiled 1 822 to 1 196 computations (34.4% saved)

series163.0ms (2.3%)

Memory

-38.6MiB live, 306.6MiB allocated; 40ms collecting garbage

Counts

49 → 370

Calls

Call 1

Inputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) (cos.f64 M)))
(.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) (cos.f64 M))
(exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))
(neg.f64 (*.f64 M M))
(*.f64 M M)
M
(cos.f64 M)
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M))
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(*.f64 n K)
n
K
#s(literal 1/2 binary64)
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))
(.f64 (-.f64 (.f64 (*.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M)
(-.f64 (.f64 (.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(.f64 (.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64))
(*.f64 K (/.f64 (+.f64 n m) M))
(/.f64 (+.f64 n m) M)
(+.f64 n m)
m
#s(literal 1 binary64)
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)
(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))
(*.f64 K (+.f64 m n))
(+.f64 m n)
#s(literal 2 binary64)
(exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(*.f64 n n)
#s(literal -1/4 binary64)
(-.f64 l (fabs.f64 (-.f64 m n)))
(fabs.f64 (-.f64 m n))
(-.f64 m n)

Outputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/8 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))) (* K (+ (* -1/8 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* -1/8 (* K (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))) (* K (+ (* -1/8 (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (pow (+ m n) 3)))))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K (+ m n))) M)))
#s(approx (* (* n K) 1/2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (* n K) #s(hole binary64 (* K n)))
#s(approx K #s(hole binary64 K))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* -1 M)))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K (+ m n))))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 -1))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (- (* 1/2 (/ (* K (+ m n)) M)) 1)))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* 1/2 (/ (* K (+ m n)) M))))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (/ (* K (+ m n)) M)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K (+ m n))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (+ m n))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* 1/2 (/ (* K (+ m n)) M))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* K (- (* 1/2 (/ (+ m n) M)) (/ 1 K)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* -1 (* K (+ (* -1/2 (/ (+ m n) M)) (/ 1 K))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* 1/2 (* K (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* -1/8 (* (pow K 2) (* m (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* m (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* -1/48 (* (pow K 3) (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K n)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K n)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K n) M)) 1))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (+ (* 1/2 (* K m)) (* M (- (* 1/2 (/ (* K n) M)) 1)))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (- (* 1/2 (/ (* K n) M)) 1)))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (- (+ (* 1/2 (/ (* K m) M)) (* 1/2 (/ (* K n) M))) 1)))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* 1/2 (/ (* K n) M))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (+ (* 1/2 (/ (* K m) M)) (* 1/2 (/ (* K n) M)))))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (/ (* K n) M)))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (+ (/ (* K m) M) (/ (* K n) M))))
#s(approx (/ (+ n m) M) #s(hole binary64 (/ n M)))
#s(approx (/ (+ n m) M) #s(hole binary64 (+ (/ m M) (/ n M))))
#s(approx (+ n m) #s(hole binary64 n))
#s(approx (+ n m) #s(hole binary64 (+ m n)))
#s(approx m #s(hole binary64 m))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (+ (* 1/2 (* K m)) (* 1/2 (* K n)))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K n)))
#s(approx (* K (+ m n)) #s(hole binary64 (+ (* K m) (* K n))))
#s(approx (+ m n) #s(hole binary64 n))
#s(approx (+ m n) #s(hole binary64 (+ m n)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- M (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- (+ M (* -1/4 m)) (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (- m n)))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (- m n))))
#s(approx (- m n) #s(hole binary64 (* -1 n)))
#s(approx (- m n) #s(hole binary64 (- m n)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- n m)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* m (+ (* 1/2 K) (/ (* M (- (* 1/2 (/ (* K n) M)) 1)) m)))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* 1/2 (/ (* K m) M))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* m (- (+ (* 1/2 (/ K M)) (* 1/2 (/ (* K n) (* M m)))) (/ 1 m)))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* 1/2 (/ (* K m) M))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* m (+ (* 1/2 (/ K M)) (* 1/2 (/ (* K n) (* M m)))))))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (/ (* K m) M)))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (* m (+ (/ K M) (/ (* K n) (* M m))))))
#s(approx (/ (+ n m) M) #s(hole binary64 (/ m M)))
#s(approx (/ (+ n m) M) #s(hole binary64 (* m (+ (/ 1 M) (/ n (* M m))))))
#s(approx (+ n m) #s(hole binary64 m))
#s(approx (+ n m) #s(hole binary64 (* m (+ 1 (/ n m)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K m)))
#s(approx (* K (+ m n)) #s(hole binary64 (* m (+ K (/ (* K n) m)))))
#s(approx (+ m n) #s(hole binary64 m))
#s(approx (+ m n) #s(hole binary64 (* m (+ 1 (/ n m)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (+ (* -1 (/ (pow (- (* 1/2 n) M) 2) (pow m 2))) (/ M m)) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- m n) #s(hole binary64 m))
#s(approx (- m n) #s(hole binary64 (* m (+ 1 (* -1 (/ n m))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- n (* -1 m)))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (* M (- (* 1/2 (/ (* K n) M)) 1)) m)) (* -1/2 K))))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (* 1/2 (/ (* K n) M)) 1) m)) (* -1/2 (/ K M)))))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* -1 (* m (+ (* -1/2 (/ K M)) (* -1/2 (/ (* K n) (* M m))))))))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (* -1 (* m (+ (* -1 (/ K M)) (* -1 (/ (* K n) (* M m))))))))
#s(approx (/ (+ n m) M) #s(hole binary64 (* -1 (* m (- (* -1 (/ n (* M m))) (/ 1 M))))))
#s(approx (+ n m) #s(hole binary64 (* -1 (* m (- (* -1 (/ n m)) 1)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* m (- (* -1 (/ n m)) 1)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 n) M) 2) m) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (neg (+ n (* -1 m)))))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (neg (+ n (* -1 m))))))
#s(approx (- m n) #s(hole binary64 (* -1 (* m (- (/ n m) 1)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* 1/2 (* K (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* -1/8 (* (pow K 2) (* n (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* n (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* -1/48 (* (pow K 3) (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx n #s(hole binary64 n))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K m) M)) 1))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (+ (* 1/2 (* K n)) (* M (- (* 1/2 (/ (* K m) M)) 1)))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (- (* 1/2 (/ (* K m) M)) 1)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- M (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- (+ M (* -1/4 n)) (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (* (* n n) -1/4) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (* n n) #s(hole binary64 (pow n 2)))
#s(approx (- m n) #s(hole binary64 (+ m (* -1 n))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- n m)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* n (+ (* 1/2 K) (/ (* M (- (* 1/2 (/ (* K m) M)) 1)) n)))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* 1/2 (/ (* K n) M))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* n (- (+ (* 1/2 (/ K M)) (* 1/2 (/ (* K m) (* M n)))) (/ 1 n)))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* n (+ (* 1/2 (/ K M)) (* 1/2 (/ (* K m) (* M n)))))))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (* n (+ (/ K M) (/ (* K m) (* M n))))))
#s(approx (/ (+ n m) M) #s(hole binary64 (* n (+ (/ 1 M) (/ m (* M n))))))
#s(approx (+ n m) #s(hole binary64 (* n (+ 1 (/ m n)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* n (+ K (/ (* K m) n)))))
#s(approx (+ m n) #s(hole binary64 (* n (+ 1 (/ m n)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (+ (* -1 (/ (pow (- (* 1/2 m) M) 2) (pow n 2))) (/ M n)) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- m n) #s(hole binary64 (* n (- (/ m n) 1))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- m (* -1 n)))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (* M (- (* 1/2 (/ (* K m) M)) 1)) n)) (* -1/2 K))))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (* 1/2 (/ (* K m) M)) 1) n)) (* -1/2 (/ K M)))))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* -1 (* n (+ (* -1/2 (/ K M)) (* -1/2 (/ (* K m) (* M n))))))))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (* -1 (* n (+ (* -1 (/ K M)) (* -1 (/ (* K m) (* M n))))))))
#s(approx (/ (+ n m) M) #s(hole binary64 (* -1 (* n (- (* -1 (/ m (* M n))) (/ 1 M))))))
#s(approx (+ n m) #s(hole binary64 (* -1 (* n (- (* -1 (/ m n)) 1)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* n (- (* -1 (/ m n)) 1)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 m) M) 2) n) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (+ m (* -1 n))))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (+ m (* -1 n)))))
#s(approx (- m n) #s(hole binary64 (* -1 (* n (+ 1 (* -1 (/ m n)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (+ (* M (+ (* -1/2 (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (neg (* M M)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx M #s(hole binary64 M))
#s(approx (cos M) #s(hole binary64 1))
#s(approx (cos M) #s(hole binary64 (+ 1 (* -1/2 (pow M 2)))))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2)))))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))) (+ (* 1/6 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* -1 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* -1/2 (* M (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* M (+ (* -1/2 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* 1/6 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (* 1/2 (* K (+ m n))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K (+ m n))))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (/ (+ (* -1 M) (* 1/2 (* K (+ m n)))) M)))
#s(approx (/ (+ n m) M) #s(hole binary64 (/ (+ m n) M)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow (+ m n) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (+ m n)) (* 1/4 (pow (+ m n) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (- (* -1 M) (* -1 (+ m n)))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- n m)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (cos M) #s(hole binary64 (cos M)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1/4 (/ (pow (+ m n) 2) (pow M 2))) (+ 1 (* -1 (/ (+ m n) M)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* 1/4 (/ (pow (+ m n) 2) M)) (+ m n)) M)) 1))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* -1 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* 1/2 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* l (+ (* -1/6 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* 1/2 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (neg l) #s(hole binary64 (* -1 l)))
#s(approx l #s(hole binary64 l))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (fabs (- m n)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* l (- (/ (fabs (- n m)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 l))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* l (+ 1 (* -1 (/ (fabs (- m n)) l))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (* l (- (/ (fabs (- m n)) l) 1)))))

Calls

15 calls:

Time	Variable		Point	Expression
42.0ms	n	@	inf	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg (* M M)) (* M M) M (cos M) (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg l) l (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (* n K) 1/2) (* n K) n K 1/2 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (- (* (* K (/ (+ n m) M)) 1/2) 1) (* (* K (/ (+ n m) M)) 1/2) (* K (/ (+ n m) M)) (/ (+ n m) M) (+ n m) m 1 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* K (+ m n)) (+ m n) 2 (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (* (* n n) -1/4) (* n n) -1/4 (- l (fabs (- m n))) (fabs (- m n)) (- m n))
34.0ms	m	@	inf	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg (* M M)) (* M M) M (cos M) (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg l) l (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (* n K) 1/2) (* n K) n K 1/2 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (- (* (* K (/ (+ n m) M)) 1/2) 1) (* (* K (/ (+ n m) M)) 1/2) (* K (/ (+ n m) M)) (/ (+ n m) M) (+ n m) m 1 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* K (+ m n)) (+ m n) 2 (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (* (* n n) -1/4) (* n n) -1/4 (- l (fabs (- m n))) (fabs (- m n)) (- m n))
18.0ms	n	@	-inf	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg (* M M)) (* M M) M (cos M) (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg l) l (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (* n K) 1/2) (* n K) n K 1/2 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (- (* (* K (/ (+ n m) M)) 1/2) 1) (* (* K (/ (+ n m) M)) 1/2) (* K (/ (+ n m) M)) (/ (+ n m) M) (+ n m) m 1 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* K (+ m n)) (+ m n) 2 (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (* (* n n) -1/4) (* n n) -1/4 (- l (fabs (- m n))) (fabs (- m n)) (- m n))
6.0ms	K	@	0	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg (* M M)) (* M M) M (cos M) (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg l) l (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (* n K) 1/2) (* n K) n K 1/2 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (- (* (* K (/ (+ n m) M)) 1/2) 1) (* (* K (/ (+ n m) M)) 1/2) (* K (/ (+ n m) M)) (/ (+ n m) M) (+ n m) m 1 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* K (+ m n)) (+ m n) 2 (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (* (* n n) -1/4) (* n n) -1/4 (- l (fabs (- m n))) (fabs (- m n)) (- m n))
5.0ms	n	@	0	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg (* M M)) (* M M) M (cos M) (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg l) l (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (* n K) 1/2) (* n K) n K 1/2 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (- (* (* K (/ (+ n m) M)) 1/2) 1) (* (* K (/ (+ n m) M)) 1/2) (* K (/ (+ n m) M)) (/ (+ n m) M) (+ n m) m 1 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* K (+ m n)) (+ m n) 2 (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (* (* n n) -1/4) (* n n) -1/4 (- l (fabs (- m n))) (fabs (- m n)) (- m n))

simplify228.0ms (3.2%)

Memory

3.4MiB live, 378.2MiB allocated; 39ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1686	17616
1	5307	17588
0	9194	17108

Stop Event

1×	iter limit
1×	node limit

Counts

370 → 370

Calls

Call 1

Inputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/8 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))) (* K (+ (* -1/8 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* -1/8 (* K (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))) (* K (+ (* -1/8 (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (pow (+ m n) 3)))))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K (+ m n))) M)))
#s(approx (* (* n K) 1/2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (* n K) #s(hole binary64 (* K n)))
#s(approx K #s(hole binary64 K))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* -1 M)))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K (+ m n))))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 -1))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (- (* 1/2 (/ (* K (+ m n)) M)) 1)))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* 1/2 (/ (* K (+ m n)) M))))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (/ (* K (+ m n)) M)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K (+ m n))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (+ m n))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* 1/2 (/ (* K (+ m n)) M))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* K (- (* 1/2 (/ (+ m n) M)) (/ 1 K)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* -1 (* K (+ (* -1/2 (/ (+ m n) M)) (/ 1 K))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* 1/2 (* K (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* -1/8 (* (pow K 2) (* m (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* m (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* -1/48 (* (pow K 3) (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K n)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K n)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K n) M)) 1))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (+ (* 1/2 (* K m)) (* M (- (* 1/2 (/ (* K n) M)) 1)))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (- (* 1/2 (/ (* K n) M)) 1)))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (- (+ (* 1/2 (/ (* K m) M)) (* 1/2 (/ (* K n) M))) 1)))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* 1/2 (/ (* K n) M))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (+ (* 1/2 (/ (* K m) M)) (* 1/2 (/ (* K n) M)))))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (/ (* K n) M)))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (+ (/ (* K m) M) (/ (* K n) M))))
#s(approx (/ (+ n m) M) #s(hole binary64 (/ n M)))
#s(approx (/ (+ n m) M) #s(hole binary64 (+ (/ m M) (/ n M))))
#s(approx (+ n m) #s(hole binary64 n))
#s(approx (+ n m) #s(hole binary64 (+ m n)))
#s(approx m #s(hole binary64 m))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (+ (* 1/2 (* K m)) (* 1/2 (* K n)))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K n)))
#s(approx (* K (+ m n)) #s(hole binary64 (+ (* K m) (* K n))))
#s(approx (+ m n) #s(hole binary64 n))
#s(approx (+ m n) #s(hole binary64 (+ m n)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- M (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- (+ M (* -1/4 m)) (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (- m n)))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (- m n))))
#s(approx (- m n) #s(hole binary64 (* -1 n)))
#s(approx (- m n) #s(hole binary64 (- m n)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- n m)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* m (+ (* 1/2 K) (/ (* M (- (* 1/2 (/ (* K n) M)) 1)) m)))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* 1/2 (/ (* K m) M))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* m (- (+ (* 1/2 (/ K M)) (* 1/2 (/ (* K n) (* M m)))) (/ 1 m)))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* 1/2 (/ (* K m) M))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* m (+ (* 1/2 (/ K M)) (* 1/2 (/ (* K n) (* M m)))))))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (/ (* K m) M)))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (* m (+ (/ K M) (/ (* K n) (* M m))))))
#s(approx (/ (+ n m) M) #s(hole binary64 (/ m M)))
#s(approx (/ (+ n m) M) #s(hole binary64 (* m (+ (/ 1 M) (/ n (* M m))))))
#s(approx (+ n m) #s(hole binary64 m))
#s(approx (+ n m) #s(hole binary64 (* m (+ 1 (/ n m)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* K m)))
#s(approx (* K (+ m n)) #s(hole binary64 (* m (+ K (/ (* K n) m)))))
#s(approx (+ m n) #s(hole binary64 m))
#s(approx (+ m n) #s(hole binary64 (* m (+ 1 (/ n m)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (+ (* -1 (/ (pow (- (* 1/2 n) M) 2) (pow m 2))) (/ M m)) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- m n) #s(hole binary64 m))
#s(approx (- m n) #s(hole binary64 (* m (+ 1 (* -1 (/ n m))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- n (* -1 m)))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (* M (- (* 1/2 (/ (* K n) M)) 1)) m)) (* -1/2 K))))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (* 1/2 (/ (* K n) M)) 1) m)) (* -1/2 (/ K M)))))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* -1 (* m (+ (* -1/2 (/ K M)) (* -1/2 (/ (* K n) (* M m))))))))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (* -1 (* m (+ (* -1 (/ K M)) (* -1 (/ (* K n) (* M m))))))))
#s(approx (/ (+ n m) M) #s(hole binary64 (* -1 (* m (- (* -1 (/ n (* M m))) (/ 1 M))))))
#s(approx (+ n m) #s(hole binary64 (* -1 (* m (- (* -1 (/ n m)) 1)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* m (- (* -1 (/ n m)) 1)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 n) M) 2) m) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (neg (+ n (* -1 m)))))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (neg (+ n (* -1 m))))))
#s(approx (- m n) #s(hole binary64 (* -1 (* m (- (/ n m) 1)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* 1/2 (* K (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* -1/8 (* (pow K 2) (* n (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* n (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* -1/48 (* (pow K 3) (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx n #s(hole binary64 n))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K m) M)) 1))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (+ (* 1/2 (* K n)) (* M (- (* 1/2 (/ (* K m) M)) 1)))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (- (* 1/2 (/ (* K m) M)) 1)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- M (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- (+ M (* -1/4 n)) (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (* (* n n) -1/4) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (* n n) #s(hole binary64 (pow n 2)))
#s(approx (- m n) #s(hole binary64 (+ m (* -1 n))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- n m)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* n (+ (* 1/2 K) (/ (* M (- (* 1/2 (/ (* K m) M)) 1)) n)))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* 1/2 (/ (* K n) M))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* n (- (+ (* 1/2 (/ K M)) (* 1/2 (/ (* K m) (* M n)))) (/ 1 n)))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* n (+ (* 1/2 (/ K M)) (* 1/2 (/ (* K m) (* M n)))))))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (* n (+ (/ K M) (/ (* K m) (* M n))))))
#s(approx (/ (+ n m) M) #s(hole binary64 (* n (+ (/ 1 M) (/ m (* M n))))))
#s(approx (+ n m) #s(hole binary64 (* n (+ 1 (/ m n)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* n (+ K (/ (* K m) n)))))
#s(approx (+ m n) #s(hole binary64 (* n (+ 1 (/ m n)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (+ (* -1 (/ (pow (- (* 1/2 m) M) 2) (pow n 2))) (/ M n)) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- m n) #s(hole binary64 (* n (- (/ m n) 1))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- m (* -1 n)))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (* M (- (* 1/2 (/ (* K m) M)) 1)) n)) (* -1/2 K))))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (* 1/2 (/ (* K m) M)) 1) n)) (* -1/2 (/ K M)))))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* -1 (* n (+ (* -1/2 (/ K M)) (* -1/2 (/ (* K m) (* M n))))))))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (* -1 (* n (+ (* -1 (/ K M)) (* -1 (/ (* K m) (* M n))))))))
#s(approx (/ (+ n m) M) #s(hole binary64 (* -1 (* n (- (* -1 (/ m (* M n))) (/ 1 M))))))
#s(approx (+ n m) #s(hole binary64 (* -1 (* n (- (* -1 (/ m n)) 1)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* n (- (* -1 (/ m n)) 1)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 m) M) 2) n) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (+ m (* -1 n))))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (+ m (* -1 n)))))
#s(approx (- m n) #s(hole binary64 (* -1 (* n (+ 1 (* -1 (/ m n)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (+ (* M (+ (* -1/2 (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (neg (* M M)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx M #s(hole binary64 M))
#s(approx (cos M) #s(hole binary64 1))
#s(approx (cos M) #s(hole binary64 (+ 1 (* -1/2 (pow M 2)))))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2)))))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))) (+ (* 1/6 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* -1 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* -1/2 (* M (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* M (+ (* -1/2 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* 1/6 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (* 1/2 (* K (+ m n))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K (+ m n))))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (/ (+ (* -1 M) (* 1/2 (* K (+ m n)))) M)))
#s(approx (/ (+ n m) M) #s(hole binary64 (/ (+ m n) M)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow (+ m n) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (+ m n)) (* 1/4 (pow (+ m n) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (- (* -1 M) (* -1 (+ m n)))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- n m)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (cos M) #s(hole binary64 (cos M)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1/4 (/ (pow (+ m n) 2) (pow M 2))) (+ 1 (* -1 (/ (+ m n) M)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* 1/4 (/ (pow (+ m n) 2) M)) (+ m n)) M)) 1))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* -1 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* 1/2 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* l (+ (* -1/6 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* 1/2 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (neg l) #s(hole binary64 (* -1 l)))
#s(approx l #s(hole binary64 l))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (fabs (- m n)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* l (- (/ (fabs (- n m)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 l))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* l (+ 1 (* -1 (/ (fabs (- m n)) l))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (* l (- (/ (fabs (- m n)) l) 1)))))

Outputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (cos.f64 M) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))) (.f64 (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64))) K (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (cos.f64 M)) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))) K (.f64 (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64))) K (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) (+.f64 n m)) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/8 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))) (+.f64 n m)) (.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))) K (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))) (* K (+ (* -1/8 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/48 binary64) K) (.f64 (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) (pow.f64 (+.f64 n m) #s(literal 3 binary64))))) K (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))) (+.f64 n m)))) K (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) M)))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (+.f64 n m)) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* -1/8 (* K (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (+.f64 n m)) #s(literal 1/2 binary64))) K (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))) (* K (+ (* -1/8 (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (pow (+ m n) 3)))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M))) (+.f64 n m) (.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (pow.f64 (+.f64 n m) #s(literal 3 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) #s(literal -1/8 binary64))) K)) K (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (cos.f64 M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (cos.f64 M) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)))) K (cos.f64 M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (cos.f64 M)) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K (.f64 #s(literal -1/2 binary64) (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)))) K (cos.f64 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (neg.f64 M))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K (+ m n))) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))
#s(approx (* (* n K) 1/2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (* (* n K) 1/2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
#s(approx (* n K) #s(hole binary64 (* K n)))
#s(approx (* n K) (*.f64 n K))
#s(approx K #s(hole binary64 K))
#s(approx K K)
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* -1 M)))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (neg.f64 M))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K (+ m n))))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K) (neg.f64 M)))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 -1))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(literal -1 binary64))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (- (* 1/2 (/ (* K (+ m n)) M)) 1)))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) (-.f64 (.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* 1/2 (/ (* K (+ m n)) M))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) (.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal 1/2 binary64)))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (/ (* K (+ m n)) M)))
#s(approx (* K (/ (+ n m) M)) (/.f64 (*.f64 (+.f64 n m) K) M))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (/ (* K (+ m n)) 2) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))
#s(approx (* K (+ m n)) #s(hole binary64 (* K (+ m n))))
#s(approx (* K (+ m n)) (*.f64 (+.f64 n m) K))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (+ m n))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (*.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (/.f64 (neg.f64 M) K)) K))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (*.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (/.f64 (neg.f64 M) K)) K))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* 1/2 (/ (* K (+ m n)) M))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) (.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal 1/2 binary64)))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* K (- (* 1/2 (/ (+ m n) M)) (/ 1 K)))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) (.f64 (-.f64 (.f64 (/.f64 (+.f64 n m) M) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) K)) K))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (*.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) (+.f64 n m) (/.f64 M K))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (*.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) (+.f64 n m) (/.f64 M K))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* -1 (* K (+ (* -1/2 (/ (+ m n) M)) (/ 1 K))))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) (*.f64 (neg.f64 K) (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) K))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) K) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))) m (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) K) #s(literal -1/2 binary64) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))))))) m (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))))) m (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (.f64 m (cos.f64 M)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (.f64 m (cos.f64 M)) (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) m (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (fma.f64 (.f64 m (cos.f64 M)) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))) m (.f64 (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) m (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (.f64 m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) m M) (.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))) m (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))) m (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 K K)) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))) m (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* 1/2 (* K (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) m) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* -1/8 (* (pow K 2) (* m (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) m) (.f64 (.f64 #s(literal 1/2 binary64) K) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)))) m (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 n K))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* m (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* -1/48 (* (pow K 3) (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) m) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)))) m (.f64 (.f64 #s(literal 1/2 binary64) K) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)))) m (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 n K))) M))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (fma.f64 (.f64 m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) m M) (.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K n)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) m) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) m) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))) m (cos.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) m) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))) m (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))) m (cos.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K n)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K n) M)) 1))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (.f64 (-.f64 (.f64 (/.f64 (*.f64 n K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (+ (* 1/2 (* K m)) (* M (- (* 1/2 (/ (* K n) M)) 1)))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (fma.f64 (-.f64 (.f64 (/.f64 (.f64 n K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M (.f64 (.f64 m K) #s(literal 1/2 binary64))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (- (* 1/2 (/ (* K n) M)) 1)))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) (-.f64 (.f64 (/.f64 (.f64 n K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (- (+ (* 1/2 (/ (* K m) M)) (* 1/2 (/ (* K n) M))) 1)))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) (-.f64 (.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* 1/2 (/ (* K n) M))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) (.f64 (/.f64 (.f64 n K) M) #s(literal 1/2 binary64)))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (+ (* 1/2 (/ (* K m) M)) (* 1/2 (/ (* K n) M)))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) (.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal 1/2 binary64)))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (/ (* K n) M)))
#s(approx (* K (/ (+ n m) M)) (/.f64 (*.f64 n K) M))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (+ (/ (* K m) M) (/ (* K n) M))))
#s(approx (* K (/ (+ n m) M)) (/.f64 (*.f64 (+.f64 n m) K) M))
#s(approx (/ (+ n m) M) #s(hole binary64 (/ n M)))
#s(approx (/ (+ n m) M) (/.f64 n M))
#s(approx (/ (+ n m) M) #s(hole binary64 (+ (/ m M) (/ n M))))
#s(approx (/ (+ n m) M) (/.f64 (+.f64 n m) M))
#s(approx (+ n m) #s(hole binary64 n))
#s(approx (+ n m) n)
#s(approx (+ n m) #s(hole binary64 (+ m n)))
#s(approx (+ n m) (+.f64 n m))
#s(approx m #s(hole binary64 m))
#s(approx m m)
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (+ (* 1/2 (* K m)) (* 1/2 (* K n)))))
#s(approx (/ (* K (+ m n)) 2) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))
#s(approx (* K (+ m n)) #s(hole binary64 (* K n)))
#s(approx (* K (+ m n)) (*.f64 n K))
#s(approx (* K (+ m n)) #s(hole binary64 (+ (* K m) (* K n))))
#s(approx (* K (+ m n)) (*.f64 (+.f64 n m) K))
#s(approx (+ m n) #s(hole binary64 n))
#s(approx (+ n m) n)
#s(approx (+ m n) #s(hole binary64 (+ m n)))
#s(approx (+ n m) (+.f64 n m))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (neg.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- M (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (-.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) m) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- (+ M (* -1/4 m)) (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (fma.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) m M) (.f64 #s(literal 1/2 binary64) n)) m (neg.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (- m n)))))
#s(approx (- l (fabs (- m n))) (-.f64 l (fabs.f64 (-.f64 n m))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (- m n))))
#s(approx (fabs (- m n)) (fabs.f64 (-.f64 n m)))
#s(approx (- m n) #s(hole binary64 (* -1 n)))
#s(approx (- m n) (neg.f64 n))
#s(approx (- m n) #s(hole binary64 (- m n)))
#s(approx (- m n) (-.f64 m n))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (.f64 m m) #s(literal -1/4 binary64)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- n m)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (/.f64 M m)) (+.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l) (.f64 m m)))) (*.f64 m m)))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 m m) #s(literal -1/4 binary64)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (/.f64 M m)) (+.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l) (.f64 m m)))) (*.f64 m m)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M) m)) m))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* m (+ (* 1/2 K) (/ (* M (- (* 1/2 (/ (* K n) M)) 1)) m)))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (.f64 (-.f64 (.f64 (/.f64 (.f64 n K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M) m)) m))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* 1/2 (/ (* K m) M))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) (.f64 (/.f64 (.f64 m K) M) #s(literal 1/2 binary64)))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* m (- (+ (* 1/2 (/ K M)) (* 1/2 (/ (* K n) (* M m)))) (/ 1 m)))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 K m) (/.f64 n M) (/.f64 K M))) (/.f64 #s(literal 1 binary64) m)) m))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* 1/2 (/ (* K m) M))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) (.f64 (/.f64 (.f64 m K) M) #s(literal 1/2 binary64)))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* m (+ (* 1/2 (/ K M)) (* 1/2 (/ (* K n) (* M m)))))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 K m) (/.f64 n M) (/.f64 K M))) m))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (/ (* K m) M)))
#s(approx (* K (/ (+ n m) M)) (/.f64 (*.f64 m K) M))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (* m (+ (/ K M) (/ (* K n) (* M m))))))
#s(approx (* K (/ (+ n m) M)) (*.f64 (fma.f64 (/.f64 K m) (/.f64 n M) (/.f64 K M)) m))
#s(approx (/ (+ n m) M) #s(hole binary64 (/ m M)))
#s(approx (/ (+ n m) M) (/.f64 m M))
#s(approx (/ (+ n m) M) #s(hole binary64 (* m (+ (/ 1 M) (/ n (* M m))))))
#s(approx (/ (+ n m) M) (*.f64 (+.f64 (/.f64 (/.f64 n M) m) (/.f64 #s(literal 1 binary64) M)) m))
#s(approx (+ n m) #s(hole binary64 m))
#s(approx (+ n m) m)
#s(approx (+ n m) #s(hole binary64 (* m (+ 1 (/ n m)))))
#s(approx (+ n m) (*.f64 (+.f64 (/.f64 n m) #s(literal 1 binary64)) m))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 m K) #s(literal 1/2 binary64)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m))
#s(approx (* K (+ m n)) #s(hole binary64 (* K m)))
#s(approx (* K (+ m n)) (*.f64 m K))
#s(approx (* K (+ m n)) #s(hole binary64 (* m (+ K (/ (* K n) m)))))
#s(approx (* K (+ m n)) (*.f64 (fma.f64 K (/.f64 n m) K) m))
#s(approx (+ m n) #s(hole binary64 m))
#s(approx (+ n m) m)
#s(approx (+ m n) #s(hole binary64 (* m (+ 1 (/ n m)))))
#s(approx (+ n m) (*.f64 (+.f64 (/.f64 n m) #s(literal 1 binary64)) m))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 m m) #s(literal -1/4 binary64)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (+ (* -1 (/ (pow (- (* 1/2 n) M) 2) (pow m 2))) (/ M m)) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (fma.f64 (/.f64 #s(literal -1 binary64) m) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) m) (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64)))) (*.f64 m m)))
#s(approx (- m n) #s(hole binary64 m))
#s(approx (- m n) m)
#s(approx (- m n) #s(hole binary64 (* m (+ 1 (* -1 (/ n m))))))
#s(approx (- m n) (*.f64 (fma.f64 (/.f64 n m) #s(literal -1 binary64) #s(literal 1 binary64)) m))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) l) (pow.f64 (-.f64 (.f64 (-.f64 n (neg.f64 m)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) K) (-.f64 n (neg.f64 m))) M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) l) (pow.f64 (-.f64 (.f64 (-.f64 n (neg.f64 m)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))) (cos.f64 M)))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) l) (pow.f64 (-.f64 (*.f64 (-.f64 n (neg.f64 m)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m) #s(literal 1/4 binary64)) (*.f64 m m)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)) (neg.f64 m)) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (-.f64 n (neg.f64 m)) K))) M)) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) l) (pow.f64 (-.f64 (.f64 (-.f64 n (neg.f64 m)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (-.f64 n (neg.f64 m)) K))) M)))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) l) (pow.f64 (-.f64 (*.f64 (-.f64 n (neg.f64 m)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m) #s(literal 1/4 binary64)) (*.f64 m m)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)) (neg.f64 m)) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- n (* -1 m)))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) K) (-.f64 n (neg.f64 m))) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (neg.f64 m) (fma.f64 #s(literal -1/2 binary64) K (/.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M) (neg.f64 m)))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (* M (- (* 1/2 (/ (* K n) M)) 1)) m)) (* -1/2 K))))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (.f64 (neg.f64 m) (fma.f64 #s(literal -1/2 binary64) K (.f64 (neg.f64 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 n K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) m)))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (* 1/2 (/ (* K n) M)) 1) m)) (* -1/2 (/ K M)))))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) (.f64 (neg.f64 m) (fma.f64 (/.f64 K M) #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (*.f64 n K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (neg.f64 m)))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* -1 (* m (+ (* -1/2 (/ K M)) (* -1/2 (/ (* K n) (* M m))))))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 K m) (/.f64 n M) (/.f64 K M))) m))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (* -1 (* m (+ (* -1 (/ K M)) (* -1 (/ (* K n) (* M m))))))))
#s(approx (* K (/ (+ n m) M)) (*.f64 (neg.f64 m) (neg.f64 (fma.f64 (/.f64 K m) (/.f64 n M) (/.f64 K M)))))
#s(approx (/ (+ n m) M) #s(hole binary64 (* -1 (* m (- (* -1 (/ n (* M m))) (/ 1 M))))))
#s(approx (/ (+ n m) M) (.f64 (neg.f64 m) (-.f64 (/.f64 (neg.f64 n) (.f64 M m)) (/.f64 #s(literal 1 binary64) M))))
#s(approx (+ n m) #s(hole binary64 (* -1 (* m (- (* -1 (/ n m)) 1)))))
#s(approx (+ n m) (*.f64 (neg.f64 m) (-.f64 (/.f64 (neg.f64 n) m) #s(literal 1 binary64))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 n m) K)) m))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* m (+ (* -1 K) (* -1 (/ (* K n) m)))))))
#s(approx (* K (+ m n)) (*.f64 (neg.f64 m) (neg.f64 (fma.f64 K (/.f64 n m) K))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* m (- (* -1 (/ n m)) 1)))))
#s(approx (+ n m) (*.f64 (neg.f64 m) (-.f64 (/.f64 (neg.f64 n) m) #s(literal 1 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m) #s(literal 1/4 binary64)) (*.f64 m m)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 n) M) 2) m) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) m) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M))) (neg.f64 m)) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (neg (+ n (* -1 m)))))))
#s(approx (- l (fabs (- m n))) (-.f64 l (fabs.f64 (fma.f64 #s(literal -1 binary64) m n))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (neg (+ n (* -1 m))))))
#s(approx (fabs (- m n)) (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)))
#s(approx (- m n) #s(hole binary64 (* -1 (* m (- (/ n m) 1)))))
#s(approx (- m n) (*.f64 (neg.f64 m) (-.f64 (/.f64 n m) #s(literal 1 binary64))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) K) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))) n (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) K) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) K) #s(literal -1/2 binary64) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) K) #s(literal -1/2 binary64) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal -1/4 binary64))))))) n (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))))) n (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) m))))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (.f64 n (cos.f64 M)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (.f64 n (cos.f64 M)) (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M)) (-.f64 M (.f64 #s(literal 1/2 binary64) m)))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (fma.f64 (.f64 n (cos.f64 M)) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M)) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))) n (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M)) (-.f64 M (.f64 #s(literal 1/2 binary64) m)))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal -1/4 binary64))) (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) n M) (.f64 #s(literal 1/2 binary64) m)) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))) n (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) K) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))) n (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))) n (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) K) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) #s(literal 1/2 binary64) (fma.f64 (fma.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 K K)) #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) K) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) #s(literal 1/2 binary64) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) K) (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (-.f64 M (.f64 #s(literal 1/2 binary64) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))) n (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* 1/2 (* K (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 (.f64 n K) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M))) #s(literal 1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* -1/8 (* (pow K 2) (* n (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) n) (.f64 (.f64 #s(literal 1/2 binary64) K) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)))) n (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 m K))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* n (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* -1/48 (* (pow K 3) (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) n) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)))) n (.f64 (.f64 #s(literal 1/2 binary64) K) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)))) n (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 m K))) M))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal -1/4 binary64))) (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) n M) (.f64 #s(literal 1/2 binary64) m)) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 (.f64 n K) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) n) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))) n (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) n) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))) n (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))) n (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))
#s(approx n #s(hole binary64 n))
#s(approx n n)
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K m) M)) 1))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (.f64 (-.f64 (.f64 (/.f64 (*.f64 m K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (+ (* 1/2 (* K n)) (* M (- (* 1/2 (/ (* K m) M)) 1)))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (fma.f64 (-.f64 (.f64 (/.f64 (.f64 m K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M (.f64 (.f64 n K) #s(literal 1/2 binary64))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (- (* 1/2 (/ (* K m) M)) 1)))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) (-.f64 (.f64 (/.f64 (.f64 m K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (neg.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- M (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (-.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) n) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- (+ M (* -1/4 n)) (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (fma.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) n M) (.f64 #s(literal 1/2 binary64) m)) n (neg.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))))
#s(approx (* (* n n) -1/4) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (* (* n n) -1/4) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
#s(approx (* n n) #s(hole binary64 (pow n 2)))
#s(approx (* n n) (*.f64 n n))
#s(approx (- m n) #s(hole binary64 (+ m (* -1 n))))
#s(approx (- m n) (fma.f64 #s(literal -1 binary64) n m))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- n m)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 n n)) (/.f64 M n)) (+.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (.f64 n n)))) (*.f64 n n)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 n n)) (/.f64 M n)) (+.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (.f64 n n)))) (*.f64 n n)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M) n)) n))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* n (+ (* 1/2 K) (/ (* M (- (* 1/2 (/ (* K m) M)) 1)) n)))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (.f64 (-.f64 (.f64 (/.f64 (.f64 m K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M) n)) n))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* 1/2 (/ (* K n) M))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) (.f64 (/.f64 (.f64 n K) M) #s(literal 1/2 binary64)))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* n (- (+ (* 1/2 (/ K M)) (* 1/2 (/ (* K m) (* M n)))) (/ 1 n)))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 K n) (/.f64 m M) (/.f64 K M))) (/.f64 #s(literal 1 binary64) n)) n))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* n (+ (* 1/2 (/ K M)) (* 1/2 (/ (* K m) (* M n)))))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 K n) (/.f64 m M) (/.f64 K M))) n))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (* n (+ (/ K M) (/ (* K m) (* M n))))))
#s(approx (* K (/ (+ n m) M)) (*.f64 (fma.f64 (/.f64 K n) (/.f64 m M) (/.f64 K M)) n))
#s(approx (/ (+ n m) M) #s(hole binary64 (* n (+ (/ 1 M) (/ m (* M n))))))
#s(approx (/ (+ n m) M) (*.f64 (+.f64 (/.f64 (/.f64 m M) n) (/.f64 #s(literal 1 binary64) M)) n))
#s(approx (+ n m) #s(hole binary64 (* n (+ 1 (/ m n)))))
#s(approx (+ n m) (*.f64 (+.f64 (/.f64 m n) #s(literal 1 binary64)) n))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n))
#s(approx (* K (+ m n)) #s(hole binary64 (* n (+ K (/ (* K m) n)))))
#s(approx (* K (+ m n)) (*.f64 (fma.f64 K (/.f64 m n) K) n))
#s(approx (+ m n) #s(hole binary64 (* n (+ 1 (/ m n)))))
#s(approx (+ n m) (*.f64 (+.f64 (/.f64 m n) #s(literal 1 binary64)) n))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (+ (* -1 (/ (pow (- (* 1/2 m) M) 2) (pow n 2))) (/ M n)) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (fma.f64 (/.f64 #s(literal -1 binary64) n) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) n) (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64)))) (*.f64 n n)))
#s(approx (- m n) #s(hole binary64 (* n (- (/ m n) 1))))
#s(approx (- m n) (*.f64 (-.f64 (/.f64 m n) #s(literal 1 binary64)) n))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) l) (pow.f64 (-.f64 (.f64 (-.f64 m (neg.f64 n)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) K) (-.f64 m (neg.f64 n))) M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) l) (pow.f64 (-.f64 (.f64 (-.f64 m (neg.f64 n)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))) (cos.f64 M)))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) l) (pow.f64 (-.f64 (*.f64 (-.f64 m (neg.f64 n)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n) #s(literal 1/4 binary64)) (*.f64 n n)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)) (neg.f64 n)) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (-.f64 m (neg.f64 n)) K))) M)) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) l) (pow.f64 (-.f64 (.f64 (-.f64 m (neg.f64 n)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (-.f64 m (neg.f64 n)) K))) M)))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) l) (pow.f64 (-.f64 (*.f64 (-.f64 m (neg.f64 n)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n) #s(literal 1/4 binary64)) (*.f64 n n)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)) (neg.f64 n)) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- m (* -1 n)))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) K) (-.f64 m (neg.f64 n))) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (neg.f64 n) (fma.f64 #s(literal -1/2 binary64) K (/.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M) (neg.f64 n)))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (* M (- (* 1/2 (/ (* K m) M)) 1)) n)) (* -1/2 K))))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (.f64 (neg.f64 n) (fma.f64 #s(literal -1/2 binary64) K (.f64 (neg.f64 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 m K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) n)))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (* 1/2 (/ (* K m) M)) 1) n)) (* -1/2 (/ K M)))))))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) (.f64 (neg.f64 n) (fma.f64 (/.f64 K M) #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (*.f64 m K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (neg.f64 n)))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) #s(hole binary64 (* -1 (* n (+ (* -1/2 (/ K M)) (* -1/2 (/ (* K m) (* M n))))))))
#s(approx (* (* K (/ (+ n m) M)) 1/2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 K n) (/.f64 m M) (/.f64 K M))) n))
#s(approx (* K (/ (+ n m) M)) #s(hole binary64 (* -1 (* n (+ (* -1 (/ K M)) (* -1 (/ (* K m) (* M n))))))))
#s(approx (* K (/ (+ n m) M)) (*.f64 (neg.f64 n) (neg.f64 (fma.f64 (/.f64 K n) (/.f64 m M) (/.f64 K M)))))
#s(approx (/ (+ n m) M) #s(hole binary64 (* -1 (* n (- (* -1 (/ m (* M n))) (/ 1 M))))))
#s(approx (/ (+ n m) M) (.f64 (neg.f64 n) (-.f64 (/.f64 (neg.f64 m) (.f64 M n)) (/.f64 #s(literal 1 binary64) M))))
#s(approx (+ n m) #s(hole binary64 (* -1 (* n (- (* -1 (/ m n)) 1)))))
#s(approx (+ n m) (*.f64 (neg.f64 n) (-.f64 (/.f64 (neg.f64 m) n) #s(literal 1 binary64))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n))
#s(approx (* K (+ m n)) #s(hole binary64 (* -1 (* n (+ (* -1 K) (* -1 (/ (* K m) n)))))))
#s(approx (* K (+ m n)) (*.f64 (neg.f64 n) (neg.f64 (fma.f64 K (/.f64 m n) K))))
#s(approx (+ m n) #s(hole binary64 (* -1 (* n (- (* -1 (/ m n)) 1)))))
#s(approx (+ n m) (*.f64 (neg.f64 n) (-.f64 (/.f64 (neg.f64 m) n) #s(literal 1 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n) #s(literal 1/4 binary64)) (*.f64 n n)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 m) M) 2) n) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) n) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) (neg.f64 n)) #s(literal 1/4 binary64)) (.f64 n n)))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (+ m (* -1 n))))))
#s(approx (- l (fabs (- m n))) (-.f64 l (fabs.f64 (fma.f64 #s(literal -1 binary64) n m))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (+ m (* -1 n)))))
#s(approx (fabs (- m n)) (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)))
#s(approx (- m n) #s(hole binary64 (* -1 (* n (+ 1 (* -1 (/ m n)))))))
#s(approx (- m n) (*.f64 (neg.f64 n) (fma.f64 (/.f64 m n) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (*.f64 (+.f64 n m) K)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (+.f64 n m))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (*.f64 (+.f64 n m) K))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))) #s(literal -1/2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64))))) M (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (+.f64 n m)))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))) #s(literal -1/2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))))))) M (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))))) M (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (+.f64 n m)))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (*.f64 (+.f64 n m) K))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (fma.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) #s(literal -1/2 binary64))) M (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (+ (* M (+ (* -1/2 (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (fma.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) #s(literal -1/2 binary64)) (+.f64 n m) (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (.f64 M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) M (.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 M (+.f64 n m) (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (-.f64 M (+.f64 n m))) M (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (neg (* M M)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (neg (* M M)) (*.f64 (neg.f64 M) M))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx (* M M) (*.f64 M M))
#s(approx M #s(hole binary64 M))
#s(approx M M)
#s(approx (cos M) #s(hole binary64 1))
#s(approx (cos M) #s(literal 1 binary64))
#s(approx (cos M) #s(hole binary64 (+ 1 (* -1/2 (pow M 2)))))
#s(approx (cos M) (fma.f64 (*.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2)))))
#s(approx (cos M) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 M M)) #s(literal 1/2 binary64)) (*.f64 M M) #s(literal 1 binary64)))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2)))))
#s(approx (cos M) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 M M) #s(literal 1/24 binary64)) (.f64 M M)) #s(literal 1/2 binary64)) (.f64 M M) #s(literal 1 binary64)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (cos.f64 (fma.f64 #s(literal -1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (cos.f64 (fma.f64 #s(literal -1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (neg.f64 (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64)))) M (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))) (+ (* 1/6 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (cos.f64 (fma.f64 #s(literal -1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (neg.f64 (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 #s(literal -1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64) (fma.f64 (.f64 #s(literal 1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* -1 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (neg.f64 M) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* -1/2 (* M (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) M) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64)))) M (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* M (+ (* -1/2 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* 1/6 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) M) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) #s(literal -1/2 binary64))) M (cos.f64 (fma.f64 #s(literal -1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64)))) M (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) M (.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 M (+.f64 n m) (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (-.f64 M (+.f64 n m))) M (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (* 1/2 (* K (+ m n))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) M (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (sin.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) M (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))) #s(literal -1/2 binary64))) M (neg.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))))) M (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K (+ m n))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K) (neg.f64 M)))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) #s(hole binary64 (/ (+ (* -1 M) (* 1/2 (* K (+ m n)))) M)))
#s(approx (- (* (* K (/ (+ n m) M)) 1/2) 1) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K) (neg.f64 M)) M))
#s(approx (/ (+ n m) M) #s(hole binary64 (/ (+ m n) M)))
#s(approx (/ (+ n m) M) (/.f64 (+.f64 n m) M))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow (+ m n) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (+ m n)) (* 1/4 (pow (+ m n) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (fma.f64 M (+.f64 n m) (*.f64 #s(literal -1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (- (* -1 M) (* -1 (+ m n)))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (fma.f64 (.f64 #s(literal -1 binary64) (-.f64 M (+.f64 n m))) M (.f64 #s(literal -1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (+.f64 n m) M) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- n m)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (+.f64 (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l) (.f64 M M)))) (.f64 M M)))
#s(approx (cos M) #s(hole binary64 (cos M)))
#s(approx (cos M) (cos.f64 M))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (+.f64 n m) M) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (+.f64 (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l) (.f64 M M)))) (.f64 M M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (/.f64 (*.f64 (+.f64 n m) K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (.f64 (-.f64 (.f64 (/.f64 (*.f64 (+.f64 n m) K) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (*.f64 (neg.f64 M) M))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (+.f64 n m) M) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1/4 (/ (pow (+ m n) 2) (pow M 2))) (+ 1 (* -1 (/ (+ m n) M)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (.f64 (/.f64 #s(literal -1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M)) (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1 binary64) #s(literal 1 binary64))) (*.f64 M M)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (*.f64 (cos.f64 M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K)) (neg.f64 M))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (-.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) (neg.f64 M)) (+.f64 n m)) (neg.f64 M)) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K) (neg.f64 M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 M)))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))))
#s(approx (* (- (* (* K (/ (+ n m) M)) 1/2) 1) M) (.f64 (fma.f64 (/.f64 (.f64 (+.f64 n m) K) M) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 M)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* 1/4 (/ (pow (+ m n) 2) M)) (+ m n)) M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (-.f64 (-.f64 (.f64 (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 1/4 binary64)) m) n) (neg.f64 M)) #s(literal 1 binary64)) (*.f64 M M)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (neg.f64 l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))) (.f64 (neg.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))))) l (.f64 (neg.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* -1 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (neg.f64 (.f64 l (cos.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M)) (.f64 (neg.f64 (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (.f64 (neg.f64 (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (neg.f64 l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) l (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (neg.f64 l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* 1/2 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (neg.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* l (+ (* -1/6 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* 1/2 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))) #s(literal 1/2 binary64))) l)) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (neg.f64 l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) l (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))
#s(approx (neg l) #s(hole binary64 (* -1 l)))
#s(approx (neg l) (neg.f64 l))
#s(approx l #s(hole binary64 l))
#s(approx l l)
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (fabs (- m n)))))
#s(approx (- l (fabs (- m n))) (neg.f64 (fabs.f64 (-.f64 n m))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 l))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* l (- (/ (fabs (- n m)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) l) (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l) #s(literal 1 binary64))) l))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) l) (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l) #s(literal 1 binary64))) l))
#s(approx (- l (fabs (- m n))) #s(hole binary64 l))
#s(approx (- l (fabs (- m n))) l)
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* l (+ 1 (* -1 (/ (fabs (- m n)) l))))))
#s(approx (- l (fabs (- m n))) (*.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (neg.f64 l)) #s(literal 1 binary64)) l))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M)))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))) (neg.f64 l)) #s(literal 1 binary64)) (neg.f64 l)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (+.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))) (neg.f64 l)) #s(literal 1 binary64)) (neg.f64 l)))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (* l (- (/ (fabs (- m n)) l) 1)))))
#s(approx (- l (fabs (- m n))) (*.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) l) #s(literal 1 binary64)) (neg.f64 l)))

rewrite164.0ms (2.3%)

Memory

25.7MiB live, 211.2MiB allocated; 36ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	80	615
0	114	607
1	434	607
0	3157	598

Stop Event

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

Counts

49 → 357

Calls

Call 1

Inputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) (cos.f64 M)))
(.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) (cos.f64 M))
(exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))
(neg.f64 (*.f64 M M))
(*.f64 M M)
M
(cos.f64 M)
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M))
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(*.f64 n K)
n
K
#s(literal 1/2 binary64)
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))
(.f64 (-.f64 (.f64 (*.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M)
(-.f64 (.f64 (.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(.f64 (.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64))
(*.f64 K (/.f64 (+.f64 n m) M))
(/.f64 (+.f64 n m) M)
(+.f64 n m)
m
#s(literal 1 binary64)
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M))
(-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)
(/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64))
(*.f64 K (+.f64 m n))
(+.f64 m n)
#s(literal 2 binary64)
(exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(*.f64 n n)
#s(literal -1/4 binary64)
(-.f64 l (fabs.f64 (-.f64 m n)))
(fabs.f64 (-.f64 m n))
(-.f64 m n)

Outputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 M) (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M)))))
(.f64 (cos.f64 M) (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))))
(.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))) (cos.f64 M))
(fma.f64 (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (cos.f64 M) (.f64 (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))) (cos.f64 M)))
(fma.f64 (cos.f64 M) (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (.f64 (cos.f64 M) (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M)))))
(+.f64 (.f64 (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (cos.f64 M)) (.f64 (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))) (cos.f64 M)))
(+.f64 (.f64 (cos.f64 M) (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M)))) (.f64 (cos.f64 M) (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M)))))
(/.f64 (-.f64 (.f64 (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M)))) (.f64 (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))))) (-.f64 (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M)))))
(/.f64 (+.f64 (pow.f64 (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) #s(literal 3 binary64)) (pow.f64 (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) #s(literal 3 binary64))) (fma.f64 (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (-.f64 (.f64 (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M)))) (.f64 (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M)))))))
(exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M)))
(+.f64 (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))))
(+.f64 (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))
(*.f64 (neg.f64 (fabs.f64 M)) (fabs.f64 M))
(*.f64 (neg.f64 (neg.f64 M)) (neg.f64 M))
(*.f64 (fabs.f64 M) (neg.f64 (fabs.f64 M)))
(*.f64 (neg.f64 M) (neg.f64 (neg.f64 M)))
(*.f64 (neg.f64 M) M)
(*.f64 M (neg.f64 M))
(neg.f64 (*.f64 M M))
(*.f64 (neg.f64 (fabs.f64 M)) (neg.f64 (fabs.f64 M)))
(*.f64 (fabs.f64 (fabs.f64 M)) (fabs.f64 (fabs.f64 M)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) (pow.f64 M #s(literal 1 binary64)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) M)
(*.f64 (neg.f64 (neg.f64 M)) (neg.f64 (neg.f64 M)))
(*.f64 (fabs.f64 M) (fabs.f64 M))
(*.f64 (neg.f64 M) (neg.f64 M))
(*.f64 M M)
(pow.f64 (fabs.f64 M) #s(literal 2 binary64))
(pow.f64 (neg.f64 M) #s(literal 2 binary64))
(pow.f64 M #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 M) M))
(fabs.f64 (*.f64 M M))
(exp.f64 (*.f64 (log.f64 M) #s(literal 2 binary64)))
M
(fma.f64 (sin.f64 M) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 M) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 M) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M))
(cos.f64 (neg.f64 (neg.f64 M)))
(cos.f64 (neg.f64 M))
(cos.f64 M)
(+.f64 (.f64 (sin.f64 M) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 M) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(fma.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M))))
(fma.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))
(+.f64 (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M))) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M))))
(+.f64 (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M))
(/.f64 (-.f64 (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))) (-.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))
(/.f64 (+.f64 (pow.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(literal 3 binary64)) (pow.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(literal 3 binary64))) (fma.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (-.f64 (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))))
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
(+.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(+.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))))
(fma.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64))))))
(fma.f64 (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))
(+.f64 (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64))))) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64))))))
(+.f64 (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))
(fma.f64 (sin.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64))))))
(cos.f64 (neg.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))))
(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64))))
(+.f64 (.f64 (sin.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
(.f64 (.f64 #s(literal 1/2 binary64) K) n)
(.f64 (.f64 #s(literal 1/2 binary64) n) K)
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (.f64 n K))
(.f64 n (.f64 #s(literal 1/2 binary64) K))
(.f64 K (.f64 #s(literal 1/2 binary64) n))
(*.f64 n K)
(*.f64 K n)
n
K
#s(literal 1/2 binary64)
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M))))
(fma.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M))) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M)))))
(fma.f64 (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))
(+.f64 (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M)))) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M)))))
(+.f64 (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))
(fma.f64 (sin.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M)))))
(cos.f64 (neg.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M))))
(cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M)))
(+.f64 (.f64 (sin.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M))
(.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)) M)
(.f64 M (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64)))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64)) M) (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal 1 binary64)))
(/.f64 (.f64 (fma.f64 (pow.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal -1 binary64)) M) (+.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal 1 binary64)) (pow.f64 (.f64 (*.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(/.f64 (.f64 M (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64))) (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal 1 binary64)))
(/.f64 (.f64 M (fma.f64 (pow.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal -1 binary64))) (+.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal 1 binary64)) (pow.f64 (.f64 (*.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (fma.f64 (*.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal 1 binary64))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal -1 binary64))) (neg.f64 (+.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal 1 binary64)) (pow.f64 (.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64)) (fma.f64 (*.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal 1 binary64)))
(/.f64 (fma.f64 (pow.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal -1 binary64)) (+.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal 1 binary64)) (pow.f64 (.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) K) (/.f64 (+.f64 n m) M) #s(literal -1 binary64))
(fma.f64 (*.f64 (/.f64 (+.f64 n m) M) #s(literal 1/2 binary64)) K #s(literal -1 binary64))
(fma.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal -1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal 1 binary64) #s(literal -1 binary64))
(fma.f64 (*.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal -1 binary64))
(fma.f64 (/.f64 (+.f64 n m) M) (*.f64 #s(literal 1/2 binary64) K) #s(literal -1 binary64))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1 binary64)) #s(literal -1 binary64))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (+.f64 n m) M) K) #s(literal -1 binary64))
(fma.f64 K (.f64 (.f64 (/.f64 (+.f64 n m) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)) #s(literal -1 binary64))
(fma.f64 K (*.f64 (/.f64 (+.f64 n m) M) #s(literal 1/2 binary64)) #s(literal -1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal 1 binary64))))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (+.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal 1 binary64)) (pow.f64 (.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64) #s(literal 1 binary64)) (pow.f64 (.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(-.f64 (.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(+.f64 (.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal -1 binary64))
(.f64 (.f64 #s(literal 1/2 binary64) K) (/.f64 (+.f64 n m) M))
(.f64 (.f64 (/.f64 (+.f64 n m) M) #s(literal 1/2 binary64)) K)
(.f64 #s(literal 1 binary64) (.f64 (*.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)))
(.f64 (.f64 (*.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(.f64 (.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64))
(.f64 (/.f64 (+.f64 n m) M) (.f64 #s(literal 1/2 binary64) K))
(.f64 #s(literal 1/2 binary64) (.f64 (*.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1 binary64)))
(.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (+.f64 n m) M) K))
(.f64 K (.f64 (*.f64 (/.f64 (+.f64 n m) M) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(.f64 K (.f64 (/.f64 (+.f64 n m) M) #s(literal 1/2 binary64)))
(/.f64 (.f64 (.f64 (+.f64 n m) K) #s(literal 1/2 binary64)) M)
(/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M)
(/.f64 (.f64 (.f64 (*.f64 (/.f64 (+.f64 n m) M) K) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64))
(*.f64 (/.f64 (+.f64 n m) M) K)
(*.f64 (+.f64 n m) (/.f64 K M))
(*.f64 K (/.f64 (+.f64 n m) M))
(/.f64 (*.f64 (neg.f64 K) (+.f64 n m)) (neg.f64 M))
(/.f64 (*.f64 (+.f64 n m) K) M)
(fma.f64 (/.f64 n M) K (*.f64 (/.f64 m M) K))
(fma.f64 K (/.f64 n M) (*.f64 K (/.f64 m M)))
(+.f64 (.f64 (/.f64 n M) K) (.f64 (/.f64 m M) K))
(+.f64 (.f64 K (/.f64 n M)) (.f64 K (/.f64 m M)))
(+.f64 (/.f64 (.f64 m K) M) (/.f64 (.f64 n K) M))
(/.f64 (-.f64 (.f64 (/.f64 n M) (/.f64 n M)) (.f64 (/.f64 m M) (/.f64 m M))) (-.f64 (/.f64 n M) (/.f64 m M)))
(/.f64 (+.f64 (pow.f64 (/.f64 n M) #s(literal 3 binary64)) (pow.f64 (/.f64 m M) #s(literal 3 binary64))) (fma.f64 (/.f64 n M) (/.f64 n M) (-.f64 (.f64 (/.f64 m M) (/.f64 m M)) (.f64 (/.f64 n M) (/.f64 m M)))))
(/.f64 (neg.f64 (neg.f64 (+.f64 n m))) (neg.f64 (neg.f64 M)))
(/.f64 (fma.f64 n M (.f64 M m)) (.f64 M M))
(/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (.f64 (-.f64 n m) M))
(/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (.f64 (-.f64 m n) M))
(/.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) (.f64 (fma.f64 n n (.f64 m (-.f64 m n))) M))
(/.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) (.f64 (fma.f64 n (-.f64 n m) (.f64 m m)) M))
(/.f64 (neg.f64 (+.f64 n m)) (neg.f64 M))
(/.f64 (+.f64 n m) M)
(neg.f64 (/.f64 (neg.f64 (+.f64 n m)) M))
(neg.f64 (/.f64 (+.f64 n m) (neg.f64 M)))
(+.f64 (/.f64 m M) (/.f64 n M))
(+.f64 (/.f64 n M) (/.f64 m M))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (*.f64 (+.f64 n m) (-.f64 n m))) (+.f64 n m))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (-.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fma.f64 n n (*.f64 m (+.f64 n m))))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (*.f64 (+.f64 n m) (-.f64 m n))) (+.f64 n m))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fma.f64 n (+.f64 n m) (*.f64 m m)))
(/.f64 (neg.f64 (*.f64 (+.f64 n m) (-.f64 n m))) (neg.f64 (-.f64 n m)))
(/.f64 (neg.f64 (*.f64 (+.f64 n m) (-.f64 m n))) (neg.f64 (-.f64 m n)))
(/.f64 (neg.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (neg.f64 (fma.f64 n n (*.f64 m (-.f64 m n)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (neg.f64 (fma.f64 n (-.f64 n m) (*.f64 m m))))
(/.f64 (*.f64 (+.f64 n m) (-.f64 n m)) (-.f64 n m))
(/.f64 (*.f64 (+.f64 n m) (-.f64 m n)) (-.f64 m n))
(/.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) (fma.f64 n n (*.f64 m (-.f64 m n))))
(/.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) (fma.f64 n (-.f64 n m) (*.f64 m m)))
(-.f64 (/.f64 (.f64 n n) (-.f64 n m)) (/.f64 (.f64 m m) (-.f64 n m)))
(-.f64 (/.f64 (.f64 m m) (-.f64 m n)) (/.f64 (.f64 n n) (-.f64 m n)))
(+.f64 (/.f64 (pow.f64 n #s(literal 3 binary64)) (fma.f64 n n (.f64 m (-.f64 m n)))) (/.f64 (pow.f64 m #s(literal 3 binary64)) (fma.f64 n n (.f64 m (-.f64 m n)))))
(+.f64 (/.f64 (pow.f64 m #s(literal 3 binary64)) (fma.f64 n (-.f64 n m) (.f64 m m))) (/.f64 (pow.f64 n #s(literal 3 binary64)) (fma.f64 n (-.f64 n m) (.f64 m m))))
(+.f64 n m)
(+.f64 m n)
m
#s(literal 1 binary64)
(.f64 (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(/.f64 (.f64 (exp.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))) (exp.f64 (-.f64 l (fabs.f64 (-.f64 m n)))))
(/.f64 (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))))) (exp.f64 (-.f64 l (fabs.f64 (-.f64 m n)))))
(fma.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (*.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))))
(fma.f64 (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (.f64 (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))))
(fma.f64 (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (sin.f64 M) (sin.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (*.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))))
(+.f64 (.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (.f64 (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))))
(+.f64 (.f64 (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))) (.f64 (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))))
(+.f64 (.f64 (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M))) (.f64 (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))))))
(+.f64 (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M))) (.f64 (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (fma.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (-.f64 (.f64 (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))))) (.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))))))))
(fma.f64 (sin.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)))
(fma.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 M) (.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)))
(fma.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M) (.f64 (sin.f64 M) (sin.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)))))
(fma.f64 (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (.f64 (neg.f64 (cos.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (cos.f64 M) (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (.f64 (sin.f64 M) (sin.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (neg.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (sin.f64 M)))
(-.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))))
(cos.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)))
(cos.f64 (-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M))
(+.f64 (.f64 (sin.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 M)) (.f64 (sin.f64 M) (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64))) (cos.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (neg.f64 (cos.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)))) (sin.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M))) (neg.f64 (fma.f64 (/.f64 K #s(literal 2 binary64)) (+.f64 n m) M)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (neg.f64 (fma.f64 M (fma.f64 (/.f64 K #s(literal 2 binary64)) (+.f64 n m) M) (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 M M)) (fma.f64 (/.f64 K #s(literal 2 binary64)) (+.f64 n m) M))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64))) (fma.f64 M (fma.f64 (/.f64 K #s(literal 2 binary64)) (+.f64 n m) M) (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (/.f64 K #s(literal 2 binary64)) (+.f64 n m) M)) (/.f64 (.f64 M M) (fma.f64 (/.f64 K #s(literal 2 binary64)) (+.f64 n m) M)))
(-.f64 (/.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 M (fma.f64 (/.f64 K #s(literal 2 binary64)) (+.f64 n m) M) (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 M #s(literal 3 binary64)) (fma.f64 M (fma.f64 (/.f64 K #s(literal 2 binary64)) (+.f64 n m) M) (pow.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)
(*.f64 (/.f64 K #s(literal 2 binary64)) (+.f64 n m))
(*.f64 (+.f64 n m) (/.f64 K #s(literal 2 binary64)))
(*.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K)
(*.f64 K (/.f64 (+.f64 n m) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) (/.f64 K #s(literal 2 binary64))) (-.f64 n m))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 m n)) (/.f64 K #s(literal 2 binary64))) (-.f64 m n))
(/.f64 (.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) (/.f64 K #s(literal 2 binary64))) (fma.f64 n n (.f64 m (-.f64 m n))))
(/.f64 (.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) (/.f64 K #s(literal 2 binary64))) (fma.f64 n (-.f64 n m) (.f64 m m)))
(/.f64 (neg.f64 (*.f64 (neg.f64 K) (+.f64 n m))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (*.f64 (-.f64 n m) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (*.f64 (-.f64 m n) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) K) (.f64 (fma.f64 n n (*.f64 m (-.f64 m n))) #s(literal 2 binary64)))
(/.f64 (.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) K) (.f64 (fma.f64 n (-.f64 n m) (*.f64 m m)) #s(literal 2 binary64)))
(/.f64 (*.f64 (neg.f64 K) (+.f64 n m)) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64))
(neg.f64 (/.f64 (*.f64 (neg.f64 K) (+.f64 n m)) #s(literal 2 binary64)))
(neg.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal -2 binary64)))
(fma.f64 (/.f64 m #s(literal 2 binary64)) K (*.f64 (/.f64 n #s(literal 2 binary64)) K))
(fma.f64 K (/.f64 m #s(literal 2 binary64)) (*.f64 K (/.f64 n #s(literal 2 binary64))))
(+.f64 (.f64 (/.f64 m #s(literal 2 binary64)) K) (.f64 (/.f64 n #s(literal 2 binary64)) K))
(+.f64 (.f64 K (/.f64 m #s(literal 2 binary64))) (.f64 K (/.f64 n #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 m K) #s(literal 2 binary64)) (/.f64 (.f64 n K) #s(literal 2 binary64)))
(*.f64 (+.f64 n m) K)
(*.f64 K (+.f64 n m))
(/.f64 (.f64 K (.f64 (+.f64 n m) (-.f64 n m))) (-.f64 n m))
(/.f64 (.f64 K (.f64 (+.f64 n m) (-.f64 m n))) (-.f64 m n))
(/.f64 (.f64 K (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fma.f64 n n (.f64 m (-.f64 m n))))
(/.f64 (.f64 K (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fma.f64 n (-.f64 n m) (.f64 m m)))
(/.f64 (-.f64 (.f64 (.f64 m K) (.f64 m K)) (.f64 (.f64 n K) (.f64 n K))) (-.f64 (.f64 m K) (.f64 n K)))
(/.f64 (+.f64 (pow.f64 (.f64 m K) #s(literal 3 binary64)) (pow.f64 (.f64 n K) #s(literal 3 binary64))) (fma.f64 (.f64 m K) (.f64 m K) (-.f64 (.f64 (.f64 n K) (.f64 n K)) (.f64 (.f64 m K) (.f64 n K)))))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 n m)) K) (-.f64 n m))
(/.f64 (.f64 (.f64 (+.f64 n m) (-.f64 m n)) K) (-.f64 m n))
(/.f64 (.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) K) (fma.f64 n n (.f64 m (-.f64 m n))))
(/.f64 (.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) K) (fma.f64 n (-.f64 n m) (.f64 m m)))
(fma.f64 n K (*.f64 m K))
(fma.f64 m K (*.f64 n K))
(fma.f64 K n (*.f64 m K))
(fma.f64 K m (*.f64 n K))
(-.f64 (.f64 m K) (.f64 (neg.f64 n) K))
(-.f64 (.f64 m K) (.f64 (neg.f64 K) n))
(+.f64 (.f64 m K) (.f64 n K))
(+.f64 (.f64 n K) (.f64 m K))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (*.f64 (+.f64 n m) (-.f64 n m))) (+.f64 n m))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (-.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fma.f64 n n (*.f64 m (+.f64 n m))))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (*.f64 (+.f64 n m) (-.f64 m n))) (+.f64 n m))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fma.f64 n (+.f64 n m) (*.f64 m m)))
(/.f64 (neg.f64 (*.f64 (+.f64 n m) (-.f64 n m))) (neg.f64 (-.f64 n m)))
(/.f64 (neg.f64 (*.f64 (+.f64 n m) (-.f64 m n))) (neg.f64 (-.f64 m n)))
(/.f64 (neg.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (neg.f64 (fma.f64 n n (*.f64 m (-.f64 m n)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (neg.f64 (fma.f64 n (-.f64 n m) (*.f64 m m))))
(/.f64 (*.f64 (+.f64 n m) (-.f64 n m)) (-.f64 n m))
(/.f64 (*.f64 (+.f64 n m) (-.f64 m n)) (-.f64 m n))
(/.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) (fma.f64 n n (*.f64 m (-.f64 m n))))
(/.f64 (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) (fma.f64 n (-.f64 n m) (*.f64 m m)))
(-.f64 (/.f64 (.f64 n n) (-.f64 n m)) (/.f64 (.f64 m m) (-.f64 n m)))
(-.f64 (/.f64 (.f64 m m) (-.f64 m n)) (/.f64 (.f64 n n) (-.f64 m n)))
(+.f64 (/.f64 (pow.f64 n #s(literal 3 binary64)) (fma.f64 n n (.f64 m (-.f64 m n)))) (/.f64 (pow.f64 m #s(literal 3 binary64)) (fma.f64 n n (.f64 m (-.f64 m n)))))
(+.f64 (/.f64 (pow.f64 m #s(literal 3 binary64)) (fma.f64 n (-.f64 n m) (.f64 m m))) (/.f64 (pow.f64 n #s(literal 3 binary64)) (fma.f64 n (-.f64 n m) (.f64 m m))))
(+.f64 n m)
(+.f64 m n)
#s(literal 2 binary64)
(.f64 (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (*.f64 n n))) l)) (exp.f64 (fabs.f64 (-.f64 m n))))
(/.f64 (-.f64 (.f64 (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (.f64 (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))))) (-.f64 (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))))
(/.f64 (+.f64 (pow.f64 (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) #s(literal 3 binary64)) (pow.f64 (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) #s(literal 3 binary64))) (fma.f64 (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (-.f64 (.f64 (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (.f64 (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))))))
(/.f64 (neg.f64 (exp.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))))) (neg.f64 (exp.f64 (-.f64 l (fabs.f64 (-.f64 m n))))))
(/.f64 (exp.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (exp.f64 (-.f64 l (fabs.f64 (-.f64 m n)))))
(exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(+.f64 (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(+.f64 (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l) (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l)) (pow.f64 (-.f64 m n) #s(literal 2 binary64))) (-.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (*.f64 n n))) l) (fabs.f64 (-.f64 m n))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l) #s(literal 3 binary64)) (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l) (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l) (-.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (*.f64 n n))) l) (fabs.f64 (-.f64 m n))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 2 binary64)) (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 3 binary64)) (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 2 binary64)) (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 2 binary64))) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n)))))
(/.f64 (-.f64 (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 3 binary64)) (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 3 binary64))) (fma.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 2 binary64))))
(fma.f64 (sqrt.f64 (-.f64 m n)) (sqrt.f64 (-.f64 m n)) (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l))
(fma.f64 (sqrt.f64 (-.f64 n m)) (sqrt.f64 (-.f64 n m)) (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l))
(-.f64 (/.f64 (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 2 binary64)) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))))) (/.f64 (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 2 binary64)) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))))))
(-.f64 (/.f64 (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 3 binary64)) (fma.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 3 binary64)) (fma.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 2 binary64)))))
(-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))
(+.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l) (fabs.f64 (-.f64 m n)))
(+.f64 (fabs.f64 (-.f64 m n)) (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n)))
(.f64 (.f64 #s(literal -1/4 binary64) (neg.f64 n)) (neg.f64 n))
(.f64 (.f64 #s(literal -1/4 binary64) (fabs.f64 n)) (fabs.f64 n))
(.f64 (.f64 #s(literal -1/4 binary64) n) n)
(.f64 (neg.f64 n) (.f64 (neg.f64 n) #s(literal -1/4 binary64)))
(.f64 (fabs.f64 n) (.f64 (fabs.f64 n) #s(literal -1/4 binary64)))
(.f64 #s(literal -1/4 binary64) (.f64 n n))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(.f64 n (.f64 #s(literal -1/4 binary64) n))
(*.f64 (neg.f64 (neg.f64 n)) (neg.f64 (neg.f64 n)))
(*.f64 (neg.f64 (fabs.f64 n)) (neg.f64 (fabs.f64 n)))
(*.f64 (fabs.f64 (fabs.f64 n)) (fabs.f64 (fabs.f64 n)))
(*.f64 (pow.f64 n #s(literal 1 binary64)) (pow.f64 n #s(literal 1 binary64)))
(*.f64 (pow.f64 n #s(literal 1 binary64)) n)
(*.f64 (neg.f64 n) (neg.f64 n))
(*.f64 (fabs.f64 n) (fabs.f64 n))
(*.f64 n n)
(pow.f64 (neg.f64 n) #s(literal 2 binary64))
(pow.f64 (fabs.f64 n) #s(literal 2 binary64))
(pow.f64 n #s(literal 2 binary64))
(neg.f64 (*.f64 n (neg.f64 n)))
(neg.f64 (*.f64 (neg.f64 n) n))
(fabs.f64 (*.f64 n n))
(exp.f64 (*.f64 (log.f64 n) #s(literal 2 binary64)))
#s(literal -1/4 binary64)
(/.f64 (neg.f64 (-.f64 (*.f64 l l) (pow.f64 (-.f64 m n) #s(literal 2 binary64)))) (neg.f64 (+.f64 (fabs.f64 (-.f64 m n)) l)))
(/.f64 (neg.f64 (-.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 l l (fma.f64 (fabs.f64 (-.f64 m n)) l (pow.f64 (-.f64 m n) #s(literal 2 binary64))))))
(/.f64 (-.f64 (*.f64 l l) (pow.f64 (-.f64 m n) #s(literal 2 binary64))) (+.f64 (fabs.f64 (-.f64 m n)) l))
(/.f64 (-.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64))) (fma.f64 l l (fma.f64 (fabs.f64 (-.f64 m n)) l (pow.f64 (-.f64 m n) #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 l l) (+.f64 (fabs.f64 (-.f64 m n)) l)) (/.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (+.f64 (fabs.f64 (-.f64 m n)) l)))
(-.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (fma.f64 l l (fma.f64 (fabs.f64 (-.f64 m n)) l (pow.f64 (-.f64 m n) #s(literal 2 binary64))))) (/.f64 (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64)) (fma.f64 l l (fma.f64 (fabs.f64 (-.f64 m n)) l (pow.f64 (-.f64 m n) #s(literal 2 binary64))))))
(-.f64 l (fabs.f64 (-.f64 m n)))
(*.f64 (sqrt.f64 (-.f64 m n)) (sqrt.f64 (-.f64 m n)))
(*.f64 (sqrt.f64 (-.f64 n m)) (sqrt.f64 (-.f64 n m)))
(pow.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 (fabs.f64 (*.f64 (+.f64 n m) (-.f64 m n))) (fabs.f64 (+.f64 n m)))
(/.f64 (fabs.f64 (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fabs.f64 (fma.f64 n (+.f64 n m) (*.f64 m m))))
(/.f64 (fabs.f64 (*.f64 (+.f64 n m) (-.f64 n m))) (fabs.f64 (+.f64 n m)))
(/.f64 (fabs.f64 (-.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fabs.f64 (fma.f64 n n (*.f64 m (+.f64 n m)))))
(sqrt.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)))
(fabs.f64 (neg.f64 (neg.f64 (-.f64 m n))))
(fabs.f64 (neg.f64 (neg.f64 (-.f64 n m))))
(fabs.f64 (neg.f64 (-.f64 m n)))
(fabs.f64 (neg.f64 (-.f64 n m)))
(fabs.f64 (-.f64 m n))
(fabs.f64 (-.f64 n m))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (*.f64 (+.f64 n m) (-.f64 n m))) (-.f64 n m))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fma.f64 n n (*.f64 m (-.f64 m n))))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fma.f64 n (-.f64 n m) (*.f64 m m)))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (*.f64 (+.f64 n m) (-.f64 m n))) (-.f64 m n))
(/.f64 (neg.f64 (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (neg.f64 (fma.f64 n (+.f64 n m) (*.f64 m m))))
(/.f64 (neg.f64 (*.f64 (+.f64 n m) (-.f64 m n))) (neg.f64 (+.f64 n m)))
(/.f64 (*.f64 (+.f64 n m) (-.f64 m n)) (+.f64 n m))
(/.f64 (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) (fma.f64 n (+.f64 n m) (*.f64 m m)))
(-.f64 (/.f64 (.f64 m m) (+.f64 n m)) (/.f64 (.f64 n n) (+.f64 n m)))
(-.f64 (/.f64 (pow.f64 m #s(literal 3 binary64)) (fma.f64 n (+.f64 n m) (.f64 m m))) (/.f64 (pow.f64 n #s(literal 3 binary64)) (fma.f64 n (+.f64 n m) (.f64 m m))))
(-.f64 m n)

eval157.0ms (2.2%)

Memory: -21.5MiB live, 219.0MiB allocated; 70ms collecting garbage
Compiler: Compiled 54 045 to 3 920 computations (92.7% saved)

prune32.0ms (0.4%)

Memory

47.6MiB live, 94.6MiB allocated; 2ms collecting garbage

Pruning

20 alts after pruning (19 fresh and 1 done)

	Pruned	Kept	Total
New	838	10	848
Fresh	5	9	14
Picked	4	1	5
Done	0	0	0
Total	847	20	867

Accuracy

97.9%

Counts

867 → 20

Alt Table

Click to see full alt table

Status	Accuracy	Program
	27.1%	(.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64))))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	46.8%	(.f64 (sin.f64 (-.f64 (/.f64 (.f64 (/.f64 (*.f64 (+.f64 n m) (-.f64 n m)) (-.f64 n m)) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	29.3%	(.f64 (sin.f64 (+.f64 (neg.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	31.8%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (+.f64 (cosh.f64 (.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 2 binary64))))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	24.7%	(.f64 (cos.f64 (-.f64 #s(approx (/ ( (+ n m) K) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
▶	44.9%	(.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	25.5%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 #s(approx (+ n m) n) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
✓	28.9%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	34.8%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) #s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
	42.9%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
	29.7%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	28.3%	(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
▶	49.1%	(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
	57.4%	(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 m m) #s(literal -1/4 binary64)))))
	27.9%	(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) (fma.f64 (*.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
▶	32.5%	(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	8.2%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (+.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M))))
▶	22.7%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
	35.5%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) (fma.f64 (.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))))
▶	57.4%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))

Compiler

Compiled 1 980 to 1 291 computations (34.8% saved)

series81.0ms (1.1%)

Memory

-20.5MiB live, 218.6MiB allocated; 21ms collecting garbage

Counts

50 → 405

Calls

Call 1

Inputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))
(.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64)))
(exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))
(neg.f64 (*.f64 M M))
(*.f64 M M)
M
#s(approx (cos M) #s(literal 1 binary64))
#s(literal 1 binary64)
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64)))
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M))
(cos.f64 M)
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(*.f64 n n)
n
#s(literal -1/4 binary64)
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)))
(-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))
(fabs.f64 (-.f64 n m))
(-.f64 n m)
m
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)
(cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))
(-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(*.f64 m K)
K
#s(literal 1/2 binary64)
(.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(cos.f64 (-.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M))
(-.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(*.f64 n K)
(exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
(-.f64 l (fabs.f64 (-.f64 m n)))
(fabs.f64 (-.f64 m n))
(-.f64 m n)

Outputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/8 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))) (* K (+ (* -1/8 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* -1/8 (* K (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))) (* K (+ (* -1/8 (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (pow (+ m n) 3)))))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* -1/2 (* K (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M)))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* K (+ (* -1/2 (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M))))) (* -1/8 (* K (* (pow m 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* K (+ (* -1/2 (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M))))) (* K (+ (* -1/8 (* (pow m 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* 1/48 (* K (* (pow m 3) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* m (sin (neg M))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (pow m 2) (cos (neg M))))) (* 1/2 (* m (sin (neg M)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (pow m 2) (cos (neg M)))) (* 1/48 (* K (* (pow m 3) (sin (neg M))))))) (* 1/2 (* m (sin (neg M)))))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx (* (* m K) 1/2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (* m K) #s(hole binary64 (* K m)))
#s(approx K #s(hole binary64 K))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K (+ m n))) M)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (* (* n K) 1/2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (* n K) #s(hole binary64 (* K n)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 m)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (+ m n))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 m) (/ M K))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* 1/2 (* K (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* -1/8 (* (pow K 2) (* m (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* m (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* -1/48 (* (pow K 3) (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (+ (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))) (* m (+ (* -1/2 (* K (* M (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M)))))) (+ (* -1/8 (* (pow K 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (+ (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))) (* m (+ (* -1/2 (* K (* M (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M)))))) (+ (* -1/8 (* (pow K 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* (sin (neg M)) (- (* 1/2 (pow M 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (+ (* -1/4 M) (* 1/6 (pow M 3))))))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow M 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* M (* m (exp (- (fabs (- n m)) (+ l (pow M 2)))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* m (+ (* M (exp (- (fabs (- n m)) (+ l (pow M 2))))) (* m (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* m (+ (* M (exp (- (fabs (- n m)) (+ l (pow M 2))))) (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (+ (* -1/4 M) (* 1/6 (pow M 3))))) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow M 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M m)) (+ l (pow M 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- (* -1/4 m) (* -1 M)))) (+ l (pow M 2)))))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (- n m))))
#s(approx (- n m) #s(hole binary64 n))
#s(approx (- n m) #s(hole binary64 (+ n (* -1 m))))
#s(approx m #s(hole binary64 m))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (pow M 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* -1 (* M m)) (pow M 2)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* m (+ (* -1 M) (* 1/4 m))) (pow M 2)))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (neg M))))) (* 1/2 (* K (sin (neg M)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (neg M)))) (* 1/48 (* (pow K 3) (* m (sin (neg M))))))) (* 1/2 (* K (sin (neg M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K n)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K n)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (+ (* 1/2 (* K m)) (* 1/2 (* K n)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- M (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- (+ M (* -1/4 m)) (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (- m n)))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (- m n))))
#s(approx (- m n) #s(hole binary64 (* -1 n)))
#s(approx (- m n) #s(hole binary64 (- m n)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- n m)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ M m) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ (fabs (- n m)) (pow m 2)) (+ 1/4 (+ (* -1 (/ M m)) (+ (/ l (pow m 2)) (/ (pow M 2) (pow m 2)))))))))
#s(approx (- n m) #s(hole binary64 (* -1 m)))
#s(approx (- n m) #s(hole binary64 (* m (- (/ n m) 1))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ M m))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (+ (* -1 (/ M m)) (+ (/ l (pow m 2)) (/ (pow M 2) (pow m 2))))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* m (+ (* -1 (/ M m)) (* 1/2 K)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (+ (* -1 (/ (pow (- (* 1/2 n) M) 2) (pow m 2))) (/ M m)) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- m n) #s(hole binary64 m))
#s(approx (- m n) #s(hole binary64 (* m (+ 1 (* -1 (/ n m))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (+ n (* -1 m))) (+ l (pow (+ M (* -1/2 m)) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (+ n (* -1 m))) (+ l (pow (+ M (* -1/2 m)) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ n (* -1 m))) (+ l (pow M 2))) m)) M) m)) 1/4))))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (+ n (* -1 m)))))
#s(approx (- n m) #s(hole binary64 (* -1 (* m (+ 1 (* -1 (/ n m)))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ M (* -1 (/ (+ l (pow M 2)) m))) m))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (/ M m))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- n (* -1 m)))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 n) M) 2) m) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (neg (+ n (* -1 m)))))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (neg (+ n (* -1 m))))))
#s(approx (- m n) #s(hole binary64 (* -1 (* m (- (/ n m) 1)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* 1/2 (* K (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* -1/8 (* (pow K 2) (* n (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* n (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* -1/48 (* (pow K 3) (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (* (* n n) -1/4) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (* n n) #s(hole binary64 (pow n 2)))
#s(approx n #s(hole binary64 n))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- n m) #s(hole binary64 (- n m)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- M (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- (+ M (* -1/4 n)) (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (- m n) #s(hole binary64 (+ m (* -1 n))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- n m)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- n m) #s(hole binary64 (* n (+ 1 (* -1 (/ m n))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (+ (* -1 (/ (pow (- (* 1/2 m) M) 2) (pow n 2))) (/ M n)) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- m n) #s(hole binary64 (* n (- (/ m n) 1))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (neg (+ m (* -1 n))))))
#s(approx (- n m) #s(hole binary64 (* -1 (* n (- (/ m n) 1)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- m (* -1 n)))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 m) M) 2) n) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (+ m (* -1 n))))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (+ m (* -1 n)))))
#s(approx (- m n) #s(hole binary64 (* -1 (* n (+ 1 (* -1 (/ m n)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (+ (* M (+ (* -1/2 (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (neg (* M M)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx M #s(hole binary64 M))
#s(approx (cos M) #s(hole binary64 1))
#s(approx (cos M) #s(hole binary64 (+ 1 (* -1/2 (pow M 2)))))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2)))))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))) (+ (* 1/6 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* -1 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* -1/2 (* M (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* M (+ (* -1/2 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* 1/6 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m)))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (+ (* m (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1)))))) (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (+ (* M (+ (* -1/2 (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))) (+ (* -1/6 (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (+ (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (+ (* -1 m) (* 1/6 (pow m 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* (sin (* 1/2 (* K m))) (- (* 1/2 (pow m 2)) 1))))))) (+ (* m (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1))))))) (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1))) (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (+ (* -1 m) (* 1/6 (pow m 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1)))) (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M m)) (+ l (* 1/4 (pow m 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (- (* -1 M) (* -1 m)))) (+ l (* 1/4 (pow m 2))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (* 1/4 (pow m 2)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* -1 (* M m)) (* 1/4 (pow m 2))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* 1/4 (pow m 2)) (* M (+ M (* -1 m)))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (* 1/2 (* K m)))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (sin (* 1/2 (* K m)))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K m))))) (* -1 (sin (* 1/2 (* K m)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K m)))) (* -1/6 (* M (sin (* 1/2 (* K m))))))) (* -1 (sin (* 1/2 (* K m)))))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K m)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (* 1/2 (* K (+ m n))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K (+ m n))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow (+ m n) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (+ m n)) (* 1/4 (pow (+ m n) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (- (* -1 M) (* -1 (+ m n)))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- n m)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (cos M) #s(hole binary64 (cos M)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ m M) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- n m)) (pow M 2)) (+ 1 (+ (* -1 (/ m M)) (+ (* 1/4 (/ (pow m 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (pow M 2)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ m M))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ m M)) (+ (* 1/4 (/ (pow m 2) (pow M 2))) (/ l (pow M 2))))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K m) M)) 1))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1/4 (/ (pow (+ m n) 2) (pow M 2))) (+ 1 (* -1 (/ (+ m n) M)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K m)))) (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 m)) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 m)) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))) M)) m) M)) 1))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (* -1 (/ (+ l (* 1/4 (pow m 2))) M))) M))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K m))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K m) M)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* 1/4 (/ (pow (+ m n) 2) M)) (+ m n)) M)) 1))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* -1 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* 1/2 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* l (+ (* -1/6 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* 1/2 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (neg l) #s(hole binary64 (* -1 l)))
#s(approx l #s(hole binary64 l))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* -1 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))) (* 1/2 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* 1/2 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (pow (- (* 1/2 m) M) 2)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (pow (- (* 1/2 m) M) 2))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (fabs (- m n)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* l (- (/ (fabs (- n m)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 l)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* l (- (/ (fabs (- n m)) l) (+ 1 (/ (pow (- (* 1/2 m) M) 2) l))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 l))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* l (+ 1 (/ (pow (- (* 1/2 m) M) 2) l)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 l))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* l (+ 1 (* -1 (/ (fabs (- m n)) l))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)) l)))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* -1 (* l (- (* -1 (/ (pow (- (* 1/2 m) M) 2) l)) 1)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (* l (- (/ (fabs (- m n)) l) 1)))))

Calls

15 calls:

Time	Variable		Point	Expression
7.0ms	m	@	inf	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg (* M M)) (* M M) M (cos M) 1 (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg l) l (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos M) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* n n) -1/4) (* n n) n -1/4 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (fabs (- n m)) (- n m) m (+ (pow (- (* 1/2 m) M) 2) l) (cos (- (* (* m K) 1/2) M)) (- (* (* m K) 1/2) M) (* (* m K) 1/2) (* m K) K 1/2 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* (* n K) 1/2) (* n K) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))) (fabs (- m n)) (- m n))
6.0ms	l	@	inf	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg (* M M)) (* M M) M (cos M) 1 (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg l) l (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos M) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* n n) -1/4) (* n n) n -1/4 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (fabs (- n m)) (- n m) m (+ (pow (- (* 1/2 m) M) 2) l) (cos (- (* (* m K) 1/2) M)) (- (* (* m K) 1/2) M) (* (* m K) 1/2) (* m K) K 1/2 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* (* n K) 1/2) (* n K) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))) (fabs (- m n)) (- m n))
5.0ms	n	@	-inf	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg (* M M)) (* M M) M (cos M) 1 (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg l) l (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos M) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* n n) -1/4) (* n n) n -1/4 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (fabs (- n m)) (- n m) m (+ (pow (- (* 1/2 m) M) 2) l) (cos (- (* (* m K) 1/2) M)) (- (* (* m K) 1/2) M) (* (* m K) 1/2) (* m K) K 1/2 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* (* n K) 1/2) (* n K) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))) (fabs (- m n)) (- m n))
4.0ms	n	@	inf	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg (* M M)) (* M M) M (cos M) 1 (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg l) l (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos M) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* n n) -1/4) (* n n) n -1/4 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (fabs (- n m)) (- n m) m (+ (pow (- (* 1/2 m) M) 2) l) (cos (- (* (* m K) 1/2) M)) (- (* (* m K) 1/2) M) (* (* m K) 1/2) (* m K) K 1/2 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* (* n K) 1/2) (* n K) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))) (fabs (- m n)) (- m n))
4.0ms	n	@	0	((* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg (* M M)) (* M M) M (cos M) 1 (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg l) l (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos M) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (* (* n n) -1/4) (* n n) n -1/4 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (fabs (- n m)) (- n m) m (+ (pow (- (* 1/2 m) M) 2) l) (cos (- (* (* m K) 1/2) M)) (- (* (* m K) 1/2) M) (* (* m K) 1/2) (* m K) K 1/2 (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (cos (- (/ (* K (+ m n)) 2) M)) (- (/ (* K (+ m n)) 2) M) (/ (* K (+ m n)) 2) (* (* n K) 1/2) (* n K) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))) (fabs (- m n)) (- m n))

simplify251.0ms (3.5%)

Memory

5.1MiB live, 294.6MiB allocated; 19ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1964	20683
1	6352	20644
0	8396	19975

Stop Event

1×	iter limit
1×	node limit

Counts

405 → 405

Calls

Call 1

Inputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/8 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))) (* K (+ (* -1/8 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* -1/8 (* K (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))) (* K (+ (* -1/8 (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (pow (+ m n) 3)))))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* -1/2 (* K (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M)))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* K (+ (* -1/2 (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M))))) (* -1/8 (* K (* (pow m 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* K (+ (* -1/2 (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M))))) (* K (+ (* -1/8 (* (pow m 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* 1/48 (* K (* (pow m 3) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* m (sin (neg M))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (pow m 2) (cos (neg M))))) (* 1/2 (* m (sin (neg M)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (pow m 2) (cos (neg M)))) (* 1/48 (* K (* (pow m 3) (sin (neg M))))))) (* 1/2 (* m (sin (neg M)))))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx (* (* m K) 1/2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (* m K) #s(hole binary64 (* K m)))
#s(approx K #s(hole binary64 K))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K (+ m n))) M)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (* (* n K) 1/2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (* n K) #s(hole binary64 (* K n)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 m)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (+ m n))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 m) (/ M K))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* 1/2 (* K (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* -1/8 (* (pow K 2) (* m (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* m (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* -1/48 (* (pow K 3) (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (+ (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))) (* m (+ (* -1/2 (* K (* M (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M)))))) (+ (* -1/8 (* (pow K 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (+ (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))) (* m (+ (* -1/2 (* K (* M (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M)))))) (+ (* -1/8 (* (pow K 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* (sin (neg M)) (- (* 1/2 (pow M 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (+ (* -1/4 M) (* 1/6 (pow M 3))))))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow M 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* M (* m (exp (- (fabs (- n m)) (+ l (pow M 2)))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* m (+ (* M (exp (- (fabs (- n m)) (+ l (pow M 2))))) (* m (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* m (+ (* M (exp (- (fabs (- n m)) (+ l (pow M 2))))) (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (+ (* -1/4 M) (* 1/6 (pow M 3))))) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow M 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M m)) (+ l (pow M 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- (* -1/4 m) (* -1 M)))) (+ l (pow M 2)))))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (- n m))))
#s(approx (- n m) #s(hole binary64 n))
#s(approx (- n m) #s(hole binary64 (+ n (* -1 m))))
#s(approx m #s(hole binary64 m))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (pow M 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* -1 (* M m)) (pow M 2)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* m (+ (* -1 M) (* 1/4 m))) (pow M 2)))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (neg M))))) (* 1/2 (* K (sin (neg M)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (neg M)))) (* 1/48 (* (pow K 3) (* m (sin (neg M))))))) (* 1/2 (* K (sin (neg M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K n)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K n)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (+ (* 1/2 (* K m)) (* 1/2 (* K n)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- M (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- (+ M (* -1/4 m)) (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (- m n)))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (- m n))))
#s(approx (- m n) #s(hole binary64 (* -1 n)))
#s(approx (- m n) #s(hole binary64 (- m n)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- n m)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ M m) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ (fabs (- n m)) (pow m 2)) (+ 1/4 (+ (* -1 (/ M m)) (+ (/ l (pow m 2)) (/ (pow M 2) (pow m 2)))))))))
#s(approx (- n m) #s(hole binary64 (* -1 m)))
#s(approx (- n m) #s(hole binary64 (* m (- (/ n m) 1))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ M m))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (+ (* -1 (/ M m)) (+ (/ l (pow m 2)) (/ (pow M 2) (pow m 2))))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* m (+ (* -1 (/ M m)) (* 1/2 K)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (+ (* -1 (/ (pow (- (* 1/2 n) M) 2) (pow m 2))) (/ M m)) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- m n) #s(hole binary64 m))
#s(approx (- m n) #s(hole binary64 (* m (+ 1 (* -1 (/ n m))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (+ n (* -1 m))) (+ l (pow (+ M (* -1/2 m)) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (+ n (* -1 m))) (+ l (pow (+ M (* -1/2 m)) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ n (* -1 m))) (+ l (pow M 2))) m)) M) m)) 1/4))))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (+ n (* -1 m)))))
#s(approx (- n m) #s(hole binary64 (* -1 (* m (+ 1 (* -1 (/ n m)))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ M (* -1 (/ (+ l (pow M 2)) m))) m))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (/ M m))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- n (* -1 m)))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 n) M) 2) m) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (neg (+ n (* -1 m)))))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (neg (+ n (* -1 m))))))
#s(approx (- m n) #s(hole binary64 (* -1 (* m (- (/ n m) 1)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* 1/2 (* K (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* -1/8 (* (pow K 2) (* n (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* n (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* -1/48 (* (pow K 3) (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (* (* n n) -1/4) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (* n n) #s(hole binary64 (pow n 2)))
#s(approx n #s(hole binary64 n))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- n m) #s(hole binary64 (- n m)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- M (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- (+ M (* -1/4 n)) (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (- m n) #s(hole binary64 (+ m (* -1 n))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- n m)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- n m) #s(hole binary64 (* n (+ 1 (* -1 (/ m n))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (+ (* -1 (/ (pow (- (* 1/2 m) M) 2) (pow n 2))) (/ M n)) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- m n) #s(hole binary64 (* n (- (/ m n) 1))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (neg (+ m (* -1 n))))))
#s(approx (- n m) #s(hole binary64 (* -1 (* n (- (/ m n) 1)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- m (* -1 n)))) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 m) M) 2) n) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (+ m (* -1 n))))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (+ m (* -1 n)))))
#s(approx (- m n) #s(hole binary64 (* -1 (* n (+ 1 (* -1 (/ m n)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (+ (* M (+ (* -1/2 (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (neg (* M M)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx M #s(hole binary64 M))
#s(approx (cos M) #s(hole binary64 1))
#s(approx (cos M) #s(hole binary64 (+ 1 (* -1/2 (pow M 2)))))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2)))))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))) (+ (* 1/6 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* -1 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* -1/2 (* M (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* M (+ (* -1/2 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* 1/6 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m)))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (+ (* m (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1)))))) (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (+ (* M (+ (* -1/2 (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))) (+ (* -1/6 (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (+ (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (+ (* -1 m) (* 1/6 (pow m 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* (sin (* 1/2 (* K m))) (- (* 1/2 (pow m 2)) 1))))))) (+ (* m (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1))))))) (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1))) (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (+ (* -1 m) (* 1/6 (pow m 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1)))) (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M m)) (+ l (* 1/4 (pow m 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (- (* -1 M) (* -1 m)))) (+ l (* 1/4 (pow m 2))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (* 1/4 (pow m 2)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* -1 (* M m)) (* 1/4 (pow m 2))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* 1/4 (pow m 2)) (* M (+ M (* -1 m)))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (* 1/2 (* K m)))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (sin (* 1/2 (* K m)))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K m))))) (* -1 (sin (* 1/2 (* K m)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K m)))) (* -1/6 (* M (sin (* 1/2 (* K m))))))) (* -1 (sin (* 1/2 (* K m)))))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K m)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (* 1/2 (* K (+ m n))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K (+ m n))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow (+ m n) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (+ m n)) (* 1/4 (pow (+ m n) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (- (* -1 M) (* -1 (+ m n)))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- n m)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (cos M) #s(hole binary64 (cos M)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ m M) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- n m)) (pow M 2)) (+ 1 (+ (* -1 (/ m M)) (+ (* 1/4 (/ (pow m 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (pow M 2)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ m M))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ m M)) (+ (* 1/4 (/ (pow m 2) (pow M 2))) (/ l (pow M 2))))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K m) M)) 1))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1/4 (/ (pow (+ m n) 2) (pow M 2))) (+ 1 (* -1 (/ (+ m n) M)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K m)))) (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 m)) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 m)) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))) M)) m) M)) 1))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (* -1 (/ (+ l (* 1/4 (pow m 2))) M))) M))))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K m))))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K m) M)))))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* 1/4 (/ (pow (+ m n) 2) M)) (+ m n)) M)) 1))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* -1 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* 1/2 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* l (+ (* -1/6 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* 1/2 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (neg l) #s(hole binary64 (* -1 l)))
#s(approx l #s(hole binary64 l))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* -1 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))) (* 1/2 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* 1/2 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (pow (- (* 1/2 m) M) 2)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (pow (- (* 1/2 m) M) 2))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (fabs (- m n)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* l (- (/ (fabs (- n m)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 l)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* l (- (/ (fabs (- n m)) l) (+ 1 (/ (pow (- (* 1/2 m) M) 2) l))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 l))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* l (+ 1 (/ (pow (- (* 1/2 m) M) 2) l)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 l))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* l (+ 1 (* -1 (/ (fabs (- m n)) l))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)) l)))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* -1 (* l (- (* -1 (/ (pow (- (* 1/2 m) M) 2) l)) 1)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (* l (- (/ (fabs (- m n)) l) 1)))))

Outputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))) (cos.f64 M)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* -1/8 (* K (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) (cos.f64 M)) (.f64 (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64))) K (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (+ m n)))) (* K (+ (* -1/8 (* (cos (neg M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 2)))) (* 1/48 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (neg M)) (pow (+ m n) 3))))))))) (* (cos (neg M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (cos.f64 M)) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))) K (.f64 (.f64 (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64))) K (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) (+.f64 n m)) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* -1/8 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))) (+.f64 n m)) (.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))) K (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (+ m n)))) (* K (+ (* -1/8 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (* 1/2 (PI)) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) K) (.f64 (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) (pow.f64 (+.f64 n m) #s(literal 3 binary64))) (.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))) #s(literal -1/8 binary64))) K (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))) (+.f64 n m)))) K (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) M)))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* 1/2 (* K (* (cos (- (* 1/2 (PI)) M)) (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (+.f64 n m)) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* -1/8 (* K (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2)))) (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (+.f64 n m)) #s(literal 1/2 binary64))) K (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) M)) (* K (+ (* 1/2 (* (cos (- (* 1/2 (PI)) M)) (+ m n))) (* K (+ (* -1/8 (* (sin (- (* 1/2 (PI)) M)) (pow (+ m n) 2))) (* -1/48 (* K (* (cos (- (* 1/2 (PI)) M)) (pow (+ m n) 3)))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M))) (+.f64 n m) (.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (pow.f64 (+.f64 n m) #s(literal 3 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M)) (pow.f64 (+.f64 n m) #s(literal 2 binary64))) #s(literal -1/8 binary64))) K)) K (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* -1/2 (* K (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M)))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M))) m) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* K (+ (* -1/2 (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M))))) (* -1/8 (* K (* (pow m 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (.f64 (.f64 m m) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 #s(literal -1/2 binary64) m) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M))))) K (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* K (+ (* -1/2 (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M))))) (* K (+ (* -1/8 (* (pow m 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* 1/48 (* K (* (pow m 3) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (neg M)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 m #s(literal 3 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M)))) (.f64 (.f64 (.f64 (.f64 m m) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) #s(literal -1/8 binary64))) K (.f64 (.f64 #s(literal -1/2 binary64) m) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (neg.f64 (sin.f64 M))))) K (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (cos (- (* (* m K) 1/2) M)) (cos.f64 M))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* m (sin (neg M))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (fma.f64 (.f64 #s(literal -1/2 binary64) K) (neg.f64 (.f64 (sin.f64 M) m)) (cos.f64 M)))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (pow m 2) (cos (neg M))))) (* 1/2 (* m (sin (neg M)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (.f64 m m) (cos.f64 M)) (.f64 (*.f64 #s(literal -1/2 binary64) m) (neg.f64 (sin.f64 M)))) K (cos.f64 M)))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (pow m 2) (cos (neg M)))) (* 1/48 (* K (* (pow m 3) (sin (neg M))))))) (* 1/2 (* m (sin (neg M)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 m #s(literal 3 binary64)) (neg.f64 (sin.f64 M))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 m m)) (cos.f64 M))) K (.f64 (*.f64 #s(literal -1/2 binary64) m) (neg.f64 (sin.f64 M)))) K (cos.f64 M)))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (* (* m K) 1/2) M) (neg.f64 M))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx (- (* (* m K) 1/2) M) (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))
#s(approx (* (* m K) 1/2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (* (* m K) 1/2) (.f64 (.f64 m K) #s(literal 1/2 binary64)))
#s(approx (* m K) #s(hole binary64 (* K m)))
#s(approx (* m K) (*.f64 m K))
#s(approx K #s(hole binary64 K))
#s(approx K K)
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (neg M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* -1/2 (* K (* (sin (neg M)) (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)) (cos.f64 M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* -1/8 (* K (* (cos (neg M)) (pow (+ m n) 2)))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (cos.f64 M)) (.f64 #s(literal -1/2 binary64) (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)))) K (cos.f64 M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (neg M)) (* K (- (* K (+ (* -1/8 (* (cos (neg M)) (pow (+ m n) 2))) (* 1/48 (* K (* (sin (neg M)) (pow (+ m n) 3)))))) (* 1/2 (* (sin (neg M)) (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (cos.f64 M)) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 1/48 binary64) K) (.f64 (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (sin.f64 M))))) K (.f64 #s(literal -1/2 binary64) (.f64 (neg.f64 (sin.f64 M)) (+.f64 n m)))) K (cos.f64 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (neg.f64 M))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K (+ m n))) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (/ (* K (+ m n)) 2) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))
#s(approx (* (* n K) 1/2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (* (* n K) 1/2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
#s(approx (* n K) #s(hole binary64 (* K n)))
#s(approx (* n K) (*.f64 n K))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (cos (- (* (* m K) 1/2) M)) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (* (* m K) 1/2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 m)))))
#s(approx (- (* (* m K) 1/2) M) (*.f64 (fma.f64 #s(literal 1/2 binary64) m (/.f64 (neg.f64 M) K)) K))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (+ m n))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K (+ m n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* K (+ (* -1 (/ M K)) (* 1/2 (+ m n))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (*.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (/.f64 (neg.f64 M) K)) K))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 m) (/ M K))))))
#s(approx (- (* (* m K) 1/2) M) (*.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) m (/.f64 M K))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* K (+ (* -1/2 (+ m n)) (/ M K))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (*.f64 (neg.f64 K) (fma.f64 #s(literal -1/2 binary64) (+.f64 n m) (/.f64 M K))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) K) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))) m (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- M (* 1/2 n)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (* 1/2 (* K n)) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (* 1/2 (* K n)) M))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K n)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))) (* (cos (- (* 1/2 (* K n)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) K) #s(literal -1/2 binary64) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))))))) m (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))))) m (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 M)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (.f64 (cos.f64 M) m) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (.f64 (cos.f64 M) m) (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 M)) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* m (+ (* m (+ (* m (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 M) m) (.f64 (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 M)) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))) m (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 M)) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (.f64 m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) m M) (.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))) m (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))) m (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* m (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))) (+ (* m (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (- M (* 1/2 n))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (.f64 K K)) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))) m (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (-.f64 M (.f64 #s(literal 1/2 binary64) n))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))) m (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* 1/2 (* K (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) m) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* -1/8 (* (pow K 2) (* m (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) m) (.f64 (.f64 #s(literal 1/2 binary64) K) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)))) m (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 n K))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)) (* m (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* m (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M)))) (* -1/48 (* (pow K 3) (* m (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K n))) M))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)) m) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)))) m (.f64 (.f64 #s(literal 1/2 binary64) K) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M)))) m (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 n K))) M))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (* m (+ (* m (+ (* m (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (+ (* -1/4 (- M (* 1/2 n))) (* 1/6 (pow (- M (* 1/2 n)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 n)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))) (- M (* 1/2 n))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (fma.f64 (.f64 m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))) (fma.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 M (.f64 #s(literal 1/2 binary64) n)))) (.f64 (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))))) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- M (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* m (- (+ M (* -1/4 m)) (* 1/2 n)))) (+ l (pow (- (* 1/2 n) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) m M) (.f64 #s(literal 1/2 binary64) n)) m (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (cos.f64 M)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (.f64 M (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (neg.f64 (sin.f64 M))))) m (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (+ (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))) (* m (+ (* -1/2 (* K (* M (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M)))))) (+ (* -1/8 (* (pow K 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (neg.f64 (sin.f64 M))) K) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (neg.f64 (sin.f64 M))) M) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (cos.f64 M)) (.f64 (.f64 (-.f64 (.f64 (.f64 M M) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))) (cos.f64 M)))) m (.f64 (.f64 M (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))))) m (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (+ (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))) (* m (+ (* -1/2 (* K (* M (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M)))))) (+ (* -1/8 (* (pow K 2) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))) (+ (* m (+ (* -1/2 (* K (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* (sin (neg M)) (- (* 1/2 (pow M 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* M (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2)))))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (sin (neg M))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (+ (* -1/4 M) (* 1/6 (pow M 3))))))))) (* (cos (neg M)) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4)))))))))) (* (cos (neg M)) (exp (- (fabs (- n m)) (+ l (pow M 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (neg.f64 (sin.f64 M))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (neg.f64 (sin.f64 M))) M) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (cos.f64 M)) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 M M) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (neg.f64 (sin.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))) K) #s(literal -1/2 binary64) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 M (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))) (fma.f64 (.f64 (fma.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))) (cos.f64 M) (.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (neg.f64 (sin.f64 M))))))) m (.f64 (.f64 (-.f64 (.f64 (.f64 M M) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))) (cos.f64 M))))) m (.f64 (.f64 M (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))))) m (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (cos.f64 M))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow M 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* M (* m (exp (- (fabs (- n m)) (+ l (pow M 2)))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (*.f64 M m) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* m (+ (* M (exp (- (fabs (- n m)) (+ l (pow M 2))))) (* m (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) m) (-.f64 (.f64 (.f64 M M) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) M)) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow M 2)))) (* m (+ (* M (exp (- (fabs (- n m)) (+ l (pow M 2))))) (* m (+ (* m (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (+ (* -1/4 M) (* 1/6 (pow M 3))))) (* (exp (- (fabs (- n m)) (+ l (pow M 2)))) (- (* 1/2 (pow M 2)) 1/4)))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) m) (fma.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 #s(literal -1/4 binary64) M)) (.f64 (-.f64 (.f64 (.f64 M M) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))))) m (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l))) M)) m (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow M 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 M M l)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M m)) (+ l (pow M 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fma.f64 M m (fabs.f64 (-.f64 n m))) (fma.f64 M M l)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* m (- (* -1/4 m) (* -1 M)))) (+ l (pow M 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) m (*.f64 #s(literal 1 binary64) M)) m (fabs.f64 (-.f64 n m))) (fma.f64 M M l)))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (- n m))))
#s(approx (fabs (- n m)) (fabs.f64 (-.f64 n m)))
#s(approx (- n m) #s(hole binary64 n))
#s(approx (- n m) n)
#s(approx (- n m) #s(hole binary64 (+ n (* -1 m))))
#s(approx (- n m) (fma.f64 #s(literal -1 binary64) m n))
#s(approx m #s(hole binary64 m))
#s(approx m m)
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (pow M 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (fma.f64 M M l))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* -1 (* M m)) (pow M 2)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (fma.f64 (fma.f64 #s(literal -1 binary64) m M) M l))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* m (+ (* -1 M) (* 1/4 m))) (pow M 2)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (+.f64 (fma.f64 (fma.f64 #s(literal 1/4 binary64) m (neg.f64 M)) m (*.f64 M M)) l))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (neg M))))) (* 1/2 (* K (sin (neg M)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (cos.f64 M) m) (.f64 (*.f64 #s(literal -1/2 binary64) K) (neg.f64 (sin.f64 M)))) m (cos.f64 M)))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (neg M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (neg M)))) (* 1/48 (* (pow K 3) (* m (sin (neg M))))))) (* 1/2 (* K (sin (neg M)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (neg.f64 (.f64 (sin.f64 M) m)) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 M))) m (.f64 (*.f64 #s(literal -1/2 binary64) K) (neg.f64 (sin.f64 M)))) m (cos.f64 M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K n)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* -1/2 (* K (* m (sin (- (* 1/2 (* K n)) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) m) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* -1/8 (* (pow K 2) (* m (cos (- (* 1/2 (* K n)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) m) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))) m (cos.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K n)) M)) (* m (- (* m (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K n)) M)))) (* 1/48 (* (pow K 3) (* m (sin (- (* 1/2 (* K n)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K n)) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)) m) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))) m (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M)))) m (cos.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K n)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (+ (* 1/2 (* K m)) (* 1/2 (* K n))) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (+ (* 1/2 (* K m)) (* 1/2 (* K n)))))
#s(approx (/ (* K (+ m n)) 2) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (neg.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- M (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (-.f64 (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) n)) m) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* m (- (+ M (* -1/4 m)) (* 1/2 n))) (pow (- (* 1/2 n) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (fma.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) m M) (.f64 #s(literal 1/2 binary64) n)) m (neg.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)))))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (- m n)))))
#s(approx (- l (fabs (- m n))) (-.f64 l (fabs.f64 (-.f64 n m))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (- m n))))
#s(approx (fabs (- n m)) (fabs.f64 (-.f64 n m)))
#s(approx (- m n) #s(hole binary64 (* -1 n)))
#s(approx (- m n) (neg.f64 n))
#s(approx (- m n) #s(hole binary64 (- m n)))
#s(approx (- m n) (-.f64 m n))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))) (cos.f64 M)))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 #s(literal -1/4 binary64) (.f64 m m)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- n m)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (/.f64 M m)) (+.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l) (.f64 m m)))) (*.f64 m m)))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (+ (/ M m) (/ (fabs (- m n)) (pow m 2))) (+ 1/4 (+ (* 1/2 (/ n m)) (+ (/ l (pow m 2)) (/ (pow (- (* 1/2 n) M) 2) (pow m 2)))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (/.f64 M m)) (+.f64 (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l) (.f64 m m)))) (*.f64 m m)))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 #s(literal -1/4 binary64) (.f64 m m)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ M m) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 (-.f64 (/.f64 M m) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (/ (fabs (- n m)) (pow m 2)) (+ 1/4 (+ (* -1 (/ M m)) (+ (/ l (pow m 2)) (/ (pow M 2) (pow m 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 m m)) (+.f64 (fma.f64 (/.f64 M m) #s(literal -1 binary64) #s(literal 1/4 binary64)) (/.f64 (fma.f64 M M l) (.f64 m m)))) (.f64 m m)))
#s(approx (- n m) #s(hole binary64 (* -1 m)))
#s(approx (- n m) (neg.f64 m))
#s(approx (- n m) #s(hole binary64 (* m (- (/ n m) 1))))
#s(approx (- n m) (*.f64 (-.f64 (/.f64 n m) #s(literal 1 binary64)) m))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* 1/4 (pow m 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 #s(literal 1/4 binary64) (.f64 m m)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ M m))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 (fma.f64 (/.f64 M m) #s(literal -1 binary64) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (+ (* -1 (/ M m)) (+ (/ l (pow m 2)) (/ (pow M 2) (pow m 2))))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 (+.f64 (fma.f64 (/.f64 M m) #s(literal -1 binary64) #s(literal 1/4 binary64)) (/.f64 (fma.f64 M M l) (.f64 m m))) (*.f64 m m)))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* m (+ (* -1 (/ M m)) (* 1/2 K)))))
#s(approx (- (* (* m K) 1/2) M) (*.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (neg.f64 M) m)) m))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* m (- (+ (* 1/2 K) (* 1/2 (/ (* K n) m))) (/ M m)))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M) m)) m))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* 1/2 (* K m))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 m K) #s(literal 1/2 binary64)))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* m (+ (* 1/2 K) (* 1/2 (/ (* K n) m))))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (+.f64 K (*.f64 K (/.f64 n m)))) m))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow m 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 m m)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (/ M m) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 m m)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (+ (* -1 (/ (pow (- (* 1/2 n) M) 2) (pow m 2))) (/ M m)) (+ 1/4 (* 1/2 (/ n m)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (fma.f64 (/.f64 #s(literal -1 binary64) m) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) m) (-.f64 (/.f64 M m) (fma.f64 (/.f64 n m) #s(literal 1/2 binary64) #s(literal 1/4 binary64)))) (*.f64 m m)))
#s(approx (- m n) #s(hole binary64 m))
#s(approx (- m n) m)
#s(approx (- m n) #s(hole binary64 (* m (+ 1 (* -1 (/ n m))))))
#s(approx (- m n) (*.f64 (fma.f64 (/.f64 n m) #s(literal -1 binary64) #s(literal 1 binary64)) m))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- n (* -1 m)))) M)) (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) l) (pow.f64 (-.f64 (.f64 (-.f64 n (neg.f64 m)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) K) (-.f64 n (neg.f64 m))) M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) l) (pow.f64 (-.f64 (.f64 (-.f64 n (neg.f64 m)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))) (cos.f64 M)))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) l) (pow.f64 (-.f64 (*.f64 (-.f64 n (neg.f64 m)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m) #s(literal 1/4 binary64)) (*.f64 m m)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ n (* -1 m))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (-.f64 (/.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)) m) (-.f64 (.f64 #s(literal 1/2 binary64) n) M))) m)) #s(literal 1/4 binary64)) (*.f64 m m)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (-.f64 n (neg.f64 m)) K))) M)) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) l) (pow.f64 (-.f64 (.f64 (-.f64 n (neg.f64 m)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- n (* -1 m))))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (-.f64 n (neg.f64 m)) K))) M)))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 (- n (* -1 m))) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) l) (pow.f64 (-.f64 (*.f64 (-.f64 n (neg.f64 m)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m) #s(literal 1/4 binary64)) (*.f64 m m)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ n (* -1 m)))) (+ l (pow (- (* 1/2 n) M) 2))) m)) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (-.f64 (/.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l)) m) (-.f64 (.f64 #s(literal 1/2 binary64) n) M))) m)) #s(literal 1/4 binary64)) (*.f64 m m)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (+ n (* -1 m))) (+ l (pow (+ M (* -1/2 m)) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) (+.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (+ n (* -1 m))) (+ l (pow (+ M (* -1/2 m)) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (exp.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) (+.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) l))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ n (* -1 m))) (+ l (pow M 2))) m)) M) m)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)) (fma.f64 M M l)) m)) M) m)) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (+ n (* -1 m)))))
#s(approx (fabs (- n m)) (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)))
#s(approx (- n m) #s(hole binary64 (* -1 (* m (+ 1 (* -1 (/ n m)))))))
#s(approx (- n m) (*.f64 (neg.f64 m) (fma.f64 (/.f64 n m) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow m 2) (+ 1/4 (* -1 (/ (+ M (* -1 (/ (+ l (pow M 2)) m))) m))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 M M l) m) #s(literal -1 binary64) M) m) #s(literal -1 binary64) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (/ M m))))))
#s(approx (- (* (* m K) 1/2) M) (*.f64 (neg.f64 m) (fma.f64 #s(literal -1/2 binary64) K (/.f64 M m))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- n (* -1 m)))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) K) (-.f64 n (neg.f64 m))) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* m (+ (* -1 (/ (- (* 1/2 (* K n)) M) m)) (* -1/2 K))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (neg.f64 m) (fma.f64 #s(literal -1/2 binary64) K (neg.f64 (/.f64 (-.f64 (.f64 (*.f64 n K) #s(literal 1/2 binary64)) M) m)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* m (+ (* -1/2 K) (* -1/2 (/ (* K n) m)))))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (+.f64 K (*.f64 K (/.f64 n m)))) m))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (* 1/2 n) M) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M)) m) #s(literal 1/4 binary64)) (*.f64 m m)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow m 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 n) M) 2) m) (* -1 (- (* 1/2 n) M))) m)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) m) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M))) m)) #s(literal 1/4 binary64)) (.f64 m m)))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (neg (+ n (* -1 m)))))))
#s(approx (- l (fabs (- m n))) (-.f64 l (fabs.f64 (fma.f64 #s(literal -1 binary64) m n))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (neg (+ n (* -1 m))))))
#s(approx (fabs (- n m)) (fabs.f64 (fma.f64 #s(literal -1 binary64) m n)))
#s(approx (- m n) #s(hole binary64 (* -1 (* m (- (/ n m) 1)))))
#s(approx (- m n) (*.f64 (neg.f64 m) (-.f64 (/.f64 n m) #s(literal 1 binary64))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))) n (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))) n (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))) n (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- M (* 1/2 m)))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/2 (* K (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (* 1/2 (* K m)) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (+ (* -1/8 (* (pow K 2) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* 1/48 (* (pow K 3) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (* 1/2 (* K m)) M))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (cos (- (* 1/2 (* K m)) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) K) (.f64 (.f64 (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (fma.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))))) n (.f64 (.f64 (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))))) n (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))) n (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (.f64 n (cos.f64 M)) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (.f64 n (cos.f64 M)) (.f64 (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M)) (fma.f64 #s(literal -1/2 binary64) m M))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* n (+ (* n (+ (* n (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3)))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (cos M) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (fma.f64 (.f64 n (cos.f64 M)) (.f64 (fma.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal -1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M)) (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))) n (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M)) (fma.f64 #s(literal -1/2 binary64) m M))) n (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 M))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal -1/4 binary64))) (.f64 (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) m M) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) n M) (.f64 #s(literal 1/2 binary64) m)) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (fma.f64 #s(literal -1/2 binary64) m M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))) n (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) K) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))) n (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (fma.f64 #s(literal -1/2 binary64) m M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))) n (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* n (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))) (+ (* n (+ (* -1/8 (* (pow K 2) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m)))))) (+ (* -1/48 (* (pow K 3) (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))) (+ (* 1/2 (* K (* (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (- M (* 1/2 m))))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) K) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) #s(literal 1/2 binary64) (fma.f64 (fma.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (.f64 K K)) #s(literal -1/8 binary64) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) K) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) #s(literal 1/2 binary64) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (fma.f64 #s(literal -1/2 binary64) m M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 #s(literal -1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) K) (.f64 (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (fma.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal -1/4 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))) n (.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (fma.f64 #s(literal -1/2 binary64) m M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))) n (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* 1/2 (* K (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 (.f64 n K) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M))) #s(literal 1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* -1/8 (* (pow K 2) (* n (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))) (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) n) (.f64 (.f64 #s(literal 1/2 binary64) K) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)))) n (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 m K))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)) (* n (+ (* 1/2 (* K (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* n (+ (* -1/8 (* (pow K 2) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M)))) (* -1/48 (* (pow K 3) (* n (cos (- (+ (* 1/2 (PI)) (* 1/2 (* K m))) M))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)) n) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)))) n (.f64 (.f64 #s(literal 1/2 binary64) K) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 m K))) M)))) n (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 m K))) M))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (* n (+ (* n (+ (* n (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (+ (* -1/4 (- M (* 1/2 m))) (* 1/6 (pow (- M (* 1/2 m)) 3))))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- (* 1/2 (pow (- M (* 1/2 m)) 2)) 1/4)))) (* (exp (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))) (- M (* 1/2 m))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (fma.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 3 binary64)) #s(literal 1/6 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal -1/4 binary64))) (.f64 (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- M (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) m M) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* n (- (+ M (* -1/4 n)) (* 1/2 m)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) n M) (.f64 #s(literal 1/2 binary64) m)) n (fabs.f64 (-.f64 n m))) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (* (* n n) -1/4) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (* (* n n) -1/4) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
#s(approx (* n n) #s(hole binary64 (pow n 2)))
#s(approx (* n n) (*.f64 n n))
#s(approx n #s(hole binary64 n))
#s(approx n n)
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (- n m) #s(hole binary64 (- n m)))
#s(approx (- n m) (-.f64 n m))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K m)) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* -1/2 (* K (* n (sin (- (* 1/2 (* K m)) M))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (.f64 (.f64 n K) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* -1/8 (* (pow K 2) (* n (cos (- (* 1/2 (* K m)) M))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) n) (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))) n (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (- (* 1/2 (* K m)) M)) (* n (- (* n (+ (* -1/8 (* (pow K 2) (cos (- (* 1/2 (* K m)) M)))) (* 1/48 (* (pow K 3) (* n (sin (- (* 1/2 (* K m)) M))))))) (* 1/2 (* K (sin (- (* 1/2 (* K m)) M)))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 K #s(literal 3 binary64))) (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) n) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))) n (.f64 (.f64 #s(literal -1/2 binary64) K) (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))) n (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (- (* 1/2 (* K m)) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (neg.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- M (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (-.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) m M) n) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* n (- (+ M (* -1/4 n)) (* 1/2 m))) (pow (- (* 1/2 m) M) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (fma.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) n M) (.f64 #s(literal 1/2 binary64) m)) n (neg.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))))
#s(approx (- m n) #s(hole binary64 (+ m (* -1 n))))
#s(approx (- m n) (fma.f64 #s(literal -1 binary64) n m))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- n m)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 n n)) (/.f64 M n)) (+.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (.f64 n n)))) (*.f64 n n)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (+ (/ M n) (/ (fabs (- m n)) (pow n 2))) (+ 1/4 (+ (* 1/2 (/ m n)) (+ (/ l (pow n 2)) (/ (pow (- (* 1/2 m) M) 2) (pow n 2)))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (+.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 n n)) (/.f64 M n)) (+.f64 (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (/.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) (.f64 n n)))) (*.f64 n n)))
#s(approx (- n m) #s(hole binary64 (* n (+ 1 (* -1 (/ m n))))))
#s(approx (- n m) (*.f64 (fma.f64 (/.f64 m n) #s(literal -1 binary64) #s(literal 1 binary64)) n))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* 1/2 (* K n))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* n (- (+ (* 1/2 K) (* 1/2 (/ (* K m) n))) (/ M n)))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M) n)) n))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* n (+ (* 1/2 K) (* 1/2 (/ (* K m) n))))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (+.f64 K (*.f64 K (/.f64 m n)))) n))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow n 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (/ M n) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64))) (.f64 n n)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (+ (* -1 (/ (pow (- (* 1/2 m) M) 2) (pow n 2))) (/ M n)) (+ 1/4 (* 1/2 (/ m n)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (fma.f64 (/.f64 #s(literal -1 binary64) n) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) n) (-.f64 (/.f64 M n) (fma.f64 (/.f64 m n) #s(literal 1/2 binary64) #s(literal 1/4 binary64)))) (*.f64 n n)))
#s(approx (- m n) #s(hole binary64 (* n (- (/ m n) 1))))
#s(approx (- m n) (*.f64 (-.f64 (/.f64 m n) #s(literal 1 binary64)) n))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (- m (* -1 n)))) M)) (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) l) (pow.f64 (-.f64 (.f64 (-.f64 m (neg.f64 n)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) K) (-.f64 m (neg.f64 n))) M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) l) (pow.f64 (-.f64 (.f64 (-.f64 m (neg.f64 n)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))) (cos.f64 M)))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) l) (pow.f64 (-.f64 (*.f64 (-.f64 m (neg.f64 n)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n) #s(literal 1/4 binary64)) (*.f64 n n)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (-.f64 (/.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)) n) (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) n)) #s(literal 1/4 binary64)) (*.f64 n n)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2)))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (-.f64 m (neg.f64 n)) K))) M)) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) l) (pow.f64 (-.f64 (.f64 (-.f64 m (neg.f64 n)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (- m (* -1 n))))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (-.f64 m (neg.f64 n)) K))) M)))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 (- m (* -1 n))) M) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) l) (pow.f64 (-.f64 (*.f64 (-.f64 m (neg.f64 n)) #s(literal 1/2 binary64)) M) #s(literal 2 binary64)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n) #s(literal 1/4 binary64)) (*.f64 n n)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (+ m (* -1 n))) (+ l (pow (- (* 1/2 m) M) 2))) n)) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (-.f64 (/.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)) n) (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) n)) #s(literal 1/4 binary64)) (*.f64 n n)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (exp.f64 (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (neg (+ m (* -1 n)))) (+ l (pow (- (* 1/2 m) M) 2)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))
#s(approx (fabs (- n m)) #s(hole binary64 (fabs (neg (+ m (* -1 n))))))
#s(approx (fabs (- n m)) (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)))
#s(approx (- n m) #s(hole binary64 (* -1 (* n (- (/ m n) 1)))))
#s(approx (- n m) (*.f64 (neg.f64 n) (-.f64 (/.f64 m n) #s(literal 1 binary64))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (- (* 1/2 (* K (- m (* -1 n)))) M))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) K) (-.f64 m (neg.f64 n))) M)))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* n (+ (* -1 (/ (- (* 1/2 (* K m)) M) n)) (* -1/2 K))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (neg.f64 n) (fma.f64 #s(literal -1/2 binary64) K (neg.f64 (/.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M) n)))))
#s(approx (/ (* K (+ m n)) 2) #s(hole binary64 (* -1 (* n (+ (* -1/2 K) (* -1/2 (/ (* K m) n)))))))
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (+.f64 K (*.f64 K (/.f64 m n)))) n))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (* 1/2 m) M) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M)) n) #s(literal 1/4 binary64)) (*.f64 n n)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow n 2) (- (* -1 (/ (- (/ (pow (- (* 1/2 m) M) 2) n) (* -1 (- (* 1/2 m) M))) n)) 1/4))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) n) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M))) n)) #s(literal 1/4 binary64)) (.f64 n n)))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (- l (fabs (+ m (* -1 n))))))
#s(approx (- l (fabs (- m n))) (-.f64 l (fabs.f64 (fma.f64 #s(literal -1 binary64) n m))))
#s(approx (fabs (- m n)) #s(hole binary64 (fabs (+ m (* -1 n)))))
#s(approx (fabs (- n m)) (fabs.f64 (fma.f64 #s(literal -1 binary64) n m)))
#s(approx (- m n) #s(hole binary64 (* -1 (* n (+ 1 (* -1 (/ m n)))))))
#s(approx (- m n) (*.f64 (neg.f64 n) (fma.f64 (/.f64 m n) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (*.f64 (+.f64 n m) K)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (+.f64 n m))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (*.f64 (+.f64 n m) K))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))) #s(literal -1/2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64))))) M (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (+.f64 n m)))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/6 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (* 1/2 (* K (+ m n)))) (+ m n))))))) (+ (* (cos (* 1/2 (* K (+ m n)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (* 1/2 (* K (+ m n)))))))) (* (cos (* 1/2 (* K (+ m n)))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))) #s(literal -1/2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))) #s(literal -1/2 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (fma.f64 (.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))))))) M (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))))) M (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (+.f64 n m)))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (cos.f64 (.f64 #s(literal -1/2 binary64) (*.f64 (+.f64 n m) K))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (fma.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) #s(literal -1/2 binary64))) M (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* -1/2 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))) (+ (* M (+ (* -1/2 (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3)))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (fma.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) #s(literal -1/2 binary64)) (+.f64 n m) (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (.f64 M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) M (.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 M (+.f64 n m) (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (-.f64 M (+.f64 n m))) M (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (neg (* M M)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (neg (* M M)) (*.f64 (neg.f64 M) M))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx (* M M) (*.f64 M M))
#s(approx M #s(hole binary64 M))
#s(approx M M)
#s(approx (cos M) #s(hole binary64 1))
#s(approx (cos M) #s(literal 1 binary64))
#s(approx (cos M) #s(hole binary64 (+ 1 (* -1/2 (pow M 2)))))
#s(approx (cos M) (fma.f64 (*.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* 1/24 (pow M 2)) 1/2)))))
#s(approx (cos M) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 M M)) #s(literal 1/2 binary64)) (*.f64 M M) #s(literal 1 binary64)))
#s(approx (cos M) #s(hole binary64 (+ 1 (* (pow M 2) (- (* (pow M 2) (+ 1/24 (* -1/720 (pow M 2)))) 1/2)))))
#s(approx (cos M) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 M M) #s(literal 1/24 binary64)) (.f64 M M)) #s(literal 1/2 binary64)) (.f64 M M) #s(literal 1 binary64)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (cos.f64 (fma.f64 #s(literal -1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (cos.f64 (fma.f64 #s(literal -1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (neg.f64 (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64)))) M (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))) (+ (* M (+ (* -1 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (+ (* -1/2 (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))) (+ (* 1/6 (* (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (- (* 1/2 (pow (+ m n) 2)) 1))))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (+ m n)))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (cos.f64 (fma.f64 #s(literal -1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (fma.f64 (fma.f64 (.f64 (neg.f64 (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 #s(literal -1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) #s(literal -1/2 binary64) (fma.f64 (.f64 #s(literal 1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))) M (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (+.f64 n m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))) M (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* -1 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (neg.f64 M) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* -1/2 (* M (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) M) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64)))) M (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))) (* M (+ (* -1 (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* M (+ (* -1/2 (sin (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))) (* 1/6 (* M (cos (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) M) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)))) #s(literal -1/2 binary64))) M (cos.f64 (fma.f64 #s(literal -1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (PI.f64)))) M (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m)) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ (* -1 (+ m n)) (* 1/6 (pow (+ m n) 3))))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (- (* 1/2 (pow (+ m n) 2)) 1)))) (* (exp (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))) (+ m n)))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (+.f64 n m) #s(literal 3 binary64)) (neg.f64 (+.f64 n m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))) M (.f64 (-.f64 (.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l))) (+.f64 n m))) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (+ m n))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 M (+.f64 n m) (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* M (- (* -1 M) (* -1 (+ m n))))) (+ l (* 1/4 (pow (+ m n) 2))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fma.f64 (*.f64 #s(literal -1 binary64) (-.f64 M (+.f64 n m))) M (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m)))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (.f64 m (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (+ (* m (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1)))))) (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m)) #s(literal -1/2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (fma.f64 (.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))) m (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m))) (-.f64 (.f64 (.f64 m m) #s(literal 1/2 binary64)) #s(literal 1 binary64))))) M (fma.f64 (.f64 m (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (cos.f64 (.f64 (*.f64 #s(literal -1/2 binary64) K) m)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* M (+ (* M (+ (* -1/2 (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (+ (* M (+ (* -1/2 (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))) (+ (* -1/6 (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (+ (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (+ (* -1 m) (* 1/6 (pow m 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* (sin (* 1/2 (* K m))) (- (* 1/2 (pow m 2)) 1))))))) (+ (* m (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))) (* (cos (* 1/2 (* K m))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1))))))) (+ (* m (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (sin (* 1/2 (* K m))))))) (* (cos (* 1/2 (* K m))) (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m)) #s(literal -1/2 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) m) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m))) (fma.f64 (.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))) #s(literal -1/6 binary64) (fma.f64 (.f64 (-.f64 (.f64 (.f64 m m) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 m #s(literal 3 binary64)) (neg.f64 m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))) (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m)))))) M (fma.f64 (.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))) m (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m))) (-.f64 (.f64 (.f64 m m) #s(literal 1/2 binary64)) #s(literal 1 binary64)))))) M (fma.f64 (.f64 m (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) (cos.f64 (.f64 (*.f64 #s(literal -1/2 binary64) K) m)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (*.f64 m m) l))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) m) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (*.f64 m m) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1))) (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (fma.f64 (.f64 M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))) (-.f64 (.f64 (.f64 m m) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) m)) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (*.f64 m m) l)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (* M (+ (* M (+ (* M (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (+ (* -1 m) (* 1/6 (pow m 3))))) (* (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))) (- (* 1/2 (pow m 2)) 1)))) (* m (exp (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 m #s(literal 3 binary64)) (neg.f64 m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))) M (.f64 (-.f64 (.f64 (.f64 m m) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))))) M (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l))) m)) M (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (*.f64 m m) l)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (+ l (* 1/4 (pow m 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (*.f64 m m) l)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M m)) (+ l (* 1/4 (pow m 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fma.f64 M m (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (*.f64 m m) l)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* M (- (* -1 M) (* -1 m)))) (+ l (* 1/4 (pow m 2))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) (-.f64 M m)) M (fabs.f64 (-.f64 n m))) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (* 1/4 (pow m 2)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (fma.f64 #s(literal 1/4 binary64) (*.f64 m m) l))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* -1 (* M m)) (* 1/4 (pow m 2))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (+.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 m m) (.f64 (neg.f64 M) m)) l))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (+ (* 1/4 (pow m 2)) (* M (+ M (* -1 m)))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (+.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) m M) M (.f64 #s(literal 1/4 binary64) (.f64 m m))) l))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (* 1/2 (* K m)))))
#s(approx (cos (- (* (* m K) 1/2) M)) (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m)))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (sin (* 1/2 (* K m)))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (fma.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) M (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K m))))) (* -1 (sin (* 1/2 (* K m)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (fma.f64 (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m))) (sin.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m))) M (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m))))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K m))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K m)))) (* -1/6 (* M (sin (* 1/2 (* K m))))))) (* -1 (sin (* 1/2 (* K m)))))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m)) #s(literal -1/2 binary64))) M (neg.f64 (sin.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m)))) M (cos.f64 (.f64 (.f64 #s(literal -1/2 binary64) K) m))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K m)))))
#s(approx (- (* (* m K) 1/2) M) (fma.f64 (*.f64 #s(literal 1/2 binary64) K) m (neg.f64 M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (* 1/2 (* K (+ m n))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (sin (* 1/2 (* K (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) M (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* -1/2 (* M (cos (* 1/2 (* K (+ m n)))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) M) (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) (sin.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))) M (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (+ (cos (* 1/2 (* K (+ m n)))) (* M (- (* M (+ (* -1/2 (cos (* 1/2 (* K (+ m n))))) (* -1/6 (* M (sin (* 1/2 (* K (+ m n)))))))) (* -1 (sin (* 1/2 (* K (+ m n))))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) M) (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))) #s(literal -1/2 binary64))) M (neg.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K))))) M (cos.f64 (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 n m) K)))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (+ (* -1 M) (* 1/2 (* K (+ m n))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K) (neg.f64 M)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1/4 (pow (+ m n) 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (+ m n)) (* 1/4 (pow (+ m n) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (fma.f64 M (+.f64 n m) (*.f64 #s(literal -1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (- (* M (- (* -1 M) (* -1 (+ m n)))) (* 1/4 (pow (+ m n) 2)))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (fma.f64 (.f64 #s(literal -1 binary64) (-.f64 M (+.f64 n m))) M (.f64 #s(literal -1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (+.f64 n m) M) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- n m)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (+.f64 (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l) (.f64 M M)))) (.f64 M M)))
#s(approx (cos M) #s(hole binary64 (cos M)))
#s(approx (cos M) (cos.f64 M))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (+.f64 n m) M) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- m n)) (pow M 2)) (+ 1 (+ (* -1 (/ (+ m n) M)) (+ (* 1/4 (/ (pow (+ m n) 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (+.f64 (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l) (.f64 M M)))) (.f64 M M)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (*.f64 (neg.f64 M) M))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ m M) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 (-.f64 (/.f64 m M) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (/ (fabs (- n m)) (pow M 2)) (+ 1 (+ (* -1 (/ m M)) (+ (* 1/4 (/ (pow m 2) (pow M 2))) (/ l (pow M 2)))))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) (.f64 M M)) (+.f64 (fma.f64 (/.f64 m M) #s(literal -1 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l) (.f64 M M)))) (*.f64 M M)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (pow M 2)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (*.f64 M M))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ m M))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 (fma.f64 (/.f64 m M) #s(literal -1 binary64) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (+ (* -1 (/ m M)) (+ (* 1/4 (/ (pow m 2) (pow M 2))) (/ l (pow M 2))))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 (+.f64 (fma.f64 (/.f64 m M) #s(literal -1 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l) (.f64 M M))) (.f64 M M)))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K m) M)) 1))))
#s(approx (- (* (* m K) 1/2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 m M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* M (- (* 1/2 (/ (* K (+ m n)) M)) 1))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (*.f64 (neg.f64 M) M))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (+ (/ m M) (/ n M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (/.f64 (+.f64 n m) M) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1/4 (/ (pow (+ m n) 2) (pow M 2))) (+ 1 (* -1 (/ (+ m n) M)))))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (.f64 (/.f64 #s(literal -1/4 binary64) M) (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M)) (fma.f64 (/.f64 (+.f64 n m) M) #s(literal -1 binary64) #s(literal 1 binary64))) (*.f64 M M)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K (+ m n))))) (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- n m)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) M)) (+.f64 n m)) M)) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2)))) (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K)) (neg.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(hole binary64 (sin (+ (* -1 M) (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n))))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K)) (neg.f64 M))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (+ l (pow (+ (* -1 M) (* 1/2 (+ m n))) 2))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- m n)) (+ l (* 1/4 (pow (+ m n) 2)))) M)) (+ m n)) M)) 1))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (+.f64 n m) #s(literal 2 binary64)) l)) M)) (+.f64 n m)) M)) #s(literal 1 binary64)) (.f64 M M)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (+ (* -1 M) (* 1/2 (* K m)))) (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 m)) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) K) m (neg.f64 M)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (+ l (pow (+ (* -1 M) (* 1/2 m)) 2))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) m (neg.f64 M)) #s(literal 2 binary64)) l))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* -1 (/ (- (fabs (- n m)) (+ l (* 1/4 (pow m 2)))) M)) m) M)) 1))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l)) M)) m) M)) #s(literal 1 binary64)) (*.f64 M M)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* (pow M 2) (+ 1 (* -1 (/ (+ m (* -1 (/ (+ l (* 1/4 (pow m 2))) M))) M))))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 m m) l) M) #s(literal -1 binary64) m) M) #s(literal -1 binary64) #s(literal 1 binary64)) (*.f64 M M)))
#s(approx (cos (- (* (* m K) 1/2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K m))))))
#s(approx (cos (- (* (* m K) 1/2) M)) (cos.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) K) m (neg.f64 M))))
#s(approx (- (* (* m K) 1/2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K m) M)))))))
#s(approx (- (* (* m K) 1/2) M) (.f64 (fma.f64 (.f64 K (/.f64 m M)) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 M)))
#s(approx (cos (- (/ (* K (+ m n)) 2) M)) #s(hole binary64 (cos (+ (* -1 M) (* 1/2 (* K (+ m n)))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K) (neg.f64 M))))
#s(approx (- (/ (* K (+ m n)) 2) M) #s(hole binary64 (* -1 (* M (+ 1 (* -1/2 (/ (* K (+ m n)) M)))))))
#s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (fma.f64 (.f64 K (/.f64 (+.f64 n m) M)) #s(literal -1/2 binary64) #s(literal 1 binary64)) (neg.f64 M)))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) #s(hole binary64 (* (pow M 2) (- (* -1 (/ (- (* 1/4 (/ (pow (+ m n) 2) M)) (+ m n)) M)) 1))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (-.f64 (.f64 (/.f64 (pow.f64 (+.f64 n m) #s(literal 2 binary64)) M) #s(literal 1/4 binary64)) m) n) M)) #s(literal 1 binary64)) (*.f64 M M)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (neg.f64 l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))) (.f64 (neg.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 n m) K)) M)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))))) l (.f64 (neg.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* -1 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (neg.f64 (.f64 l (cos.f64 M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M)) (.f64 (neg.f64 (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (+ (* l (+ (* -1 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* l (+ (* -1/6 (* l (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))) (* 1/2 (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))) (* (cos M) (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (.f64 (neg.f64 (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (neg.f64 l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) l (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* -1 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (neg.f64 l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* 1/2 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (neg.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (*.f64 (+.f64 n m) K))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (+ (* l (+ (* -1 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))) (* l (+ (* -1/6 (* l (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))) (* 1/2 (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))))) (* (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (fma.f64 (fma.f64 (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M)) (.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))) (.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))) #s(literal 1/2 binary64))) l)) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* -1 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (neg.f64 l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* 1/2 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (+ (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))) (* l (+ (* -1 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))) (* 1/2 (exp (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)))))))))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) l (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))))
#s(approx (neg l) #s(hole binary64 (* -1 l)))
#s(approx (neg l) (neg.f64 l))
#s(approx l #s(hole binary64 l))
#s(approx l l)
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* -1 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (.f64 l (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* 1/2 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (.f64 (neg.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M)))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (+ (* l (+ (* -1 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* l (+ (* -1/6 (* l (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))) (* 1/2 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))) (* (cos (- (* 1/2 (* K m)) M)) (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) l) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))) l (.f64 (neg.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))))) l (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* -1 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (neg.f64 l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))) (* 1/2 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (+ (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))) (* l (+ (* -1 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))) (* l (+ (* -1/6 (* l (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))) (* 1/2 (exp (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)))))))))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) l) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) l (neg.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))))) l (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (pow (- (* 1/2 m) M) 2)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (+ l (pow (- (* 1/2 m) M) 2))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (fabs (- m n)))))
#s(approx (- l (fabs (- m n))) (neg.f64 (fabs.f64 (-.f64 n m))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 l)))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 l))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* l (- (/ (fabs (- n m)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) l) (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l) #s(literal 1 binary64))) l))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* l (- (/ (fabs (- m n)) l) (+ 1 (/ (pow (- (* 1/2 (+ m n)) M) 2) l))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) l) (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)) l) #s(literal 1 binary64))) l))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 l)))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (neg.f64 l))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* l (- (/ (fabs (- n m)) l) (+ 1 (/ (pow (- (* 1/2 m) M) 2) l))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) l) (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) #s(literal 1 binary64))) l))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 l))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* l (+ 1 (/ (pow (- (* 1/2 m) M) 2) l)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 (+.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l) #s(literal 1 binary64)) l))
#s(approx (- l (fabs (- m n))) #s(hole binary64 l))
#s(approx (- l (fabs (- m n))) l)
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* l (+ 1 (* -1 (/ (fabs (- m n)) l))))))
#s(approx (- l (fabs (- m n))) (*.f64 (fma.f64 (/.f64 (fabs.f64 (-.f64 n m)) l) #s(literal -1 binary64) #s(literal 1 binary64)) l))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (cos (- (* 1/2 (* K (+ m n))) M)) (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 n m) K)) M))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) #s(hole binary64 (* (cos M) (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (cos M)) (.f64 (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (cos.f64 M)))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) #s(hole binary64 (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l))) (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- n m)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (fma.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))) l) #s(literal -1 binary64) #s(literal 1 binary64)) (neg.f64 l)))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) #s(hole binary64 (* (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2))) (sin (- (+ (* 1/2 (PI)) (* 1/2 (* K (+ m n)))) M)))))
#s(approx (* (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 (+.f64 n m) K))) M))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) #s(hole binary64 (exp (- (+ (fabs (- m n)) (* -1 l)) (pow (- (* 1/2 (+ m n)) M) 2)))))
#s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- m n)) (pow (- (* 1/2 (+ m n)) M) 2)) l)))))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (fma.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 n m)) M) #s(literal 2 binary64))) l) #s(literal -1 binary64) #s(literal 1 binary64)) (neg.f64 l)))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) #s(hole binary64 (* (cos (- (* 1/2 (* K m)) M)) (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2))))))
#s(approx (* (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (cos (- (* (* m K) 1/2) M))) (.f64 (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) #s(hole binary64 (exp (- (+ (fabs (- n m)) (* -1 l)) (pow (- (* 1/2 m) M) 2)))))
#s(approx (exp (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l))) (exp.f64 (-.f64 (+.f64 (neg.f64 l) (fabs.f64 (-.f64 n m))) (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) #s(hole binary64 (* -1 (* l (+ 1 (* -1 (/ (- (fabs (- n m)) (pow (- (* 1/2 m) M) 2)) l)))))))
#s(approx (- (fabs (- n m)) (+ (pow (- (* 1/2 m) M) 2) l)) (.f64 (fma.f64 (/.f64 (-.f64 (fabs.f64 (-.f64 n m)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64))) l) #s(literal -1 binary64) #s(literal 1 binary64)) (neg.f64 l)))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) #s(hole binary64 (* -1 (* l (- (* -1 (/ (pow (- (* 1/2 m) M) 2) l)) 1)))))
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) (.f64 (-.f64 (neg.f64 (/.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)) #s(literal 1 binary64)) (neg.f64 l)))
#s(approx (- l (fabs (- m n))) #s(hole binary64 (* -1 (* l (- (/ (fabs (- m n)) l) 1)))))
#s(approx (- l (fabs (- m n))) (*.f64 (-.f64 (/.f64 (fabs.f64 (-.f64 n m)) l) #s(literal 1 binary64)) (neg.f64 l)))

rewrite134.0ms (1.9%)

Memory

3.7MiB live, 153.9MiB allocated; 14ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	87	694
0	118	678
1	492	678
0	3679	674

Stop Event

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

Counts

50 → 282

Calls

Call 1

Inputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))
(.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64)))
(exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))
(neg.f64 (*.f64 M M))
(*.f64 M M)
M
#s(approx (cos M) #s(literal 1 binary64))
#s(literal 1 binary64)
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64)))
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M))
(cos.f64 M)
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(*.f64 n n)
n
#s(literal -1/4 binary64)
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)))
(-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))
(fabs.f64 (-.f64 n m))
(-.f64 n m)
m
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)
(cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))
(-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(*.f64 m K)
K
#s(literal 1/2 binary64)
(.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(cos.f64 (-.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M))
(-.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(*.f64 n K)
(exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64)))
(-.f64 l (fabs.f64 (-.f64 m n)))
(fabs.f64 (-.f64 m n))
(-.f64 m n)

Outputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 #s(approx (cos M) #s(literal 1 binary64)) (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M)))))
(.f64 #s(approx (cos M) #s(literal 1 binary64)) (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))))
(.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))) #s(approx (cos M) #s(literal 1 binary64)))
(fma.f64 (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) #s(approx (cos M) #s(literal 1 binary64)) (.f64 (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))) #s(approx (cos M) #s(literal 1 binary64))))
(fma.f64 #s(approx (cos M) #s(literal 1 binary64)) (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (.f64 #s(approx (cos M) #s(literal 1 binary64)) (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M)))))
(+.f64 (.f64 (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) #s(approx (cos M) #s(literal 1 binary64))) (.f64 (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))) #s(approx (cos M) #s(literal 1 binary64))))
(+.f64 (.f64 #s(approx (cos M) #s(literal 1 binary64)) (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M)))) (.f64 #s(approx (cos M) #s(literal 1 binary64)) (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M)))))
(/.f64 (-.f64 (.f64 (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M)))) (.f64 (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))))) (-.f64 (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M)))))
(/.f64 (+.f64 (pow.f64 (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) #s(literal 3 binary64)) (pow.f64 (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) #s(literal 3 binary64))) (fma.f64 (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (-.f64 (.f64 (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M)))) (.f64 (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M)))))))
(exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M)))
(+.f64 (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))))
(+.f64 (cosh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (sinh.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))))
#s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 (neg.f64 M) M))
(*.f64 (neg.f64 (fabs.f64 M)) (fabs.f64 M))
(*.f64 (neg.f64 (neg.f64 M)) (neg.f64 M))
(*.f64 (fabs.f64 M) (neg.f64 (fabs.f64 M)))
(*.f64 (neg.f64 M) (neg.f64 (neg.f64 M)))
(*.f64 (neg.f64 M) M)
(*.f64 M (neg.f64 M))
(neg.f64 (*.f64 M M))
(*.f64 (neg.f64 (fabs.f64 M)) (neg.f64 (fabs.f64 M)))
(*.f64 (fabs.f64 (fabs.f64 M)) (fabs.f64 (fabs.f64 M)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) (pow.f64 M #s(literal 1 binary64)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) M)
(*.f64 (neg.f64 (neg.f64 M)) (neg.f64 (neg.f64 M)))
(*.f64 (fabs.f64 M) (fabs.f64 M))
(*.f64 (neg.f64 M) (neg.f64 M))
(*.f64 M M)
(pow.f64 (fabs.f64 M) #s(literal 2 binary64))
(pow.f64 (neg.f64 M) #s(literal 2 binary64))
(pow.f64 M #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 M) M))
(fabs.f64 (*.f64 M M))
(exp.f64 (*.f64 (log.f64 M) #s(literal 2 binary64)))
M
#s(approx (cos M) #s(literal 1 binary64))
#s(literal 1 binary64)
(.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(fma.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64)))))
(fma.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))
(+.f64 (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64)))) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64)))))
(+.f64 (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64)))
(/.f64 (-.f64 (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))) (-.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))
(/.f64 (+.f64 (pow.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(literal 3 binary64)) (pow.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) #s(literal 3 binary64))) (fma.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (-.f64 (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))))
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))
(+.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(+.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))
(neg.f64 l)
l
(.f64 (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))))
(fma.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M))))
(fma.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))))
(+.f64 (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M))) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M))))
(+.f64 (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))))
#s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M))
(fma.f64 (sin.f64 M) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 M) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 M) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) M))
(cos.f64 (neg.f64 (neg.f64 M)))
(cos.f64 (neg.f64 M))
(cos.f64 M)
(+.f64 (.f64 (sin.f64 M) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 M) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))) (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))))) (-.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))))
(/.f64 (+.f64 (pow.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) #s(literal 3 binary64)) (pow.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) #s(literal 3 binary64))) (fma.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (-.f64 (.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))) (.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))))))
(exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n))))
(+.f64 (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))))
(+.f64 (cosh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (sinh.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))))
#s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 n n)))
(.f64 (.f64 #s(literal -1/4 binary64) (neg.f64 n)) (neg.f64 n))
(.f64 (.f64 #s(literal -1/4 binary64) (fabs.f64 n)) (fabs.f64 n))
(.f64 (.f64 #s(literal -1/4 binary64) n) n)
(.f64 (neg.f64 n) (.f64 (neg.f64 n) #s(literal -1/4 binary64)))
(.f64 (fabs.f64 n) (.f64 (fabs.f64 n) #s(literal -1/4 binary64)))
(.f64 #s(literal -1/4 binary64) (.f64 n n))
(.f64 (.f64 n n) #s(literal -1/4 binary64))
(.f64 n (.f64 #s(literal -1/4 binary64) n))
(*.f64 (neg.f64 (neg.f64 n)) (neg.f64 (neg.f64 n)))
(*.f64 (neg.f64 (fabs.f64 n)) (neg.f64 (fabs.f64 n)))
(*.f64 (fabs.f64 (fabs.f64 n)) (fabs.f64 (fabs.f64 n)))
(*.f64 (pow.f64 n #s(literal 1 binary64)) (pow.f64 n #s(literal 1 binary64)))
(*.f64 (pow.f64 n #s(literal 1 binary64)) n)
(*.f64 (neg.f64 n) (neg.f64 n))
(*.f64 (fabs.f64 n) (fabs.f64 n))
(*.f64 n n)
(pow.f64 (neg.f64 n) #s(literal 2 binary64))
(pow.f64 (fabs.f64 n) #s(literal 2 binary64))
(pow.f64 n #s(literal 2 binary64))
(neg.f64 (*.f64 n (neg.f64 n)))
(neg.f64 (*.f64 (neg.f64 n) n))
(fabs.f64 (*.f64 n n))
(exp.f64 (*.f64 (log.f64 n) #s(literal 2 binary64)))
n
#s(literal -1/4 binary64)
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l)))))
(.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))))
(.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))
(/.f64 (.f64 (exp.f64 (fabs.f64 (-.f64 m n))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (exp.f64 #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l)))
(/.f64 (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (exp.f64 (fabs.f64 (-.f64 m n)))) (exp.f64 #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l)))
(fma.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (.f64 (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)))))
(fma.f64 (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
(fma.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l)))))
(fma.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))) (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))) (.f64 (sin.f64 M) (sin.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64))))))
(+.f64 (.f64 (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))) (.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)))) (.f64 (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)))))
(+.f64 (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l)))) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l)))))
(+.f64 (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))) (.f64 (sin.f64 M) (sin.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)))) (.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))))) (-.f64 (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))) (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)))))
(/.f64 (+.f64 (pow.f64 (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))) #s(literal 3 binary64)) (pow.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))) #s(literal 3 binary64))) (fma.f64 (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))) (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))) (-.f64 (.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)))) (.f64 (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)))))))
(/.f64 (neg.f64 (exp.f64 (fabs.f64 (-.f64 m n)))) (neg.f64 (exp.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))))
(/.f64 (exp.f64 (fabs.f64 (-.f64 m n))) (exp.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)))
(exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)))
(+.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))) (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))))
(+.f64 (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))) (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (pow.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) (fabs.f64 (-.f64 m n)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64)) (pow.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) #s(literal 3 binary64)))) (neg.f64 (fma.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) (+.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) (fabs.f64 (-.f64 m n))) (pow.f64 (-.f64 m n) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (pow.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) #s(literal 2 binary64))) (+.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) (fabs.f64 (-.f64 m n))))
(/.f64 (-.f64 (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64)) (pow.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) #s(literal 3 binary64))) (fma.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) (+.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) (fabs.f64 (-.f64 m n))) (pow.f64 (-.f64 m n) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (+.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) (fabs.f64 (-.f64 m n)))) (/.f64 (pow.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) #s(literal 2 binary64)) (+.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) (fabs.f64 (-.f64 m n)))))
(-.f64 (/.f64 (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64)) (fma.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) (+.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) (fabs.f64 (-.f64 m n))) (pow.f64 (-.f64 m n) #s(literal 2 binary64)))) (/.f64 (pow.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) #s(literal 3 binary64)) (fma.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) (+.f64 #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l) (fabs.f64 (-.f64 m n))) (pow.f64 (-.f64 m n) #s(literal 2 binary64)))))
(-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l))
(*.f64 (sqrt.f64 (-.f64 m n)) (sqrt.f64 (-.f64 m n)))
(*.f64 (sqrt.f64 (-.f64 n m)) (sqrt.f64 (-.f64 n m)))
(pow.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 (fabs.f64 (*.f64 (+.f64 n m) (-.f64 m n))) (fabs.f64 (+.f64 n m)))
(/.f64 (fabs.f64 (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fabs.f64 (fma.f64 n (+.f64 n m) (*.f64 m m))))
(/.f64 (fabs.f64 (*.f64 (+.f64 n m) (-.f64 n m))) (fabs.f64 (+.f64 n m)))
(/.f64 (fabs.f64 (-.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fabs.f64 (fma.f64 n n (*.f64 m (+.f64 n m)))))
(sqrt.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)))
(fabs.f64 (neg.f64 (neg.f64 (-.f64 m n))))
(fabs.f64 (neg.f64 (neg.f64 (-.f64 n m))))
(fabs.f64 (neg.f64 (-.f64 m n)))
(fabs.f64 (neg.f64 (-.f64 n m)))
(fabs.f64 (-.f64 m n))
(fabs.f64 (-.f64 n m))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (*.f64 (+.f64 n m) (-.f64 m n))) (-.f64 m n))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fma.f64 n n (*.f64 m (-.f64 m n))))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fma.f64 n (-.f64 n m) (*.f64 m m)))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 n m)) (*.f64 (+.f64 n m) (-.f64 n m))) (-.f64 n m))
(/.f64 (neg.f64 (-.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (neg.f64 (fma.f64 n n (*.f64 m (+.f64 n m)))))
(/.f64 (neg.f64 (*.f64 (+.f64 n m) (-.f64 n m))) (neg.f64 (+.f64 n m)))
(/.f64 (*.f64 (+.f64 n m) (-.f64 n m)) (+.f64 n m))
(/.f64 (-.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64))) (fma.f64 n n (*.f64 m (+.f64 n m))))
(-.f64 (/.f64 (pow.f64 n #s(literal 3 binary64)) (fma.f64 n n (.f64 m (+.f64 n m)))) (/.f64 (pow.f64 m #s(literal 3 binary64)) (fma.f64 n n (.f64 m (+.f64 n m)))))
(-.f64 (/.f64 (.f64 n n) (+.f64 n m)) (/.f64 (.f64 m m) (+.f64 n m)))
(-.f64 n m)
m
#s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M))) (.f64 (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (-.f64 (.f64 (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))))))))
(fma.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)))
(fma.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (sin.f64 M) (.f64 (cos.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)))
(fma.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M) (.f64 (sin.f64 M) (sin.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 M) (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (.f64 (sin.f64 M) (sin.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (.f64 (neg.f64 (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (sin.f64 M)))
(cos.f64 (neg.f64 (neg.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
(cos.f64 (neg.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)))
(cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))
(+.f64 (.f64 (sin.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)))
(+.f64 (.f64 (cos.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64))) (cos.f64 M)) (.f64 (sin.f64 M) (sin.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 M M))) (neg.f64 (fma.f64 (.f64 m K) #s(literal 1/2 binary64) M)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (neg.f64 (fma.f64 M (fma.f64 (.f64 m K) #s(literal 1/2 binary64) M) (pow.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 M M)) (fma.f64 (.f64 m K) #s(literal 1/2 binary64) M))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64))) (fma.f64 M (fma.f64 (.f64 m K) #s(literal 1/2 binary64) M) (pow.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (fma.f64 (.f64 m K) #s(literal 1/2 binary64) M)) (/.f64 (.f64 M M) (fma.f64 (*.f64 m K) #s(literal 1/2 binary64) M)))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (fma.f64 M (fma.f64 (.f64 m K) #s(literal 1/2 binary64) M) (pow.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 M #s(literal 3 binary64)) (fma.f64 M (fma.f64 (.f64 m K) #s(literal 1/2 binary64) M) (pow.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M)
(.f64 (.f64 #s(literal 1/2 binary64) K) m)
(.f64 (.f64 m K) #s(literal 1/2 binary64))
(.f64 (.f64 #s(literal 1/2 binary64) m) K)
(.f64 #s(literal 1/2 binary64) (.f64 m K))
(.f64 m (.f64 #s(literal 1/2 binary64) K))
(.f64 K (.f64 #s(literal 1/2 binary64) m))
(*.f64 m K)
(*.f64 K m)
K
#s(literal 1/2 binary64)
(.f64 (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)))
(.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(/.f64 (.f64 (exp.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M))) (exp.f64 (-.f64 l (fabs.f64 (-.f64 m n)))))
(/.f64 (.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (exp.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))))) (exp.f64 (-.f64 l (fabs.f64 (-.f64 m n)))))
(fma.f64 (.f64 (cos.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (.f64 (sin.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))))
(fma.f64 (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cos.f64 (-.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (.f64 (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M))))
(fma.f64 (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (cos.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) (.f64 (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (sin.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M))))
(fma.f64 (cos.f64 (-.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))))
(+.f64 (.f64 (.f64 (cos.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (.f64 (.f64 (sin.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))))
(+.f64 (.f64 (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M))) (.f64 (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M))))
(+.f64 (.f64 (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (cos.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M))) (.f64 (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (.f64 (sin.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M))))
(+.f64 (.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) (.f64 (cos.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M))) (.f64 (.f64 (sin.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M)) (.f64 (sin.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M)))) (-.f64 (.f64 (cos.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) (.f64 (sin.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) (.f64 (cos.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) (-.f64 (.f64 (.f64 (sin.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M)) (.f64 (sin.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M))) (.f64 (.f64 (cos.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) (.f64 (sin.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M))))))
(fma.f64 (sin.f64 (-.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M) (.f64 (cos.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)))
(fma.f64 (cos.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M) (.f64 (sin.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M)))
(fma.f64 (sin.f64 M) (sin.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (.f64 (cos.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)))
(fma.f64 (cos.f64 M) (cos.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (.f64 (sin.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M)))
(sin.f64 (+.f64 (neg.f64 (-.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (-.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (.f64 (cos.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) (.f64 (neg.f64 (sin.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))))) (sin.f64 M)))
(cos.f64 (neg.f64 (neg.f64 (-.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M))))
(cos.f64 (neg.f64 (-.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)))
(cos.f64 (-.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M))
(+.f64 (.f64 (sin.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M)) (.f64 (cos.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)))
(+.f64 (.f64 (cos.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) (.f64 (sin.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M)))
(/.f64 (neg.f64 (-.f64 (pow.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 M M))) (neg.f64 (+.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)))
(/.f64 (neg.f64 (-.f64 (pow.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (neg.f64 (fma.f64 M (+.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M) (pow.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 M M)) (+.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M))
(/.f64 (-.f64 (pow.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64))) (fma.f64 M (+.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M) (pow.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (+.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (/.f64 (.f64 M M) (+.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)))
(-.f64 (/.f64 (pow.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (fma.f64 M (+.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M) (pow.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (pow.f64 M #s(literal 3 binary64)) (fma.f64 M (+.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M) (pow.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(-.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)
#s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))
(.f64 (.f64 #s(literal 1/2 binary64) K) n)
(.f64 (.f64 #s(literal 1/2 binary64) n) K)
(.f64 (.f64 n K) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (.f64 n K))
(.f64 n (.f64 #s(literal 1/2 binary64) K))
(.f64 K (.f64 #s(literal 1/2 binary64) n))
(*.f64 n K)
(*.f64 K n)
(.f64 (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (*.f64 n n))) l)) (exp.f64 (fabs.f64 (-.f64 m n))))
(/.f64 (-.f64 (.f64 (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (.f64 (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))))) (-.f64 (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))))
(/.f64 (+.f64 (pow.f64 (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) #s(literal 3 binary64)) (pow.f64 (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) #s(literal 3 binary64))) (fma.f64 (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (-.f64 (.f64 (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (.f64 (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))))))
(/.f64 (neg.f64 (exp.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))))) (neg.f64 (exp.f64 (-.f64 l (fabs.f64 (-.f64 m n))))))
(/.f64 (exp.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (exp.f64 (-.f64 l (fabs.f64 (-.f64 m n)))))
(exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n)))))
(+.f64 (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(+.f64 (cosh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))) (sinh.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l) (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l)) (pow.f64 (-.f64 m n) #s(literal 2 binary64))) (-.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (*.f64 n n))) l) (fabs.f64 (-.f64 m n))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l) #s(literal 3 binary64)) (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l) (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l) (-.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (*.f64 n n))) l) (fabs.f64 (-.f64 m n))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 2 binary64)) (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 3 binary64)) (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 2 binary64)) (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 2 binary64))) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n)))))
(/.f64 (-.f64 (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 3 binary64)) (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 3 binary64))) (fma.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 2 binary64))))
(fma.f64 (sqrt.f64 (-.f64 m n)) (sqrt.f64 (-.f64 m n)) (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l))
(fma.f64 (sqrt.f64 (-.f64 n m)) (sqrt.f64 (-.f64 n m)) (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l))
(-.f64 (/.f64 (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 2 binary64)) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))))) (/.f64 (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 2 binary64)) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))))))
(-.f64 (/.f64 (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 3 binary64)) (fma.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(literal 3 binary64)) (fma.f64 (-.f64 l (fabs.f64 (-.f64 m n))) (+.f64 (-.f64 l (fabs.f64 (-.f64 m n))) #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n)))) (pow.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) #s(literal 2 binary64)))))
(-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) (-.f64 l (fabs.f64 (-.f64 m n))))
(+.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l) (fabs.f64 (-.f64 m n)))
(+.f64 (fabs.f64 (-.f64 m n)) (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n))) l))
#s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 #s(literal -1/4 binary64) (.f64 n n)))
(/.f64 (neg.f64 (-.f64 (*.f64 l l) (pow.f64 (-.f64 m n) #s(literal 2 binary64)))) (neg.f64 (+.f64 (fabs.f64 (-.f64 m n)) l)))
(/.f64 (neg.f64 (-.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 l l (fma.f64 (fabs.f64 (-.f64 m n)) l (pow.f64 (-.f64 m n) #s(literal 2 binary64))))))
(/.f64 (-.f64 (*.f64 l l) (pow.f64 (-.f64 m n) #s(literal 2 binary64))) (+.f64 (fabs.f64 (-.f64 m n)) l))
(/.f64 (-.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64))) (fma.f64 l l (fma.f64 (fabs.f64 (-.f64 m n)) l (pow.f64 (-.f64 m n) #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 l l) (+.f64 (fabs.f64 (-.f64 m n)) l)) (/.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) (+.f64 (fabs.f64 (-.f64 m n)) l)))
(-.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (fma.f64 l l (fma.f64 (fabs.f64 (-.f64 m n)) l (pow.f64 (-.f64 m n) #s(literal 2 binary64))))) (/.f64 (pow.f64 (fabs.f64 (-.f64 m n)) #s(literal 3 binary64)) (fma.f64 l l (fma.f64 (fabs.f64 (-.f64 m n)) l (pow.f64 (-.f64 m n) #s(literal 2 binary64))))))
(-.f64 l (fabs.f64 (-.f64 m n)))
(*.f64 (sqrt.f64 (-.f64 m n)) (sqrt.f64 (-.f64 m n)))
(*.f64 (sqrt.f64 (-.f64 n m)) (sqrt.f64 (-.f64 n m)))
(pow.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 (fabs.f64 (*.f64 (+.f64 n m) (-.f64 m n))) (fabs.f64 (+.f64 n m)))
(/.f64 (fabs.f64 (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (fabs.f64 (fma.f64 n (+.f64 n m) (*.f64 m m))))
(/.f64 (fabs.f64 (*.f64 (+.f64 n m) (-.f64 n m))) (fabs.f64 (+.f64 n m)))
(/.f64 (fabs.f64 (-.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fabs.f64 (fma.f64 n n (*.f64 m (+.f64 n m)))))
(sqrt.f64 (pow.f64 (-.f64 m n) #s(literal 2 binary64)))
(fabs.f64 (neg.f64 (neg.f64 (-.f64 m n))))
(fabs.f64 (neg.f64 (neg.f64 (-.f64 n m))))
(fabs.f64 (neg.f64 (-.f64 m n)))
(fabs.f64 (neg.f64 (-.f64 n m)))
(fabs.f64 (-.f64 m n))
(fabs.f64 (-.f64 n m))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (*.f64 (+.f64 n m) (-.f64 n m))) (-.f64 n m))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fma.f64 n n (*.f64 m (-.f64 m n))))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (+.f64 (pow.f64 n #s(literal 3 binary64)) (pow.f64 m #s(literal 3 binary64)))) (fma.f64 n (-.f64 n m) (*.f64 m m)))
(.f64 (/.f64 (.f64 (+.f64 n m) (-.f64 m n)) (*.f64 (+.f64 n m) (-.f64 m n))) (-.f64 m n))
(/.f64 (neg.f64 (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64)))) (neg.f64 (fma.f64 n (+.f64 n m) (*.f64 m m))))
(/.f64 (neg.f64 (*.f64 (+.f64 n m) (-.f64 m n))) (neg.f64 (+.f64 n m)))
(/.f64 (*.f64 (+.f64 n m) (-.f64 m n)) (+.f64 n m))
(/.f64 (-.f64 (pow.f64 m #s(literal 3 binary64)) (pow.f64 n #s(literal 3 binary64))) (fma.f64 n (+.f64 n m) (*.f64 m m)))
(-.f64 (/.f64 (.f64 m m) (+.f64 n m)) (/.f64 (.f64 n n) (+.f64 n m)))
(-.f64 (/.f64 (pow.f64 m #s(literal 3 binary64)) (fma.f64 n (+.f64 n m) (.f64 m m))) (/.f64 (pow.f64 n #s(literal 3 binary64)) (fma.f64 n (+.f64 n m) (.f64 m m))))
(-.f64 m n)

eval144.0ms (2%)

Memory: -16.1MiB live, 168.2MiB allocated; 26ms collecting garbage
Compiler: Compiled 52 298 to 3 545 computations (93.2% saved)

prune51.0ms (0.7%)

Memory

-10.8MiB live, 125.7MiB allocated; 7ms collecting garbage

Pruning

20 alts after pruning (17 fresh and 3 done)

	Pruned	Kept	Total
New	717	6	723
Fresh	3	11	14
Picked	3	2	5
Done	0	1	1
Total	723	20	743

Accuracy

97.9%

Counts

743 → 20

Alt Table

Click to see full alt table

Status	Accuracy	Program
	44.9%	(.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) (.f64 (cos.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) (-.f64 (.f64 (.f64 (sin.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M)) (.f64 (sin.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M))) (.f64 (.f64 (cos.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) (.f64 (sin.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M)))))) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	27.1%	(.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64))))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	46.8%	(.f64 (sin.f64 (-.f64 (/.f64 (.f64 (/.f64 (*.f64 (+.f64 n m) (-.f64 n m)) (-.f64 n m)) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	29.3%	(.f64 (sin.f64 (+.f64 (neg.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	31.8%	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (+.f64 (cosh.f64 (.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 2 binary64))))) (-.f64 l (fabs.f64 (-.f64 m n))))))
	24.7%	(.f64 (cos.f64 (-.f64 #s(approx (/ ( (+ n m) K) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	25.5%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 #s(approx (+ n m) n) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	44.5%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
✓	28.9%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	34.8%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) #s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
	42.9%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
	29.7%	(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	28.3%	(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	27.9%	(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) (fma.f64 (*.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	49.1%	(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
	57.4%	(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m)))))
✓	32.5%	(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
	9.1%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (+.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
	22.3%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 #s(approx (- (* (* m K) 1/2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64))))))
✓	57.4%	#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))

Compiler

Compiled 3 595 to 988 computations (72.5% saved)

regimes98.0ms (1.4%)

Memory

22.7MiB live, 125.4MiB allocated; 8ms collecting garbage

Counts

48 → 1

Calls

Call 1

Inputs
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) (fma.f64 (*.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) (fma.f64 (.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) (cos.f64 M)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 #s(literal -1/4 binary64) (.f64 m m)))) (cos.f64 M)))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 m m) #s(literal -1/4 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 #s(approx (- (* (* m K) 1/2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64))))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (sin.f64 (+.f64 (neg.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 #s(approx (+ n m) n) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 #s(approx (/ ( (+ n m) K) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 m m) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (sin.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 #s(approx (pow (- (/ (+ m n) 2) M) 2) (*.f64 M M))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (sin.f64 (+.f64 (neg.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (+.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) #s(approx (+ (pow (- (* 1/2 m) M) 2) l) l)))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) n) M) #s(literal 2 binary64)) l))) (cos.f64 (-.f64 (.f64 (.f64 n K) #s(literal 1/2 binary64)) M))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (sin.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (sin.f64 (+.f64 (neg.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (sin.f64 (-.f64 (/.f64 (.f64 (/.f64 (*.f64 (+.f64 n m) (-.f64 n m)) (-.f64 n m)) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (+.f64 (sinh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))) (cosh.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (cos.f64 (-.f64 (.f64 (*.f64 m K) #s(literal 1/2 binary64)) M))))
(.f64 (cos.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 m K) #s(literal 3 binary64)) (pow.f64 (.f64 n K) #s(literal 3 binary64))) (fma.f64 (.f64 m K) (.f64 m K) (-.f64 (.f64 (.f64 n K) (.f64 n K)) (.f64 (.f64 m K) (*.f64 n K))))) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (+.f64 (cosh.f64 (.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (-.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) M)) #s(literal 2 binary64))))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))) (fma.f64 (/.f64 (+.f64 n m) #s(literal 2 binary64)) K (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64)))) (pow.f64 (/.f64 (*.f64 (+.f64 n m) K) #s(literal 2 binary64)) #s(literal 2 binary64))))) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) #s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) m M) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) m M) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) #s(approx (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n))))) (fma.f64 (fma.f64 (.f64 n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l)))) (-.f64 (.f64 (pow.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (.f64 (-.f64 M (.f64 #s(literal 1/2 binary64) m)) (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))) n (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) m) M) #s(literal 2 binary64)) l))))))
(.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) (.f64 (cos.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) (-.f64 (.f64 (.f64 (sin.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M)) (.f64 (sin.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M))) (.f64 (.f64 (cos.f64 #s(approx (/ (* K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (cos.f64 M)) (.f64 (sin.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (sin.f64 M)))))) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))

Outputs

#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))

Calls

6 calls:

28.0ms	K
22.0ms	n
12.0ms	m
12.0ms	l
12.0ms	M

Results

Accuracy	Segments	Branch
96.0%	1	`(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))`
96.0%	1	`K`
96.0%	1	`m`
96.0%	1	`n`
96.0%	1	`M`
96.0%	1	`l`

Compiler

Compiled 34 to 46 computations (-35.3% saved)

regimes76.0ms (1.1%)

Memory

-12.9MiB live, 80.8MiB allocated; 3ms collecting garbage

Counts

31 → 3

Calls

Call 1

Inputs
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) (fma.f64 (*.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) (fma.f64 (.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) (cos.f64 M)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 #s(literal -1/4 binary64) (.f64 m m)))) (cos.f64 M)))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 m m) #s(literal -1/4 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 #s(approx (- (* (* m K) 1/2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64))))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (sin.f64 (+.f64 (neg.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 #s(approx (+ n m) n) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 #s(approx (/ ( (+ n m) K) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 m m) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (sin.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 #s(approx (pow (- (/ (+ m n) 2) M) 2) (*.f64 M M))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (sin.f64 (+.f64 (neg.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) M)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))

Outputs

(*.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 #s(literal -1/4 binary64) (*.f64 m m)))))

(*.f64 (cos.f64 (-.f64 (/.f64 (*.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 #s(approx (pow (- (/ (+ m n) 2) M) 2) (*.f64 M M))) (-.f64 l (fabs.f64 (-.f64 m n))))))

(*.f64 (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (*.f64 (*.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (*.f64 n n) #s(literal -1/4 binary64)))))

Calls

6 calls:

30.0ms	l
14.0ms	K
8.0ms	M
8.0ms	n
8.0ms	m

Results

Accuracy	Segments	Branch
63.0%	2	`(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))`
63.5%	3	`K`
84.7%	3	`m`
82.8%	3	`n`
79.4%	3	`M`
69.9%	2	`l`

Compiler

Compiled 34 to 46 computations (-35.3% saved)

regimes9.0ms (0.1%)

Memory

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

Counts

28 → 4

Calls

Call 1

Inputs
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) (fma.f64 (*.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) (fma.f64 (.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) (cos.f64 M)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 #s(literal -1/4 binary64) (.f64 m m)))) (cos.f64 M)))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 m m) #s(literal -1/4 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 #s(approx (- (* (* m K) 1/2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64))))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (sin.f64 (+.f64 (neg.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 #s(approx (+ n m) n) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 #s(approx (/ ( (+ n m) K) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 m m) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (sin.f64 (-.f64 (/.f64 (.f64 (+.f64 n m) K) #s(literal 2 binary64)) (-.f64 M (/.f64 (PI.f64) #s(literal 2 binary64))))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

Outputs
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m)))))
(.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))

Calls

1 calls:

7.0ms

Results

Accuracy	Segments	Branch
84.8%	4	`m`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes8.0ms (0.1%)

Memory

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

Counts

26 → 4

Calls

Call 1

Inputs
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) (fma.f64 (*.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) (fma.f64 (.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) (cos.f64 M)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 #s(literal -1/4 binary64) (.f64 m m)))) (cos.f64 M)))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 m m) #s(literal -1/4 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 #s(approx (- (* (* m K) 1/2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64))))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (sin.f64 (+.f64 (neg.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 #s(approx (+ n m) n) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 #s(approx (/ ( (+ n m) K) 2) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 K (/.f64 m n) K)) n)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 m m) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (-.f64 (.f64 (*.f64 K (/.f64 (+.f64 n m) M)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

Outputs
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m)))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))

Calls

1 calls:

7.0ms

Results

Accuracy	Segments	Branch
84.8%	4	`m`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes31.0ms (0.4%)

Memory

-30.6MiB live, 20.3MiB allocated; 5ms collecting garbage

Counts

20 → 3

Calls

Call 1

Inputs
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) (fma.f64 (*.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) (fma.f64 (.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) (cos.f64 M)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 #s(literal -1/4 binary64) (.f64 m m)))) (cos.f64 M)))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 m m) #s(literal -1/4 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 #s(approx (- (* (* m K) 1/2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64))))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) (.f64 n K))) M))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) #s(approx (+ (pow (- ( 1/2 m) M) 2) l) l))) (cos.f64 (-.f64 (.f64 (.f64 m K) #s(literal 1/2 binary64)) M))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (sin.f64 (+.f64 (neg.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (neg.f64 M) M))))

Outputs

#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (*.f64 #s(literal -1/4 binary64) (*.f64 m m)))) (cos.f64 M)))

#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) (cos.f64 M)))

(*.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (*.f64 n n) #s(literal -1/4 binary64)))))

Calls

2 calls:

24.0ms	m
6.0ms	n

Results

Accuracy	Segments	Branch
82.8%	3	`n`
84.0%	4	`m`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes3.0ms (0%)

Memory

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

Counts

8 → 3

Calls

Call 1

Inputs
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) (fma.f64 (*.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) (fma.f64 (.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) (cos.f64 M)))

Outputs

(*.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 #s(literal -1/4 binary64) (*.f64 m m)))))

#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) (cos.f64 M)))

(*.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (*.f64 n n) #s(literal -1/4 binary64)))))

Calls

1 calls:

3.0ms

Results

Accuracy	Segments	Branch
82.8%	3	`n`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes3.0ms (0%)

Memory

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

Counts

7 → 3

Calls

Call 1

Inputs
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) (fma.f64 (*.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) (fma.f64 (.f64 M M) #s(literal -1/2 binary64) #s(literal 1 binary64)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) (cos.f64 M)) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

Outputs

(*.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 #s(literal -1/4 binary64) (*.f64 m m)))))

#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))

(*.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 (*.f64 n n) #s(literal -1/4 binary64)))))

Calls

1 calls:

2.0ms

Results

Accuracy	Segments	Branch
82.8%	3	`n`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes4.0ms (0.1%)

Memory

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

Counts

3 → 4

Calls

Call 1

Inputs

(*.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))

(*.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (*.f64 #s(literal -1/4 binary64) (*.f64 m m)))))

Outputs
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m)))))

Calls

2 calls:

2.0ms	n
2.0ms	m

Results

Accuracy	Segments	Branch
81.2%	4	`m`
66.1%	2	`n`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes3.0ms (0%)

Memory

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

Counts

2 → 3

Calls

Call 1

Inputs

(*.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))

Outputs

#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))

(*.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ (* 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))

Calls

2 calls:

1.0ms	M
1.0ms	m

Results

Accuracy	Segments	Branch
71.7%	3	`M`
57.4%	1	`m`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes26.0ms (0.4%)

Memory

-31.4MiB live, 15.6MiB allocated; 2ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

Outputs
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

Calls

6 calls:

21.0ms	n
1.0ms	(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))
1.0ms	l
1.0ms	K
1.0ms	M

Results

Accuracy	Segments	Branch
32.5%	1	`m`
32.5%	1	`K`
32.5%	1	`(.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 (pow.f64 (-.f64 (/.f64 (+.f64 m n) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (-.f64 l (fabs.f64 (-.f64 m n))))))`
32.5%	1	`n`
32.5%	1	`l`
32.5%	1	`M`

Compiler

Compiled 34 to 46 computations (-35.3% saved)

bsearch74.0ms (1%)

Memory

31.4MiB live, 77.8MiB allocated; 2ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
23.0ms	7.653678990574218e-216	3.501602810304525e-213
45.0ms	-994.3100743389367	-1.3500906137166943e-8

Samples

45.0ms	255×	0	valid
11.0ms	33×	1	valid

Compiler

Compiled 1 394 to 1 077 computations (22.7% saved)

Precisions

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

ival-sub: 22.0ms (48.3% of total)

ival-div: 4.0ms (8.8% of total)

ival-mult: 4.0ms (8.8% of total)

ival-pow2: 3.0ms (6.6% of total)

ival-cos: 3.0ms (6.6% of total)

adjust: 2.0ms (4.4% of total)

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

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

ival-neg: 1.0ms (2.2% of total)

ival-fabs: 1.0ms (2.2% of total)

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

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

exact: 0.0ms (0% of total)

bsearch125.0ms (1.7%)

Memory

-18.1MiB live, 139.0MiB allocated; 51ms collecting garbage

Algorithm

3×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
21.0ms	-1.194126737944595e-304	-2.5402195283054583e-305
75.0ms	-1.427916768510033e-87	-5.602756445875371e-98
21.0ms	-3.76421550642511e+40	-1.9407988730073936e+40

Samples

90.0ms	282×	0	valid
12.0ms	38×	1	valid

Compiler

Compiled 1 956 to 1 421 computations (27.4% saved)

Precisions

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

ival-div: 49.0ms (61.9% of total)

ival-sub: 8.0ms (10.1% of total)

ival-mult: 4.0ms (5.1% of total)

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

adjust: 3.0ms (3.8% of total)

ival-cos: 3.0ms (3.8% of total)

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

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

ival-neg: 1.0ms (1.3% of total)

ival-fabs: 1.0ms (1.3% of total)

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

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

exact: 0.0ms (0% of total)

bsearch27.0ms (0.4%)

Memory

3.1MiB live, 47.9MiB allocated; 5ms collecting garbage

Algorithm

3×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	-1.194126737944595e-304	-2.5402195283054583e-305
23.0ms	-1.427916768510033e-87	-5.602756445875371e-98
1.0ms	-3.76421550642511e+40	-1.9407988730073936e+40

Samples

13.0ms	81×	0	valid
5.0ms	15×	1	valid

Compiler

Compiled 1 956 to 1 421 computations (27.4% saved)

Precisions

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

ival-div: 5.0ms (35.2% of total)

ival-sub: 2.0ms (14.1% of total)

ival-add: 1.0ms (7% of total)

adjust: 1.0ms (7% of total)

ival-mult: 1.0ms (7% of total)

ival-exp: 1.0ms (7% of total)

ival-pow2: 1.0ms (7% of total)

ival-cos: 1.0ms (7% of total)

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

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

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

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

exact: 0.0ms (0% of total)

bsearch62.0ms (0.9%)

Memory

6.1MiB live, 105.6MiB allocated; 12ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
26.0ms	71244.97315554036	93176800.79211158
30.0ms	1.514960431216329e-253	3.500742635298053e-242

Samples

38.0ms	269×	0	valid
6.0ms	19×	1	valid

Compiler

Compiled 1 962 to 1 403 computations (28.5% saved)

Precisions

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

ival-mult: 7.0ms (22.5% of total)

ival-sub: 6.0ms (19.3% of total)

ival-div: 4.0ms (12.9% of total)

ival-pow2: 3.0ms (9.6% of total)

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

ival-cos: 2.0ms (6.4% of total)

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

adjust: 1.0ms (3.2% of total)

ival-neg: 1.0ms (3.2% of total)

ival-fabs: 1.0ms (3.2% of total)

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

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

exact: 0.0ms (0% of total)

bsearch27.0ms (0.4%)

Memory

-36.2MiB live, 9.7MiB allocated; 8ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	predicate-same

Steps

Time	Left	Right
1.0ms	71244.97315554036	93176800.79211158
25.0ms	1.514960431216329e-253	3.500742635298053e-242

Samples

23.0ms

16×

valid

Compiler

Compiled 1 532 to 1 124 computations (26.6% saved)

Precisions

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

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

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

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

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

exact: 0.0ms (0% of total)

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	predicate-same

Steps

Time	Left	Right
1.0ms	71244.97315554036	93176800.79211158
1.0ms	1.514960431216329e-253	3.500742635298053e-242

Compiler

Compiled 1 562 to 1 154 computations (26.1% saved)

bsearch99.0ms (1.4%)

Memory

8.4MiB live, 150.5MiB allocated; 14ms collecting garbage

Algorithm

3×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
47.0ms	2.526385385908521e-9	0.324257732170026
24.0ms	-6.144038348371702e-84	-1.427916768510033e-87
19.0ms	-83134.96043535761	-994.3100743389367

Samples

65.0ms	358×	0	valid
8.0ms	26×	1	valid

Compiler

Compiled 2 337 to 1 750 computations (25.1% saved)

Precisions

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

ival-div: 23.0ms (37.6% of total)

ival-sub: 9.0ms (14.7% of total)

ival-mult: 7.0ms (11.4% of total)

ival-cos: 7.0ms (11.4% of total)

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

ival-exp: 3.0ms (4.9% of total)

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

adjust: 2.0ms (3.3% of total)

ival-neg: 2.0ms (3.3% of total)

ival-fabs: 2.0ms (3.3% of total)

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

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

exact: 0.0ms (0% of total)

bsearch82.0ms (1.1%)

Memory

13.1MiB live, 104.7MiB allocated; 8ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
43.0ms	11.52445022825852	16770.816447927016
32.0ms	-2.763631817989694e-18	-2.908531285134798e-33

Samples

31.0ms	262×	0	valid
11.0ms	26×	1	valid

Compiler

Compiled 1 814 to 1 343 computations (26% saved)

Precisions

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

ival-sub: 7.0ms (21.4% of total)

ival-cos: 6.0ms (18.3% of total)

ival-div: 4.0ms (12.2% of total)

ival-mult: 4.0ms (12.2% of total)

ival-pow2: 3.0ms (9.2% of total)

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

adjust: 2.0ms (6.1% of total)

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

ival-neg: 1.0ms (3.1% of total)

ival-fabs: 1.0ms (3.1% of total)

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

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

exact: 0.0ms (0% of total)

simplify62.0ms (0.9%)

Memory

26.1MiB live, 68.4MiB allocated; 9ms collecting garbage

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	156	1335
1	248	1335
2	415	1335
3	950	1310
4	3619	1310

Stop Event

1×	node limit

Calls

Call 1

Inputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
(if (<=.f64 m #s(literal -55 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 m #s(literal 136451785456117/6064523798049644277925701126806650606472211004362096137261922023539261533931159712229993784486900304494092698035668254711607734547323493716579247168129613825017402250081444943555723771998431425098683590600454956058175183022718976 binary64)) (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 #s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 M M))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (.f64 (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))))
(if (<=.f64 m #s(literal -20000000000000000607572056854007333781504 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 m #s(literal -7522675460447435/36695977855841144185773134324833391052745039826692497979801421430190766017415756929120296849762010984873984 binary64)) (.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (if (<=.f64 m #s(literal -6325070415853457/197658450495420525734858737030192682665582665785295037457911482448662440984370455949180062208434691889831130726871886632216610095103313942252942773379627451095231859645084337269987214591887906583241960623508540106017585433031926463494241558251132379239072320812850360890950600210186037629088210457662115491511433340911616 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64)))) (.f64 (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))))))
(if (<=.f64 m #s(literal -20000000000000000607572056854007333781504 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 m #s(literal -2408173546789575/2293498615990071511610820895302086940796564989168281123737588839386922876088484808070018553110125686554624 binary64)) (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (if (<=.f64 m #s(literal -6325070415853457/197658450495420525734858737030192682665582665785295037457911482448662440984370455949180062208434691889831130726871886632216610095103313942252942773379627451095231859645084337269987214591887906583241960623508540106017585433031926463494241558251132379239072320812850360890950600210186037629088210457662115491511433340911616 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64)))) (.f64 (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))))))
(if (<=.f64 n #s(literal 3353432082404125/257956314031086546070478410603767874276780920916074961976543314954430616482775810290242800726395111276696481930301332362735521269288420672485614735577607215287298185546389201254263436365442598170421988724712494337962904439820098505292185985726092029535907510203973632 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 #s(literal -1/4 binary64) (.f64 m m)))) (cos.f64 M))) (if (<=.f64 n #s(literal 72000 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) (cos.f64 M))) (.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))))
(if (<=.f64 n #s(literal 5159126280621731/257956314031086546070478410603767874276780920916074961976543314954430616482775810290242800726395111276696481930301332362735521269288420672485614735577607215287298185546389201254263436365442598170421988724712494337962904439820098505292185985726092029535907510203973632 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 n #s(literal 72000 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) (cos.f64 M))) (.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))))
(if (<=.f64 n #s(literal 5159126280621731/257956314031086546070478410603767874276780920916074961976543314954430616482775810290242800726395111276696481930301332362735521269288420672485614735577607215287298185546389201254263436365442598170421988724712494337962904439820098505292185985726092029535907510203973632 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 n #s(literal 72000 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64)))) (.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))))
(if (<=.f64 m #s(literal -1000 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 m #s(literal -1640438043587259/273406340597876490546562778389702670669146178861651554553221325801244124899921990402939147127881728 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (if (<=.f64 m #s(literal 5764607523034235/18014398509481984 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64)))) (.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))))))
(if (<=.f64 M #s(literal -7009600759022017/2596148429267413814265248164610048 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64)))) (if (<=.f64 M #s(literal 53/2 binary64)) (.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

Outputs
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 n m)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
#s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (*.f64 (exp.f64 (-.f64 (fabs.f64 (-.f64 m n)) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 n m) (neg.f64 M)) #s(literal 2 binary64)) l))) (cos.f64 M)))
(if (<=.f64 m #s(literal -55 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 m #s(literal 136451785456117/6064523798049644277925701126806650606472211004362096137261922023539261533931159712229993784486900304494092698035668254711607734547323493716579247168129613825017402250081444943555723771998431425098683590600454956058175183022718976 binary64)) (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (-.f64 (neg.f64 #s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 M M))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (.f64 (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))))
(if (<=.f64 m #s(literal -55 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 m #s(literal 136451785456117/6064523798049644277925701126806650606472211004362096137261922023539261533931159712229993784486900304494092698035668254711607734547323493716579247168129613825017402250081444943555723771998431425098683590600454956058175183022718976 binary64)) (.f64 (cos.f64 (-.f64 (/.f64 (.f64 K (+.f64 m n)) #s(literal 2 binary64)) M)) (exp.f64 (neg.f64 (+.f64 #s(approx (pow (- (/ (+ m n) 2) M) 2) (.f64 M M)) (-.f64 l (fabs.f64 (-.f64 m n))))))) (.f64 (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))))
(if (<=.f64 m #s(literal -20000000000000000607572056854007333781504 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 m #s(literal -7522675460447435/36695977855841144185773134324833391052745039826692497979801421430190766017415756929120296849762010984873984 binary64)) (.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (if (<=.f64 m #s(literal -6325070415853457/197658450495420525734858737030192682665582665785295037457911482448662440984370455949180062208434691889831130726871886632216610095103313942252942773379627451095231859645084337269987214591887906583241960623508540106017585433031926463494241558251132379239072320812850360890950600210186037629088210457662115491511433340911616 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64)))) (.f64 (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))))))
(if (<=.f64 m #s(literal -20000000000000000607572056854007333781504 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 m #s(literal -7522675460447435/36695977855841144185773134324833391052745039826692497979801421430190766017415756929120296849762010984873984 binary64)) (.f64 (cos.f64 (-.f64 #s(approx (/ ( K (+ m n)) 2) (.f64 (.f64 n K) #s(literal 1/2 binary64))) M)) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (if (<=.f64 m #s(literal -6325070415853457/197658450495420525734858737030192682665582665785295037457911482448662440984370455949180062208434691889831130726871886632216610095103313942252942773379627451095231859645084337269987214591887906583241960623508540106017585433031926463494241558251132379239072320812850360890950600210186037629088210457662115491511433340911616 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) #s(approx (cos M) #s(literal 1 binary64)))) (.f64 (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))))))
(if (<=.f64 m #s(literal -20000000000000000607572056854007333781504 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 m #s(literal -2408173546789575/2293498615990071511610820895302086940796564989168281123737588839386922876088484808070018553110125686554624 binary64)) (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (if (<=.f64 m #s(literal -6325070415853457/197658450495420525734858737030192682665582665785295037457911482448662440984370455949180062208434691889831130726871886632216610095103313942252942773379627451095231859645084337269987214591887906583241960623508540106017585433031926463494241558251132379239072320812850360890950600210186037629088210457662115491511433340911616 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64)))) (.f64 (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))))))
(if (<=.f64 m #s(literal -20000000000000000607572056854007333781504 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 m #s(literal -2408173546789575/2293498615990071511610820895302086940796564989168281123737588839386922876088484808070018553110125686554624 binary64)) (.f64 (cos.f64 #s(approx (- (/ ( K (+ m n)) 2) M) (.f64 (.f64 n K) #s(literal 1/2 binary64)))) (exp.f64 (-.f64 #s(approx (neg (pow (- (/ (+ m n) 2) M) 2)) (.f64 (.f64 n n) #s(literal -1/4 binary64))) (-.f64 l (fabs.f64 (-.f64 m n)))))) (if (<=.f64 m #s(literal -6325070415853457/197658450495420525734858737030192682665582665785295037457911482448662440984370455949180062208434691889831130726871886632216610095103313942252942773379627451095231859645084337269987214591887906583241960623508540106017585433031926463494241558251132379239072320812850360890950600210186037629088210457662115491511433340911616 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) #s(approx (cos M) #s(literal 1 binary64)))) (.f64 (cos.f64 #s(approx (- (/ (* K (+ m n)) 2) M) (.f64 (.f64 m K) #s(literal 1/2 binary64)))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64))))))))
(if (<=.f64 n #s(literal 3353432082404125/257956314031086546070478410603767874276780920916074961976543314954430616482775810290242800726395111276696481930301332362735521269288420672485614735577607215287298185546389201254263436365442598170421988724712494337962904439820098505292185985726092029535907510203973632 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 #s(literal -1/4 binary64) (.f64 m m)))) (cos.f64 M))) (if (<=.f64 n #s(literal 72000 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) (cos.f64 M))) (.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))))
(if (<=.f64 n #s(literal 3353432082404125/257956314031086546070478410603767874276780920916074961976543314954430616482775810290242800726395111276696481930301332362735521269288420672485614735577607215287298185546389201254263436365442598170421988724712494337962904439820098505292185985726092029535907510203973632 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 #s(literal -1/4 binary64) (.f64 m m)))) (cos.f64 M))) (if (<=.f64 n #s(literal 72000 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (cos.f64 M))) (.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))))
(if (<=.f64 n #s(literal 5159126280621731/257956314031086546070478410603767874276780920916074961976543314954430616482775810290242800726395111276696481930301332362735521269288420672485614735577607215287298185546389201254263436365442598170421988724712494337962904439820098505292185985726092029535907510203973632 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 n #s(literal 72000 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) (cos.f64 M))) (.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))))
(if (<=.f64 n #s(literal 5159126280621731/257956314031086546070478410603767874276780920916074961976543314954430616482775810290242800726395111276696481930301332362735521269288420672485614735577607215287298185546389201254263436365442598170421988724712494337962904439820098505292185985726092029535907510203973632 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 n #s(literal 72000 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) (cos.f64 M))) (.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))))
(if (<=.f64 n #s(literal 5159126280621731/257956314031086546070478410603767874276780920916074961976543314954430616482775810290242800726395111276696481930301332362735521269288420672485614735577607215287298185546389201254263436365442598170421988724712494337962904439820098505292185985726092029535907510203973632 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 n #s(literal 72000 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64)))) (.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))))
(if (<=.f64 n #s(literal 5159126280621731/257956314031086546070478410603767874276780920916074961976543314954430616482775810290242800726395111276696481930301332362735521269288420672485614735577607215287298185546389201254263436365442598170421988724712494337962904439820098505292185985726092029535907510203973632 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 n #s(literal 72000 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) #s(approx (cos M) #s(literal 1 binary64)))) (.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 (.f64 n n) #s(literal -1/4 binary64)))))))
(if (<=.f64 m #s(literal -1000 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 m #s(literal -1640438043587259/273406340597876490546562778389702670669146178861651554553221325801244124899921990402939147127881728 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (if (<=.f64 m #s(literal 5764607523034235/18014398509481984 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64)))) (.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))))))
(if (<=.f64 m #s(literal -1000 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))) (if (<=.f64 m #s(literal -1640438043587259/273406340597876490546562778389702670669146178861651554553221325801244124899921990402939147127881728 binary64)) (.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) (if (<=.f64 m #s(literal 5764607523034235/18014398509481984 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) #s(approx (cos M) #s(literal 1 binary64)))) (.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (.f64 #s(literal -1/4 binary64) (.f64 m m))))))))
(if (<=.f64 M #s(literal -7009600759022017/2596148429267413814265248164610048 binary64)) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64)))) (if (<=.f64 M #s(literal 53/2 binary64)) (.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (neg.f64 (*.f64 M M)))) #s(approx (cos M) #s(literal 1 binary64))))))
(if (or (<=.f64 M #s(literal -7009600759022017/2596148429267413814265248164610048 binary64)) (not (<=.f64 M #s(literal 53/2 binary64)))) #s(approx (* (cos (- (/ (* K (+ m n)) 2) M)) (exp (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))))) (.f64 (exp.f64 #s(approx (- (fabs (- n m)) (+ (pow (+ ( 1/2 (+ n m)) (neg M)) 2) l)) (.f64 (neg.f64 M) M))) #s(approx (cos M) #s(literal 1 binary64)))) (.f64 #s(approx (sin (- (/ (* (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l)))))
(.f64 #s(approx (sin (- (/ ( (+ n m) K) 2) (- M (/ (PI) 2)))) #s(approx (cos M) #s(literal 1 binary64))) (exp.f64 #s(approx (- (neg (pow (- (/ (+ m n) 2) M) 2)) (- l (fabs (- m n)))) (neg.f64 l))))

derivations439.0ms (6.1%)

Memory

1.8MiB live, 428.0MiB allocated; 98ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 387 to 157 computations (88.7% saved)

preprocess85.0ms (1.2%)

Memory: 13.1MiB live, 100.7MiB allocated; 18ms collecting garbage
Remove: (sort m n)
Compiler: Compiled 3 032 to 496 computations (83.6% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.0ms (0%)

sample1.9s (26.9%)

explain812.0ms (11.3%)

preprocess232.0ms (3.2%)

eval0.0ms (0%)

prune1.0ms (0%)

series51.0ms (0.7%)

simplify334.0ms (4.6%)

rewrite88.0ms (1.2%)

eval58.0ms (0.8%)

prune22.0ms (0.3%)

series150.0ms (2.1%)

simplify298.0ms (4.1%)

rewrite173.0ms (2.4%)

eval257.0ms (3.6%)

prune46.0ms (0.6%)

series163.0ms (2.3%)

simplify228.0ms (3.2%)

rewrite164.0ms (2.3%)

eval157.0ms (2.2%)

prune32.0ms (0.4%)

series81.0ms (1.1%)

simplify251.0ms (3.5%)

rewrite134.0ms (1.9%)

eval144.0ms (2%)

prune51.0ms (0.7%)

regimes98.0ms (1.4%)

regimes76.0ms (1.1%)

regimes9.0ms (0.1%)

regimes8.0ms (0.1%)

regimes31.0ms (0.4%)

regimes3.0ms (0%)

regimes3.0ms (0%)

regimes4.0ms (0.1%)

regimes3.0ms (0%)

regimes26.0ms (0.4%)

bsearch74.0ms (1%)

bsearch125.0ms (1.7%)

bsearch27.0ms (0.4%)

bsearch62.0ms (0.9%)

bsearch27.0ms (0.4%)

bsearch3.0ms (0%)

bsearch99.0ms (1.4%)

bsearch82.0ms (1.1%)

simplify62.0ms (0.9%)

derivations439.0ms (6.1%)

preprocess85.0ms (1.2%)

end0.0ms (0%)

Profiling