Metrics for Maksimov and Kolovsky, Equation (3)

analyze415.0ms (4%)

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.9%	0.1%	0%	0%	0%	0
0%	0%	99.9%	0.1%	0%	0%	0%	1
0%	0%	99.9%	0.1%	0%	0%	0%	2
0%	0%	99.9%	0.1%	0%	0%	0%	3
0%	0%	99.9%	0.1%	0%	0%	0%	4
0%	0%	99.9%	0.1%	0%	0%	0%	5
37.5%	37.4%	62.4%	0.1%	0%	0%	0%	6
37.5%	37.4%	62.4%	0.1%	0%	0%	0%	7
43.8%	43.7%	56.2%	0.1%	0%	0%	0%	8
43.8%	43.7%	56.2%	0.1%	0%	0%	0%	9
43.8%	43.7%	56.2%	0.1%	0%	0%	0%	10
46.9%	46.8%	53%	0.1%	0%	0%	0%	11
46.9%	46.8%	53%	0.1%	0%	0%	0%	12

Compiler

Compiled 28 to 18 computations (35.7% saved)

Precisions

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

ival-mult: 74.0ms (36.7% of total)

ival-cos: 35.0ms (17.4% of total)

ival-div: 29.0ms (14.4% of total)

ival-pow: 29.0ms (14.4% of total)

ival-sqrt: 17.0ms (8.4% of total)

ival-add: 11.0ms (5.5% of total)

const: 5.0ms (2.5% of total)

backward-pass: 1.0ms (0.5% of total)

sample1.9s (18.9%)

Results

1.6s

8256×

valid

Precisions

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

ival-mult: 367.0ms (32.9% of total)

ival-cos: 299.0ms (26.8% of total)

ival-div: 188.0ms (16.9% of total)

ival-pow: 112.0ms (10% of total)

ival-sqrt: 63.0ms (5.7% of total)

ival-add: 62.0ms (5.6% of total)

const: 20.0ms (1.8% of total)

backward-pass: 4.0ms (0.4% of total)

Bogosity

preprocess109.0ms (1.1%)

Algorithm

2×	egg-herbie

Rules

1106×	`sum3-define`
994×	`distribute-lft-neg-in`
852×	`-lowering-.f32`
852×	`-lowering-.f64`
820×	`distribute-rgt-neg-in`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	75	246
1	192	210
2	648	210
3	2306	210
4	4630	210
0	17	24
1	33	21
2	79	21
3	206	21
4	619	21
5	1133	21
6	1568	21
7	1630	21
8	1648	21
9	1666	21
10	1674	21
11	1676	21
12	1676	21
0	1676	21

Stop Event

1×	iter limit
1×	saturated
1×	node limit

Calls

Call 1

Inputs
(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))

Outputs

(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))

(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (*.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))

Call 2

Inputs
(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
(* (* (* -2 (neg J)) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 (neg J)) (cos (/ K 2)))) 2))))
(* (* (* -2 J) (cos (/ (neg K) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ (neg K) 2)))) 2))))
(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ (neg U) (* (* 2 J) (cos (/ K 2)))) 2))))
(neg (* (* (* -2 (neg J)) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 (neg J)) (cos (/ K 2)))) 2)))))
(neg (* (* (* -2 J) (cos (/ (neg K) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ (neg K) 2)))) 2)))))
(neg (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ (neg U) (* (* 2 J) (cos (/ K 2)))) 2)))))
(* (* (* -2 K) (cos (/ J 2))) (sqrt (+ 1 (pow (/ U (* (* 2 K) (cos (/ J 2)))) 2))))
(* (* (* -2 U) (cos (/ K 2))) (sqrt (+ 1 (pow (/ J (* (* 2 U) (cos (/ K 2)))) 2))))
(* (* (* -2 J) (cos (/ U 2))) (sqrt (+ 1 (pow (/ K (* (* 2 J) (cos (/ U 2)))) 2))))

Outputs
(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
(* (* (* -2 J) (cos (/ K 2))) (hypot 1 (/ (* (/ U J) 1/2) (cos (/ K 2)))))
(* (* (* -2 (neg J)) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 (neg J)) (cos (/ K 2)))) 2))))
(* (* (cos (/ K 2)) (* J 2)) (hypot 1 (/ (* (/ U J) 1/2) (cos (/ K 2)))))
(* (* (* -2 J) (cos (/ (neg K) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ (neg K) 2)))) 2))))
(* (* (* -2 J) (cos (/ K 2))) (hypot 1 (/ (* (/ U J) 1/2) (cos (/ K 2)))))
(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ (neg U) (* (* 2 J) (cos (/ K 2)))) 2))))
(* (* (* -2 J) (cos (/ K 2))) (hypot 1 (/ (* (/ U J) 1/2) (cos (/ K 2)))))
(neg (* (* (* -2 (neg J)) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 (neg J)) (cos (/ K 2)))) 2)))))
(* (* (* -2 J) (cos (/ K 2))) (hypot 1 (/ (* (/ U J) 1/2) (cos (/ K 2)))))
(neg (* (* (* -2 J) (cos (/ (neg K) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ (neg K) 2)))) 2)))))
(* (* (cos (/ K 2)) (* J 2)) (hypot 1 (/ (* (/ U J) 1/2) (cos (/ K 2)))))
(neg (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ (neg U) (* (* 2 J) (cos (/ K 2)))) 2)))))
(* (* (cos (/ K 2)) (* J 2)) (hypot 1 (/ (* (/ U J) 1/2) (cos (/ K 2)))))
(* (* (* -2 K) (cos (/ J 2))) (sqrt (+ 1 (pow (/ U (* (* 2 K) (cos (/ J 2)))) 2))))
(* -2 (* (hypot 1 (/ U (* (cos (/ J 2)) (* K 2)))) (* K (cos (/ J 2)))))
(* (* (* -2 U) (cos (/ K 2))) (sqrt (+ 1 (pow (/ J (* (* 2 U) (cos (/ K 2)))) 2))))
(* -2 (* (hypot 1 (/ (/ (/ J 2) U) (cos (/ K 2)))) (* (cos (/ K 2)) U)))
(* (* (* -2 J) (cos (/ U 2))) (sqrt (+ 1 (pow (/ K (* (* 2 J) (cos (/ U 2)))) 2))))
(* (* (* -2 J) (cos (* U 1/2))) (hypot 1 (/ (/ (/ K 2) J) (cos (* U 1/2)))))

Symmetry

(abs K)

(abs U)

(negabs J)

explain245.0ms (2.4%)

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Example	Subexpression
40	0	-	-	`(sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))`
39	0	-	-	`(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))`
0	0	-	-	`(*.f64 #s(literal -2 binary64) J)`
0	0	-	-	`#s(literal -2 binary64)`
0	0	-	-	`#s(literal 2 binary64)`
0	0	-	-	`(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))`
0	0	-	-	`J`
0	76	(4.9464594519411627e+95 6.166959276172054e-252 1.6707552923957447e+189)	-	`(pow.f64 (/.f64 U (.f64 (.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))`
0	0	-	-	`(/.f64 U (.f64 (.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))`
0	0	-	-	`(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))`
0	0	-	-	`U`
0	0	-	-	`(*.f64 #s(literal 2 binary64) J)`
0	127	(2.3594701296900033e+184 2.851589223313361e+193 2.2309575102554824e-219)	-	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
0	0	-	-	`#s(literal 1 binary64)`
0	0	-	-	`(/.f64 K #s(literal 2 binary64))`
0	0	-	-	`K`
0	0	-	-	`(.f64 (.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))`

Results

173.0ms

512×

valid

Compiler

Compiled 255 to 53 computations (79.2% saved)

Precisions

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

ival-cos: 26.0ms (35.1% of total)

ival-mult: 23.0ms (31% of total)

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

ival-pow: 6.0ms (8.1% of total)

ival-sqrt: 5.0ms (6.7% of total)

ival-add: 4.0ms (5.4% of total)

const: 1.0ms (1.3% of total)

backward-pass: 0.0ms (0% of total)

eval0.0ms (0%)

Compiler: Compiled 24 to 15 computations (37.5% saved)

prune1.0ms (0%)

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	85.5%	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
▶	70.6%	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))

Status

Accuracy

Program

▶

85.5%

(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (*.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))

▶

70.6%

(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))

Compiler

Compiled 51 to 32 computations (37.3% saved)

simplify67.0ms (0.7%)

Algorithm

1×	egg-herbie

Localize:

Found 8 expressions of interest:

New	Metric	Score	Program
✓	cost-diff	0	(cos.f64 (/.f64 K #s(literal 2 binary64)))
✓	cost-diff	0	(*.f64 #s(literal -2 binary64) J)
✓	cost-diff	0	(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
✓	cost-diff	0	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
✓	cost-diff	0	(*.f64 #s(literal -2 binary64) J)
✓	cost-diff	0	(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
✓	cost-diff	0	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
✓	cost-diff	6528	(sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))

Rules

852×	`-lowering-.f32`
852×	`-lowering-.f64`
822×	`associate-*r/`
758×	`/-lowering-/.f32`
758×	`/-lowering-/.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	25	177
1	55	177
2	108	177
3	307	177
4	795	177
5	1314	177
6	1566	177
7	1846	177
8	2125	177
9	2199	177
10	2199	177
11	2339	177
12	2339	177
0	2339	177

Stop Event

1×	iter limit
1×	saturated

Calls

Call 1

Inputs
(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
(* (* -2 J) (cos (/ K 2)))
(* -2 J)
-2
J
(cos (/ K 2))
(/ K 2)
K
2
(sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))
(+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))
1
(pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)
(/ U (* (* 2 J) (cos (/ K 2))))
U
(* (* 2 J) (cos (/ K 2)))
(* 2 J)
(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))))
(* (* -2 J) (cos (/ K 2)))
(* -2 J)
-2
J
(cos (/ K 2))
(/ K 2)
K
2
(sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2))))))
1
(/ (/ U (* J 2)) (cos (/ K 2)))
(/ U (* J 2))
U
(* J 2)

Outputs
(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
(.f64 (.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(* (* -2 J) (cos (/ K 2)))
(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
-2
#s(literal -2 binary64)
J
(cos (/ K 2))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/ K 2)
(/.f64 K #s(literal 2 binary64))
K
2
#s(literal 2 binary64)
(sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))
(hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))
(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
1
#s(literal 1 binary64)
(pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)
(pow.f64 (/.f64 (/.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64))
(/ U (* (* 2 J) (cos (/ K 2))))
(/.f64 (/.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
U
(* (* 2 J) (cos (/ K 2)))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal 2 binary64)))
(* 2 J)
(*.f64 J #s(literal 2 binary64))
(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))))
(.f64 (.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(* (* -2 J) (cos (/ K 2)))
(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
-2
#s(literal -2 binary64)
J
(cos (/ K 2))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/ K 2)
(/.f64 K #s(literal 2 binary64))
K
2
#s(literal 2 binary64)
(sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2))))))
(hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
1
#s(literal 1 binary64)
(/ (/ U (* J 2)) (cos (/ K 2)))
(/.f64 (/.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/ U (* J 2))
(/.f64 (/.f64 U J) #s(literal 2 binary64))
U
(* J 2)
(*.f64 J #s(literal 2 binary64))

localize141.0ms (1.4%)

Localize:

Found 8 expressions of interest:

New	Metric	Score	Program
✓	accuracy	100.0%	(cos.f64 (/.f64 K #s(literal 2 binary64)))
✓	accuracy	99.8%	(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
✓	accuracy	99.8%	(/.f64 (/.f64 U (*.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
✓	accuracy	85.6%	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
✓	accuracy	99.8%	(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
✓	accuracy	99.6%	(pow.f64 (/.f64 U (.f64 (.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))
✓	accuracy	85.6%	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
✓	accuracy	85.4%	(sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))

Results

104.0ms

256×

valid

Compiler

Compiled 189 to 23 computations (87.8% saved)

Precisions

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

ival-mult: 15.0ms (32.9% of total)

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

compiled-spec: 7.0ms (15.4% of total)

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

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

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

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

const: 1.0ms (2.2% of total)

backward-pass: 0.0ms (0% of total)

series44.0ms (0.4%)

Counts

8 → 228

Calls

Call 1

Inputs
#<alt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))>
#<alt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))>
#<alt (* (* -2 J) (cos (/ K 2)))>
#<alt (* -2 J)>
#<alt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))))>
#<alt (cos (/ K 2))>
#<alt (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)>
#<alt (/ (/ U (* J 2)) (cos (/ K 2)))>

Outputs
#<alt 1>
#<alt (+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))>
#<alt (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))>
#<alt (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))>
#<alt (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))>
#<alt (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))>
#<alt (* -1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* -1 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))>
#<alt (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))>
#<alt (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (/ (* (pow J 2) (cos (* 1/2 K))) U)) J)>
#<alt (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 3)) (pow U 3))) (/ (cos (* 1/2 K)) U)))) J)>
#<alt (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 3) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 5)) (pow U 5))))) (/ (cos (* 1/2 K)) U)))) J)>
#<alt 1>
#<alt (+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))>
#<alt (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))>
#<alt (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))>
#<alt 1>
#<alt (+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))>
#<alt (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))>
#<alt (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))>
#<alt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))>
#<alt (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* 1/32 (* (/ (* (pow K 2) (pow U 2)) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))>
#<alt (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))>
#<alt (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))>
#<alt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))>
#<alt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))>
#<alt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))>
#<alt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))>
#<alt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))>
#<alt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))>
#<alt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))>
#<alt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))>
#<alt (* -1 U)>
#<alt (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))>
#<alt (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))>
#<alt (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))>
#<alt (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))>
#<alt (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))>
#<alt (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))>
#<alt (* -1 U)>
#<alt (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))>
#<alt (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))>
#<alt (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))>
#<alt U>
#<alt (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))>
#<alt (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))>
#<alt (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 J)>
#<alt (+ (* -2 J) (* 1/4 (* J (pow K 2))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -1 U)>
#<alt (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))>
#<alt (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))>
#<alt (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))>
#<alt (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))>
#<alt (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))>
#<alt (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))>
#<alt (* -1 U)>
#<alt (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))>
#<alt (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))>
#<alt (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))>
#<alt U>
#<alt (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))>
#<alt (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))>
#<alt (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))>
#<alt 1>
#<alt (+ 1 (* -1/8 (pow K 2)))>
#<alt (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))>
#<alt (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (pow J 2)))>
#<alt (+ (* 1/16 (/ (* (pow K 2) (pow U 2)) (pow J 2))) (* 1/4 (/ (pow U 2) (pow J 2))))>
#<alt (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))) (* 1/16 (/ (pow U 2) (pow J 2))))))>
#<alt (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* 1/16 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))) (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U J))>
#<alt (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))>
#<alt (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))>
#<alt (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>

Calls

57 calls:

Time	Variable		Point	Expression
5.0ms	K	@	-inf	(sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))
3.0ms	K	@	0	(* (* -2 J) (cos (/ K 2)))
2.0ms	K	@	0	(sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))
2.0ms	K	@	inf	(sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))
2.0ms	K	@	0	(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))

rewrite230.0ms (2.2%)

Algorithm

1×	batch-egg-rewrite

Rules

4472×	`-lowering-.f32`
4472×	`-lowering-.f64`
2962×	`/-lowering-/.f32`
2962×	`/-lowering-/.f64`
1154×	`associate-r`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	25	90
1	121	90
2	897	90
0	8748	90

Stop Event

1×	iter limit
1×	node limit

Counts

8 → 399

Calls

Call 1

Inputs
(sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))
(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
(* (* -2 J) (cos (/ K 2)))
(* -2 J)
(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))))
(cos (/ K 2))
(pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)
(/ (/ U (* J 2)) (cos (/ K 2)))

Outputs
(exp.f64 (.f64 (log1p.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 K))))) #s(literal 1/2 binary64)))
(hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))) (+.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))) #s(literal -1 binary64))))) (hypot.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 (.f64 #s(literal -4 binary64) J) J)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -4 binary64))))))
(/.f64 (hypot.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -3 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))) (+.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))) #s(literal -1 binary64))))))
(/.f64 (hypot.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -3 binary64))) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -4 binary64)) (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 (.f64 #s(literal -4 binary64) J) J)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -4 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 (.f64 #s(literal -4 binary64) J) J)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 K)))))))
(/.f64 (sqrt.f64 (+.f64 #s(literal -1 binary64) (neg.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -6 binary64))))) (sqrt.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))) (+.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))) #s(literal -1 binary64)))))))
(/.f64 (sqrt.f64 (+.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -4 binary64)))) (sqrt.f64 (+.f64 #s(literal -1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 K)))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -4 binary64)) #s(literal -1 binary64))) (sqrt.f64 (+.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 K)))) #s(literal -1 binary64))))
(/.f64 (neg.f64 (hypot.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -3 binary64)))) (neg.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))) (+.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))) #s(literal -1 binary64)))))))
(/.f64 (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -4 binary64))))) (neg.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 (.f64 #s(literal -4 binary64) J) J)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 K))))))))
(pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))) (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 K)))))) #s(literal 1/4 binary64))
(pow.f64 (exp.f64 (log1p.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))))) #s(literal 1/2 binary64))
(.f64 (hypot.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -3 binary64))) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))) (+.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 K)))) #s(literal -1 binary64))))) #s(literal 1/2 binary64)))
(.f64 (hypot.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))) (+.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 K)))) #s(literal -1 binary64)))))))
(.f64 (hypot.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -3 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))) (+.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 K)))) #s(literal -1 binary64)))))))
(.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -4 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 (.f64 #s(literal -4 binary64) J) J)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 (.f64 #s(literal -4 binary64) J) J)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))))))
(.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 (.f64 #s(literal -4 binary64) J) J)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))))))
(.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 K))))) #s(literal 1/4 binary64)))
(neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))))
(neg.f64 (.f64 (.f64 #s(literal 2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J)))))))
(neg.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))
(neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))))) (*.f64 #s(literal 2 binary64) J)))
(.f64 J (.f64 (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 J #s(literal -2 binary64)) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))))
(.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J)))))
(.f64 (.f64 J #s(literal -2 binary64)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))))) (*.f64 J #s(literal -2 binary64)))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) #s(literal -2 binary64)) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (*.f64 J #s(literal -2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (.f64 J #s(literal -2 binary64)) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (*.f64 #s(literal 2 binary64) J)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) J) (*.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) J))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -2 binary64))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) #s(literal -1 binary64)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64))) J)
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))) #s(literal 1/4 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))) #s(literal 1/4 binary64)))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))) J) #s(literal -2 binary64))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))) #s(literal -2 binary64)) J)
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))))) #s(literal -1 binary64)) (.f64 #s(literal 2 binary64) J))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))) (-.f64 #s(literal 0 binary64) J)) #s(literal 2 binary64))
(.f64 (.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J)))) #s(literal -2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J)
(+.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64))))
(-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 (.f64 #s(literal 4 binary64) J) J)) (.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 (.f64 #s(literal 4 binary64) J) J))) (+.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))))
(.f64 #s(literal 2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)))
(.f64 J (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))
(.f64 #s(literal -2 binary64) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 #s(literal 2 binary64) J) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))
(.f64 (.f64 J #s(literal -2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -2 binary64))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64))) J)
(.f64 (-.f64 #s(literal 0 binary64) J) (.f64 #s(literal 2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)) #s(literal 2 binary64))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64)) J)
(.f64 (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J)
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) J))
(.f64 (.f64 (*.f64 #s(literal 2 binary64) J) #s(literal -1 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 #s(literal -1 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64))) J)
(+.f64 #s(literal 0 binary64) (*.f64 J #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (*.f64 #s(literal 2 binary64) J))
(neg.f64 (*.f64 #s(literal 2 binary64) J))
(/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (.f64 #s(literal 2 binary64) J) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (+.f64 (.f64 (.f64 #s(literal 4 binary64) J) J) (.f64 #s(literal 0 binary64) (*.f64 #s(literal 2 binary64) J)))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 #s(literal 4 binary64) J) J)) (+.f64 #s(literal 0 binary64) (*.f64 #s(literal 2 binary64) J)))
(*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) J))
(*.f64 J #s(literal -2 binary64))
(*.f64 #s(literal -2 binary64) J)
(.f64 #s(literal -1 binary64) (.f64 #s(literal 2 binary64) J))
(*.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 2 binary64))
(neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))))
(neg.f64 (.f64 (.f64 #s(literal 2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J)))))))
(neg.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))
(neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))))) (*.f64 #s(literal 2 binary64) J)))
(.f64 J (.f64 (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 J #s(literal -2 binary64)) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))))
(.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J)))))
(.f64 (.f64 J #s(literal -2 binary64)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))))) (*.f64 J #s(literal -2 binary64)))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) #s(literal -2 binary64)) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (*.f64 J #s(literal -2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (.f64 J #s(literal -2 binary64)) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (*.f64 #s(literal 2 binary64) J)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) J) (*.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) J))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -2 binary64))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) #s(literal -1 binary64)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64))) J)
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))) #s(literal 1/4 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))) #s(literal 1/4 binary64)))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))) J) #s(literal -2 binary64))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))) #s(literal -2 binary64)) J)
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))))) #s(literal -1 binary64)) (.f64 #s(literal 2 binary64) J))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))) (-.f64 #s(literal 0 binary64) J)) #s(literal 2 binary64))
(.f64 (.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J)))) #s(literal -2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J)
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(cos.f64 (/.f64 K #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(neg.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(exp.f64 (.f64 #s(literal 2 binary64) (log.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))))
(exp.f64 (.f64 (.f64 #s(literal 2 binary64) (log.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))))) #s(literal 1 binary64)))
(neg.f64 (/.f64 (/.f64 (.f64 U U) (.f64 (.f64 #s(literal -4 binary64) J) J)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 U (*.f64 #s(literal 2 binary64) J))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 (*.f64 #s(literal 4 binary64) J) J)) (/.f64 #s(literal 1 binary64) U)) U))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 J #s(literal -2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) (-.f64 #s(literal 0 binary64) U)))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 4 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J U)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -4 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J U)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) U)))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 (.f64 #s(literal 4 binary64) J) J)) (*.f64 U U)))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) (/.f64 U (*.f64 #s(literal 2 binary64) J))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 #s(literal 2 binary64) J)) (.f64 (/.f64 U (/.f64 J U)) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 J #s(literal -2 binary64))) (/.f64 U (/.f64 (.f64 J #s(literal -2 binary64)) U))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 J #s(literal -2 binary64))) (/.f64 #s(literal 1 binary64) U)) (/.f64 U (*.f64 J #s(literal -2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 J #s(literal -2 binary64))) (.f64 #s(literal 2 binary64) J)) (.f64 U (-.f64 #s(literal 0 binary64) U))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 U (*.f64 J #s(literal -2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)) (/.f64 U (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64))) (.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64)))) U)))
(/.f64 U (.f64 (.f64 (.f64 (.f64 #s(literal 4 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J U)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 U (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 (*.f64 #s(literal 4 binary64) J) J)) (/.f64 #s(literal 1 binary64) U)))
(/.f64 U (neg.f64 (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 J #s(literal -2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J)))))
(/.f64 U (neg.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -4 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J U)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 K))) (/.f64 #s(literal 2 binary64) (/.f64 U J))))
(/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (neg.f64 (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (*.f64 J #s(literal -2 binary64))) (/.f64 #s(literal 1 binary64) U))))
(/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (neg.f64 (.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))))
(/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))
(/.f64 (/.f64 U (.f64 J #s(literal -2 binary64))) (.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (/.f64 U (.f64 J #s(literal -2 binary64))) (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (*.f64 J #s(literal -2 binary64))) (/.f64 #s(literal 1 binary64) U)))
(/.f64 (-.f64 #s(literal 0 binary64) U) (.f64 (.f64 (.f64 (.f64 #s(literal -4 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J U)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) U) (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 J #s(literal -2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))))
(/.f64 (/.f64 U (.f64 (.f64 (*.f64 #s(literal 4 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J U))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))))))
(/.f64 (.f64 U U) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 (*.f64 #s(literal 4 binary64) J) J)))
(/.f64 (.f64 (/.f64 U (/.f64 J U)) #s(literal 1/2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 #s(literal 2 binary64) J)))
(/.f64 (/.f64 U (/.f64 (.f64 J #s(literal -2 binary64)) U)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 J #s(literal -2 binary64))))
(/.f64 (.f64 U (-.f64 #s(literal 0 binary64) U)) (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 J #s(literal -2 binary64))) (.f64 #s(literal 2 binary64) J)))
(/.f64 (/.f64 (.f64 U U) (.f64 (.f64 #s(literal -4 binary64) J) J)) (+.f64 #s(literal -1/2 binary64) (neg.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 K)))))
(/.f64 (/.f64 (/.f64 U (/.f64 J U)) (.f64 (.f64 #s(literal -4 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (.f64 J #s(literal -2 binary64)) U)))
(/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J)))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J)))
(/.f64 (.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))) U) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64))))
(pow.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) #s(literal 2 binary64))
(pow.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))) #s(literal 1 binary64))
(pow.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -2 binary64))
(pow.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U)))) #s(literal -1 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))))
(.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 K)))))
(.f64 U (.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)) #s(literal -2 binary64)) U))
(.f64 U (pow.f64 (.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)) #s(literal -2 binary64)) U) #s(literal 1 binary64)))
(.f64 U (/.f64 #s(literal 1 binary64) (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 (.f64 #s(literal 4 binary64) J) J)) (/.f64 #s(literal 1 binary64) U))))
(.f64 U (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (*.f64 #s(literal 4 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J U)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))))
(.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (pow.f64 (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))) #s(literal 1 binary64)))
(.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (/.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U)))
(.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))
(.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))) (/.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) U)))
(.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 K)))) #s(literal 1 binary64))
(.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (/.f64 (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)))
(.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 K)))))
(.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (pow.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (*.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 U (.f64 J #s(literal -2 binary64))) (/.f64 (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U)))
(.f64 (/.f64 U (.f64 J #s(literal -2 binary64))) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 U (.f64 J #s(literal -2 binary64))) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 J #s(literal -2 binary64))) (/.f64 #s(literal 1 binary64) U))))
(.f64 (/.f64 U (.f64 J #s(literal -2 binary64))) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (*.f64 J #s(literal -2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J)))))
(.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (*.f64 #s(literal -4 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J U)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 U (.f64 (.f64 (.f64 #s(literal 4 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J U))))
(.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))) (/.f64 #s(literal 1 binary64) U)))
(.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U)))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U)))
(.f64 (/.f64 U (.f64 (.f64 (.f64 #s(literal 4 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J U))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 U J) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (.f64 #s(literal 2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)) #s(literal -2 binary64)) (.f64 U U))
(.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J)) #s(literal -2 binary64)) (/.f64 U (/.f64 #s(literal 1 binary64) U)))
(.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))) (/.f64 (/.f64 U J) (*.f64 #s(literal 4 binary64) (/.f64 J U))))
(.f64 (.f64 U U) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)) #s(literal -2 binary64)))
(.f64 (.f64 U U) (pow.f64 (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))) #s(literal 2 binary64)))
(.f64 (.f64 U U) (/.f64 #s(literal 1 binary64) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 (.f64 #s(literal 4 binary64) J) J))))
(.f64 (.f64 U U) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64))))))
(.f64 (.f64 (/.f64 U (/.f64 J U)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (*.f64 #s(literal 2 binary64) J))))
(.f64 (/.f64 U (/.f64 (.f64 J #s(literal -2 binary64)) U)) (/.f64 #s(literal 1 binary64) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (*.f64 J #s(literal -2 binary64)))))
(.f64 (.f64 U (-.f64 #s(literal 0 binary64) U)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 J #s(literal -2 binary64))) (*.f64 #s(literal 2 binary64) J))))
(.f64 (/.f64 (.f64 U U) (.f64 (.f64 #s(literal -4 binary64) J) J)) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 K))))))
(.f64 (/.f64 (/.f64 U (/.f64 J U)) (.f64 (*.f64 #s(literal -4 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64)))))
(.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))) (/.f64 (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64)))) (/.f64 #s(literal 1 binary64) U)))
(.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J)))) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J)))) (/.f64 U (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)) #s(literal -2 binary64)) U) U)
(.f64 (.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))) U) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))))
(.f64 (.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))) U) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (/.f64 U J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J)))) (/.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 U #s(literal 2 binary64)) (/.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)))
(.f64 (/.f64 U #s(literal 2 binary64)) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 U (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J)))))
(.f64 (/.f64 U (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (.f64 #s(literal 2 binary64) J)))
(*.f64 (/.f64 U (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 #s(literal 2 binary64) (/.f64 U J))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))) (/.f64 U (.f64 #s(literal 2 binary64) J)))
(.f64 (pow.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 K)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (/.f64 U (.f64 (.f64 (.f64 #s(literal 4 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J U))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (pow.f64 (.f64 U U) #s(literal 1 binary64)) (pow.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)) #s(literal -2 binary64)) #s(literal 1 binary64)))
(.f64 (pow.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J)))) #s(literal 1 binary64)) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) #s(literal -1 binary64)) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))
(.f64 (/.f64 U (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) #s(literal 2 binary64)))
(.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) J))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 2 binary64)) (/.f64 (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))) (/.f64 (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 2 binary64)) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J))))
(.f64 (-.f64 #s(literal 0 binary64) (/.f64 U J)) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (.f64 J #s(literal -2 binary64))))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64)))) (/.f64 #s(literal 2 binary64) (/.f64 U J))))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) #s(literal -2 binary64)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64))) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) J))
(.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)))
(.f64 (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) #s(literal 2 binary64)) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)))
(.f64 (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (*.f64 #s(literal 2 binary64) J)) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U)))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U)) (/.f64 #s(literal 1/2 binary64) J))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (.f64 #s(literal 2 binary64) J)) (/.f64 U (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) U))) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (.f64 J #s(literal -2 binary64))))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (.f64 J #s(literal -2 binary64))) (/.f64 (-.f64 #s(literal 0 binary64) U) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U J))) (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))) #s(literal 2 binary64)))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) #s(literal 2 binary64)) (/.f64 U (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) #s(literal 2 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) U) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J))))
(.f64 (/.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U)) (/.f64 U (.f64 #s(literal 2 binary64) J)))
(.f64 (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U)) (/.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J)))
(.f64 (/.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J)) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U)))
(.f64 (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) U))) (/.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J #s(literal -2 binary64))))
(*.f64 (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U J))) (/.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(.f64 (/.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 U (/.f64 (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)))
(.f64 (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) U)))
(.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U)) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (*.f64 #s(literal 2 binary64) J)))
(.f64 (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U)) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) U))) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 J #s(literal -2 binary64))))
(.f64 (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U J))) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(.f64 (/.f64 (/.f64 U (.f64 J #s(literal -2 binary64))) #s(literal 2 binary64)) (/.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)))
(.f64 (/.f64 (/.f64 U (.f64 J #s(literal -2 binary64))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (/.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) U)))
(.f64 (/.f64 (/.f64 U (.f64 J #s(literal -2 binary64))) (*.f64 #s(literal 2 binary64) J)) (/.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U)))
(.f64 (/.f64 (/.f64 U (.f64 J #s(literal -2 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U)) (/.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) J)))
(.f64 (/.f64 (/.f64 U (.f64 J #s(literal -2 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) U))) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (/.f64 U (.f64 J #s(literal -2 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U J))) (/.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U)) (/.f64 (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))) (.f64 #s(literal 2 binary64) J)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) U))) (/.f64 (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))) (.f64 J #s(literal -2 binary64))))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U J))) (/.f64 (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64)))) #s(literal 2 binary64)))
(.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (/.f64 #s(literal 1 binary64) U)))
(.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) U))) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (*.f64 J #s(literal -2 binary64))))
(.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U J))) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) #s(literal 2 binary64)))
(.f64 (/.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (/.f64 U (/.f64 J U)) #s(literal 1/2 binary64)))
(.f64 (/.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) U))) (/.f64 U (.f64 J #s(literal -2 binary64))))
(*.f64 (/.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U J))) (/.f64 U #s(literal 2 binary64)))
(.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) (/.f64 (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)))
(.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) (/.f64 #s(literal 2 binary64) (/.f64 U J))))
(.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) U)))
(.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) (.f64 #s(literal 2 binary64) J)) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U)))
(.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U)) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) (.f64 #s(literal 2 binary64) J)))
(.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) U))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) (.f64 J #s(literal -2 binary64))))
(.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U J))) (/.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 U U) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (.f64 (/.f64 U (/.f64 J U)) #s(literal 1/2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) J) (/.f64 U (.f64 #s(literal 2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) J) (/.f64 (-.f64 #s(literal 0 binary64) U) (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 U #s(literal 2 binary64)))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 U J))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) U)))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) U))) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U J))) #s(literal 1/2 binary64))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) #s(literal -2 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) U) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 U (.f64 J #s(literal -2 binary64))))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) #s(literal -1 binary64)) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64)))))
(.f64 (/.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64))) (-.f64 #s(literal 0 binary64) (/.f64 U J)))
(.f64 (/.f64 (/.f64 U (.f64 J #s(literal -2 binary64))) #s(literal -1 binary64)) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))))
(.f64 (.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 U (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))))) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (/.f64 U (.f64 (.f64 (*.f64 #s(literal 4 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J U))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (/.f64 U (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J)))) #s(literal 1 binary64)) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(exp.f64 (log.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))))
(exp.f64 (.f64 (log.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J)))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))))
(-.f64 (/.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))))
(neg.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64)))))
(neg.f64 (.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (/.f64 U J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 U J)))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal 2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 U J)))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 J #s(literal -2 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) U) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (/.f64 (/.f64 U J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 U #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 U (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/.f64 (/.f64 U (*.f64 J #s(literal -2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) U) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64))))
(/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (/.f64 U J)))
(/.f64 (/.f64 U J) (*.f64 #s(literal 2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 U J) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 #s(literal -1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (.f64 J #s(literal -2 binary64)) U)))
(/.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (*.f64 J #s(literal -2 binary64)) U))
(/.f64 (/.f64 (/.f64 U J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (/.f64 U #s(literal 2 binary64)) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 U (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) J))
(/.f64 (exp.f64 (log.f64 U)) (exp.f64 (log.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))))
(/.f64 (exp.f64 (log.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)))) (exp.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (exp.f64 (log.f64 (/.f64 U (*.f64 J #s(literal -2 binary64))))) (exp.f64 (log.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (exp.f64 (log.f64 (-.f64 #s(literal 0 binary64) U))) (exp.f64 (log.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64))))))
(/.f64 (neg.f64 (/.f64 U #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)))
(/.f64 (neg.f64 (/.f64 (/.f64 U J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (/.f64 U J)) (neg.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 0 binary64) (/.f64 U J)) (*.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 J #s(literal -2 binary64)))
(/.f64 (neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) J))
(pow.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))) #s(literal 1 binary64))
(pow.f64 (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K)))) #s(literal 1/2 binary64))
(pow.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1 binary64))
(pow.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) #s(literal 2 binary64))
(.f64 #s(literal 1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))
(*.f64 U (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))) #s(literal 1 binary64))
(.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) U) #s(literal -1 binary64)))
(.f64 #s(literal 1/2 binary64) (/.f64 U (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J U)))
(.f64 (/.f64 U (.f64 J #s(literal -2 binary64))) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64)))))
(.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 U (.f64 #s(literal 2 binary64) J)))
(*.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(*.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) U) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 U (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (/.f64 #s(literal 1/2 binary64) J) (pow.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) U)))
(.f64 (/.f64 U J) (/.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 (/.f64 U J) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(.f64 (/.f64 U J) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64))))
(.f64 #s(literal -1 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64)))))
(.f64 #s(literal -1/2 binary64) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J))))
(.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 U (.f64 J #s(literal -2 binary64))))
(*.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) U)))
(*.f64 (/.f64 #s(literal -1/2 binary64) J) (/.f64 U (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)))
(*.f64 (/.f64 (/.f64 U J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(.f64 (/.f64 U #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 (/.f64 U #s(literal 2 binary64)) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J))
(*.f64 (/.f64 U (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) J))
(.f64 (pow.f64 (/.f64 U (.f64 J #s(literal -2 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U) #s(literal -1 binary64)) (/.f64 #s(literal 1/2 binary64) J))
(*.f64 (pow.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) U)) #s(literal -1 binary64)) (/.f64 #s(literal -1/2 binary64) J))
(*.f64 (pow.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U J)) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(*.f64 (exp.f64 (log.f64 U)) (exp.f64 (log.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(.f64 (exp.f64 (log.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)))) (exp.f64 (log.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(*.f64 (/.f64 U #s(literal -1 binary64)) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) #s(literal -1 binary64)) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 #s(literal -1 binary64) J) (/.f64 U (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 U (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(.f64 (/.f64 #s(literal -1 binary64) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 U #s(literal -2 binary64)))
(.f64 (/.f64 #s(literal -1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64))) (/.f64 U J))
(.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) J))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J))))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 2 binary64)) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) J)))
(.f64 (-.f64 #s(literal 0 binary64) (/.f64 U J)) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 (-.f64 #s(literal 0 binary64) (/.f64 U J)) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -2 binary64)))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1/2 binary64))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64))) (/.f64 #s(literal 1 binary64) J))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 U (*.f64 #s(literal 2 binary64) J)))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U) (/.f64 #s(literal 1/2 binary64) J))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) U)) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (.f64 #s(literal 1 binary64) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64))) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (/.f64 U J))) #s(literal -1/2 binary64)))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 U J)) #s(literal 1/2 binary64))

simplify303.0ms (2.9%)

Algorithm

1×	egg-herbie

Rules

6680×	`-lowering-.f32`
6680×	`-lowering-.f64`
1846×	`/-lowering-/.f32`
1846×	`/-lowering-/.f64`
1812×	`times-frac`

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	389	5504
1	1370	4713
2	5881	4506
0	8594	4506

Stop Event

1×	iter limit
1×	node limit

Counts

228 → 228

Calls

Call 1

Inputs
1
(+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))
(+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))
(* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))
(* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))
(* -1/2 (/ U (* J (cos (* 1/2 K)))))
(* -1 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))
(* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))
(* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (/ (* (pow J 2) (cos (* 1/2 K))) U)) J)
(/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 3)) (pow U 3))) (/ (cos (* 1/2 K)) U)))) J)
(/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 3) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 5)) (pow U 5))))) (/ (cos (* 1/2 K)) U)))) J)
1
(+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))
(+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
1
(+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))
(+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
(+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* 1/32 (* (/ (* (pow K 2) (pow U 2)) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
(+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))
(+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(* -1 U)
(+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))
(* -2 (* J (cos (* 1/2 K))))
(* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))
(* -2 (* J (cos (* 1/2 K))))
(* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
(* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* J (cos (* 1/2 K))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(* -1 U)
(* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))
(* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))
(* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))
U
(* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))
(* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))
(* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 J)
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -1 U)
(+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))
(* -2 (* J (cos (* 1/2 K))))
(* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))
(* -2 (* J (cos (* 1/2 K))))
(* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
(* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* J (cos (* 1/2 K))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(* -1 U)
(* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))
(* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))
(* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))
U
(* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))
(* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))
(* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))
1
(+ 1 (* -1/8 (pow K 2)))
(+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))
(+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (pow J 2)))
(+ (* 1/16 (/ (* (pow K 2) (pow U 2)) (pow J 2))) (* 1/4 (/ (pow U 2) (pow J 2))))
(+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))) (* 1/16 (/ (pow U 2) (pow J 2))))))
(+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* 1/16 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))) (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U J))
(+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))
(+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))
(+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))

Outputs
1
#s(literal 1 binary64)
(+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))
(+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))
(+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 U U) (+.f64 (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal -1/128 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64))) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 J J) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))))))
(+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 U U) (+.f64 (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 J J) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))) (.f64 (.f64 U U) (+.f64 (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/1024 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64))) (/.f64 #s(literal -1/128 binary64) (.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)))))))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))
(.f64 U (+.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 J (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)))))
(* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))
(.f64 U (-.f64 (+.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 J (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 U U)))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64)) (/.f64 (.f64 J (*.f64 J J)) (pow.f64 U #s(literal 4 binary64))))))
(* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))
(.f64 U (+.f64 (-.f64 (+.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 J (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 U U)))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64)) (/.f64 (.f64 J (.f64 J J)) (pow.f64 U #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64)) (/.f64 (pow.f64 J #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64)))))))
(* -1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal -1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))
(* -1 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))
(.f64 (+.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 J (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)))) (-.f64 #s(literal 0 binary64) U))
(* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))
(-.f64 #s(literal 0 binary64) (.f64 U (-.f64 (+.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 J (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 U U)))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64)) (/.f64 (.f64 J (*.f64 J J)) (pow.f64 U #s(literal 4 binary64)))))))
(* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
(.f64 (+.f64 (-.f64 (+.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 J (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 U U)))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64)) (/.f64 (.f64 J (.f64 J J)) (pow.f64 U #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64)) (/.f64 (pow.f64 J #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64)))))) (-.f64 #s(literal 0 binary64) U))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (/ (* (pow J 2) (cos (* 1/2 K))) U)) J)
(/.f64 (+.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 (*.f64 J J) U))) J)
(/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 3)) (pow U 3))) (/ (cos (* 1/2 K)) U)))) J)
(/.f64 (+.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (.f64 J J) (-.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) U) (.f64 J (.f64 J (pow.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) U) #s(literal 3 binary64))))))) J)
(/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 3) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 5)) (pow U 5))))) (/ (cos (* 1/2 K)) U)))) J)
(/.f64 (+.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (.f64 J J) (+.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) U) (.f64 (.f64 J J) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64)) (/.f64 (.f64 J J) (pow.f64 U #s(literal 5 binary64))))) (pow.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) U) #s(literal 3 binary64))))))) J)
1
#s(literal 1 binary64)
(+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))
(+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))
(+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(+.f64 #s(literal 1 binary64) (+.f64 (/.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (/.f64 (/.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)))))
(+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(+.f64 #s(literal 1 binary64) (+.f64 (+.f64 (/.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (/.f64 (/.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)))) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 6 binary64))) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)))))
1
#s(literal 1 binary64)
(+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))
(+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))
(+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(+.f64 #s(literal 1 binary64) (+.f64 (/.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (/.f64 (/.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)))))
(+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(+.f64 #s(literal 1 binary64) (+.f64 (+.f64 (/.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (/.f64 (/.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)))) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 6 binary64))) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))
(+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* 1/32 (* (/ (* (pow K 2) (pow U 2)) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 #s(literal 1/32 binary64) (.f64 U (.f64 U (.f64 K K)))) (.f64 J J))))
(+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 (.f64 K K) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (+.f64 (/.f64 (.f64 #s(literal 1/32 binary64) (.f64 U U)) (.f64 J J)) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 K K)) (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))))))))
(+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 (.f64 K K) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 #s(literal 1/32 binary64) (.f64 U U)) (.f64 J J))) (.f64 (.f64 (.f64 K K) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (+.f64 (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 (.f64 K K) (+.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal -1/96 binary64)) (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 13/2880 binary64)))) (.f64 (/.f64 #s(literal -1/32 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 U U) (*.f64 J J))))))))))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))))
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))
(-.f64 (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) U) U)
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))
(-.f64 (.f64 (.f64 J J) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) #s(literal -2 binary64)) U) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (/.f64 (.f64 J J) (.f64 U (.f64 U U))))))) U)
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))
(-.f64 (.f64 (.f64 J J) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) #s(literal -2 binary64)) U) (.f64 J (.f64 J (+.f64 (/.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64))) (pow.f64 U #s(literal 5 binary64))) (/.f64 (.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64))) (.f64 U (.f64 U U)))))))) U)
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))
(.f64 J (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64)) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal -1/4 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (*.f64 J J))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))
(.f64 J (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64)) (+.f64 (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal -1/4 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 J J)) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal 1/64 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))
(.f64 J (+.f64 (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64)) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal -1/4 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 J J))) (+.f64 (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal 1/64 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 6 binary64)) #s(literal -1/512 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))
(.f64 (+.f64 (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 #s(literal 2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (neg.f64 J))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))
(-.f64 #s(literal 0 binary64) (.f64 J (+.f64 (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (+.f64 (.f64 #s(literal 2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal -1/64 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64)))))))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
(.f64 (+.f64 (+.f64 (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 #s(literal 2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (+.f64 (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal -1/64 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 6 binary64)) #s(literal 1/512 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))))) (neg.f64 J))
(* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (*.f64 J #s(literal -2 binary64)))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))
(+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal -2 binary64))) (.f64 (.f64 K K) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 J (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))))) (.f64 #s(literal -1/16 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 U U) J))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
(+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal -2 binary64))) (.f64 (.f64 (.f64 K K) #s(literal -2 binary64)) (+.f64 (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal -1/8 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 #s(literal 1/32 binary64) (/.f64 (.f64 U U) J)))) (.f64 (.f64 K K) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 #s(literal -1/256 binary64) (.f64 U U)) J)) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal 1/384 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 (.f64 #s(literal 1/2 binary64) J) (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)))))))))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))
(+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal -2 binary64))) (.f64 (.f64 K K) (+.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 J (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))))) (.f64 #s(literal -1/16 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 U U) J)))) (.f64 (.f64 (.f64 K K) #s(literal -2 binary64)) (+.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 #s(literal -1/256 binary64) (.f64 U U)) J)) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal 1/384 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 (.f64 #s(literal 1/2 binary64) J) (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))))))) (.f64 (.f64 K K) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 (.f64 #s(literal -1/16 binary64) J) (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))))) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal -1/46080 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (+.f64 (.f64 (/.f64 (.f64 U U) J) #s(literal 1/12288 binary64)) (.f64 (.f64 #s(literal 1/2 binary64) J) (+.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal -1/96 binary64)) (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 13/2880 binary64)))) (.f64 (/.f64 #s(literal -1/32 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 U U) (.f64 J J))))))))))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 U U) J)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))) (.f64 (.f64 U U) (-.f64 (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/64 binary64)) (.f64 J (.f64 J J))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (/.f64 (/.f64 #s(literal 1/4 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))) (.f64 (.f64 U U) (+.f64 (.f64 (.f64 U U) (+.f64 (/.f64 (.f64 #s(literal -1/512 binary64) (/.f64 (.f64 U U) (pow.f64 J #s(literal 5 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) (/.f64 (/.f64 #s(literal 1/64 binary64) (.f64 J (.f64 J J))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))))) (/.f64 #s(literal -1/4 binary64) (.f64 J (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))
(.f64 U (+.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (.f64 U U))))
(* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))
(.f64 U (+.f64 (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (.f64 U U)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))))) #s(literal -1 binary64))))
(* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))
(.f64 U (+.f64 (+.f64 (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (.f64 U U)) (.f64 #s(literal -4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (/.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64)))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))))) #s(literal -1 binary64))))
U
(* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (.f64 U U))))
(* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))
(.f64 U (neg.f64 (+.f64 (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (.f64 U U)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))))) #s(literal -1 binary64)))))
(* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 (+.f64 (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (.f64 U U)) (.f64 #s(literal -4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (/.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64)))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))))) #s(literal -1 binary64))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 J (.f64 #s(literal 1/4 binary64) (.f64 K K))))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 J (.f64 (.f64 K K) #s(literal -1/192 binary64))) (*.f64 J #s(literal 1/4 binary64)))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal 1/4 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal -1/192 binary64)) (.f64 J (.f64 (.f64 K K) #s(literal 1/23040 binary64))))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))
(-.f64 (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) U) U)
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))
(-.f64 (.f64 (.f64 J J) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) #s(literal -2 binary64)) U) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (/.f64 (.f64 J J) (.f64 U (.f64 U U))))))) U)
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))
(-.f64 (.f64 (.f64 J J) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) #s(literal -2 binary64)) U) (.f64 J (.f64 J (+.f64 (/.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64))) (pow.f64 U #s(literal 5 binary64))) (/.f64 (.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64))) (.f64 U (.f64 U U)))))))) U)
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))
(.f64 J (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64)) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal -1/4 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (*.f64 J J))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))
(.f64 J (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64)) (+.f64 (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal -1/4 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 J J)) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal 1/64 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))
(.f64 J (+.f64 (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64)) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal -1/4 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 J J))) (+.f64 (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal 1/64 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 6 binary64)) #s(literal -1/512 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))
(.f64 (+.f64 (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 #s(literal 2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (neg.f64 J))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))
(-.f64 #s(literal 0 binary64) (.f64 J (+.f64 (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (+.f64 (.f64 #s(literal 2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal -1/64 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64)))))))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
(.f64 (+.f64 (+.f64 (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 #s(literal 2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K)))) (+.f64 (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal -1/64 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 6 binary64)) #s(literal 1/512 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))))) (neg.f64 J))
(* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (*.f64 J #s(literal -2 binary64)))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))
(+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal -2 binary64))) (.f64 (.f64 K K) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 J (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))))) (.f64 #s(literal -1/16 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 U U) J))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
(+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal -2 binary64))) (.f64 (.f64 (.f64 K K) #s(literal -2 binary64)) (+.f64 (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal -1/8 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 #s(literal 1/32 binary64) (/.f64 (.f64 U U) J)))) (.f64 (.f64 K K) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 #s(literal -1/256 binary64) (.f64 U U)) J)) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal 1/384 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 (.f64 #s(literal 1/2 binary64) J) (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)))))))))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))
(+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal -2 binary64))) (.f64 (.f64 K K) (+.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 J (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))))) (.f64 #s(literal -1/16 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 U U) J)))) (.f64 (.f64 (.f64 K K) #s(literal -2 binary64)) (+.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 #s(literal -1/256 binary64) (.f64 U U)) J)) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal 1/384 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 (.f64 #s(literal 1/2 binary64) J) (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))))))) (.f64 (.f64 K K) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 (.f64 #s(literal -1/16 binary64) J) (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))))) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal -1/46080 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (+.f64 (.f64 (/.f64 (.f64 U U) J) #s(literal 1/12288 binary64)) (.f64 (.f64 #s(literal 1/2 binary64) J) (+.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal -1/96 binary64)) (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 13/2880 binary64)))) (.f64 (/.f64 #s(literal -1/32 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 U U) (.f64 J J))))))))))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 U U) J)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))) (.f64 (.f64 U U) (-.f64 (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/64 binary64)) (.f64 J (.f64 J J))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (/.f64 (/.f64 #s(literal 1/4 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))) (.f64 (.f64 U U) (+.f64 (.f64 (.f64 U U) (+.f64 (/.f64 (.f64 #s(literal -1/512 binary64) (/.f64 (.f64 U U) (pow.f64 J #s(literal 5 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) (/.f64 (/.f64 #s(literal 1/64 binary64) (.f64 J (.f64 J J))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))))) (/.f64 #s(literal -1/4 binary64) (.f64 J (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))
(.f64 U (+.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (.f64 U U))))
(* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))
(.f64 U (+.f64 (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (.f64 U U)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))))) #s(literal -1 binary64))))
(* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))
(.f64 U (+.f64 (+.f64 (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (.f64 U U)) (.f64 #s(literal -4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (/.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64)))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))))) #s(literal -1 binary64))))
U
(* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (.f64 U U))))
(* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))
(.f64 U (neg.f64 (+.f64 (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (.f64 U U)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))))) #s(literal -1 binary64)))))
(* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 (+.f64 (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (.f64 U U)) (.f64 #s(literal -4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (/.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64)))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))))) #s(literal -1 binary64))))
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow K 2)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64)))
(+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) (+.f64 #s(literal -1/8 binary64) (.f64 K (.f64 K #s(literal 1/384 binary64))))))
(+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) (+.f64 #s(literal -1/8 binary64) (.f64 K (.f64 K (+.f64 #s(literal 1/384 binary64) (.f64 (.f64 K K) #s(literal -1/46080 binary64))))))))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (pow J 2)))
(/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))
(+ (* 1/16 (/ (* (pow K 2) (pow U 2)) (pow J 2))) (* 1/4 (/ (pow U 2) (pow J 2))))
(+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (.f64 (/.f64 (.f64 U U) (.f64 J J)) (.f64 #s(literal 1/16 binary64) (.f64 K K))))
(+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))) (* 1/16 (/ (pow U 2) (pow J 2))))))
(+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (.f64 (.f64 K K) (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/16 binary64)) (.f64 J J)) (.f64 (.f64 K K) (.f64 (/.f64 (.f64 U U) (*.f64 J J)) #s(literal 1/96 binary64))))))
(+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* 1/16 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))) (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))))
(+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (.f64 (.f64 K K) (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/16 binary64)) (.f64 J J)) (.f64 (.f64 (.f64 K K) #s(literal -1/4 binary64)) (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal -1/24 binary64)) (.f64 J J)) (.f64 K (.f64 K (+.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal -1/96 binary64)) (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 13/2880 binary64))))))))))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))
(/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))
(+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (.f64 #s(literal 1/16 binary64) (.f64 U (/.f64 (.f64 K K) J))))
(+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (.f64 (.f64 K K) (+.f64 (.f64 K (.f64 K (.f64 (/.f64 U J) #s(literal 5/768 binary64)))) (/.f64 (*.f64 U #s(literal 1/16 binary64)) J))))
(+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))
(+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (.f64 K (.f64 K (+.f64 (/.f64 (.f64 U #s(literal 1/16 binary64)) J) (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 (/.f64 (.f64 U #s(literal -5/384 binary64)) J) (.f64 (.f64 K K) (+.f64 (.f64 (/.f64 U J) #s(literal -5/3072 binary64)) (.f64 (/.f64 U J) #s(literal 7/23040 binary64))))) (.f64 K K)))))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) J)

eval109.0ms (1.1%)

Compiler: Compiled 22722 to 2229 computations (90.2% saved)

prune92.0ms (0.9%)

Pruning

12 alts after pruning (11 fresh and 1 done)

	Pruned	Kept	Total
New	751	11	762
Fresh	0	0	0
Picked	1	1	2
Done	0	0	0
Total	752	12	764

Accuracy

99.9%

Counts

764 → 12

Alt Table

Click to see full alt table

Status	Accuracy	Program
	43.5%	(-.f64 #s(literal 0 binary64) U)
	46.6%	(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 U U) J)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))))
	49.6%	(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 (.f64 #s(literal 4 binary64) J) J))) (+.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
	32.7%	(.f64 (.f64 (/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (.f64 #s(literal 2 binary64) J) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (+.f64 (.f64 (.f64 #s(literal 4 binary64) J) J) (.f64 #s(literal 0 binary64) (.f64 #s(literal 2 binary64) J))))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
▶	49.9%	(.f64 (.f64 (/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 #s(literal 4 binary64) J) J)) (+.f64 #s(literal 0 binary64) (.f64 #s(literal 2 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
	70.4%	(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))) #s(literal 1/4 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))) #s(literal 1/4 binary64)))
▶	85.4%	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
✓	85.5%	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
▶	68.1%	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J))))
	33.6%	(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (*.f64 J #s(literal -2 binary64)))
▶	46.5%	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
▶	15.0%	U

Compiler

Compiled 586 to 365 computations (37.7% saved)

simplify185.0ms (1.8%)

Algorithm

1×	egg-herbie

Localize:

Found 16 expressions of interest:

New	Metric	Score	Program
✓	cost-diff	0	(.f64 (.f64 (/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 #s(literal 4 binary64) J) J)) (+.f64 #s(literal 0 binary64) (.f64 #s(literal 2 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
✓	cost-diff	128	(+.f64 #s(literal 0 binary64) (*.f64 #s(literal 2 binary64) J))
✓	cost-diff	128	(-.f64 #s(literal 0 binary64) (.f64 (.f64 #s(literal 4 binary64) J) J))
✓	cost-diff	384	(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 #s(literal 4 binary64) J) J)) (+.f64 #s(literal 0 binary64) (*.f64 #s(literal 2 binary64) J)))
✓	cost-diff	0	(cos.f64 (/.f64 K #s(literal 2 binary64)))
✓	cost-diff	0	(*.f64 #s(literal -2 binary64) J)
✓	cost-diff	0	(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
✓	cost-diff	0	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J))))
✓	cost-diff	0	(*.f64 J #s(literal -2 binary64))
✓	cost-diff	0	(*.f64 #s(literal 1/2 binary64) K)
✓	cost-diff	0	(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
✓	cost-diff	0	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
✓	cost-diff	0	(*.f64 #s(literal -2 binary64) J)
✓	cost-diff	0	(.f64 (.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
✓	cost-diff	0	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
✓	cost-diff	256	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))

Rules

3850×	`-lowering-.f32`
3850×	`-lowering-.f64`
3216×	`/-lowering-/.f32`
3216×	`/-lowering-/.f64`
1340×	`fma-define`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	42	259
1	111	256
2	362	256
3	1341	256
4	4524	256
0	8079	256

Stop Event

1×	iter limit
1×	node limit

Calls

Call 1

Inputs
(* (* (* -2 J) (/ 1 (/ 1 (cos (/ K 2))))) (sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))))
(* (* -2 J) (/ 1 (/ 1 (cos (/ K 2)))))
(* -2 J)
-2
J
(/ 1 (/ 1 (cos (/ K 2))))
1
(/ 1 (cos (/ K 2)))
(cos (/ K 2))
(/ K 2)
K
2
(sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2))))))
(/ (/ U (* J 2)) (cos (/ K 2)))
(/ U (* J 2))
U
(* J 2)
U
(* (cos (* 1/2 K)) (* J -2))
(cos (* 1/2 K))
(* 1/2 K)
1/2
K
(* J -2)
J
-2
(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (* 1 1) (* (* 1/2 (/ U J)) (* 1/2 (/ U J))))))
(* (* -2 J) (cos (/ K 2)))
(* -2 J)
-2
J
(cos (/ K 2))
(/ K 2)
K
2
(sqrt (+ (* 1 1) (* (* 1/2 (/ U J)) (* 1/2 (/ U J)))))
1
(* 1/2 (/ U J))
1/2
(/ U J)
U
(* (* (/ (- 0 (* (* 4 J) J)) (+ 0 (* 2 J))) (cos (/ K 2))) (sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))))
(* (/ (- 0 (* (* 4 J) J)) (+ 0 (* 2 J))) (cos (/ K 2)))
(/ (- 0 (* (* 4 J) J)) (+ 0 (* 2 J)))
(- 0 (* (* 4 J) J))
0
(* (* 4 J) J)
(* 4 J)
4
J
(+ 0 (* 2 J))
(* 2 J)
2
(cos (/ K 2))
(/ K 2)
K
(sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2))))))
1
(/ (/ U (* J 2)) (cos (/ K 2)))
(/ U (* J 2))
U
(* J 2)

Outputs
(* (* (* -2 J) (/ 1 (/ 1 (cos (/ K 2))))) (sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))))
(.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(* (* -2 J) (/ 1 (/ 1 (cos (/ K 2)))))
(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
-2
#s(literal -2 binary64)
J
(/ 1 (/ 1 (cos (/ K 2))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
1
#s(literal 1 binary64)
(/ 1 (cos (/ K 2)))
(/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(cos (/ K 2))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/ K 2)
(/.f64 K #s(literal 2 binary64))
K
2
#s(literal 2 binary64)
(sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2))))))
(hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (*.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/ (/ U (* J 2)) (cos (/ K 2)))
(/.f64 (/.f64 U (*.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/ U (* J 2))
(/.f64 U (*.f64 J #s(literal 2 binary64)))
U
(* J 2)
(*.f64 J #s(literal 2 binary64))
U
(* (cos (* 1/2 K)) (* J -2))
(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 K #s(literal 1/2 binary64))))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
1/2
#s(literal 1/2 binary64)
K
(* J -2)
(*.f64 #s(literal -2 binary64) J)
J
-2
#s(literal -2 binary64)
(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (* 1 1) (* (* 1/2 (/ U J)) (* 1/2 (/ U J))))))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))))
(* (* -2 J) (cos (/ K 2)))
(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
-2
#s(literal -2 binary64)
J
(cos (/ K 2))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/ K 2)
(/.f64 K #s(literal 2 binary64))
K
2
#s(literal 2 binary64)
(sqrt (+ (* 1 1) (* (* 1/2 (/ U J)) (* 1/2 (/ U J)))))
(hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J)))
1
#s(literal 1 binary64)
(* 1/2 (/ U J))
(*.f64 U (/.f64 #s(literal 1/2 binary64) J))
1/2
#s(literal 1/2 binary64)
(/ U J)
(/.f64 U J)
U
(* (* (/ (- 0 (* (* 4 J) J)) (+ 0 (* 2 J))) (cos (/ K 2))) (sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))))
(.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(* (/ (- 0 (* (* 4 J) J)) (+ 0 (* 2 J))) (cos (/ K 2)))
(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/ (- 0 (* (* 4 J) J)) (+ 0 (* 2 J)))
(*.f64 #s(literal -2 binary64) J)
(- 0 (* (* 4 J) J))
(.f64 J (.f64 J #s(literal -4 binary64)))
0
#s(literal 0 binary64)
(* (* 4 J) J)
(.f64 J (.f64 J #s(literal 4 binary64)))
(* 4 J)
(*.f64 J #s(literal 4 binary64))
4
#s(literal 4 binary64)
J
(+ 0 (* 2 J))
(*.f64 J #s(literal 2 binary64))
(* 2 J)
(*.f64 J #s(literal 2 binary64))
2
#s(literal 2 binary64)
(cos (/ K 2))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/ K 2)
(/.f64 K #s(literal 2 binary64))
K
(sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2))))))
(hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (*.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
1
#s(literal 1 binary64)
(/ (/ U (* J 2)) (cos (/ K 2)))
(/.f64 (/.f64 U (*.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/ U (* J 2))
(/.f64 U (*.f64 J #s(literal 2 binary64)))
U
(* J 2)
(*.f64 J #s(literal 2 binary64))

localize233.0ms (2.3%)

Localize:

Found 16 expressions of interest:

New	Metric	Score	Program
✓	accuracy	99.8%	(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 #s(literal 4 binary64) J) J)) (+.f64 #s(literal 0 binary64) (.f64 #s(literal 2 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
✓	accuracy	99.8%	(/.f64 (/.f64 U (*.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
✓	accuracy	85.6%	(.f64 (.f64 (/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 #s(literal 4 binary64) J) J)) (+.f64 #s(literal 0 binary64) (.f64 #s(literal 2 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
✓	accuracy	56.0%	(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 #s(literal 4 binary64) J) J)) (+.f64 #s(literal 0 binary64) (*.f64 #s(literal 2 binary64) J)))
✓	accuracy	100.0%	(cos.f64 (/.f64 K #s(literal 2 binary64)))
✓	accuracy	100.0%	(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
✓	accuracy	99.8%	(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
✓	accuracy	85.5%	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J))))
✓	accuracy	100.0%	(*.f64 J #s(literal -2 binary64))
✓	accuracy	100.0%	(*.f64 #s(literal 1/2 binary64) K)
✓	accuracy	100.0%	(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
✓	accuracy	99.8%	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
✓	accuracy	99.8%	(.f64 (.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
✓	accuracy	99.8%	(/.f64 (/.f64 U (*.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
✓	accuracy	99.7%	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
✓	accuracy	85.6%	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))

Results

169.0ms

256×

valid

Compiler

Compiled 309 to 38 computations (87.7% saved)

Precisions

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

ival-mult: 36.0ms (41.1% of total)

compiled-spec: 16.0ms (18.3% of total)

ival-div: 14.0ms (16% of total)

ival-cos: 11.0ms (12.6% of total)

ival-add: 4.0ms (4.6% of total)

ival-sqrt: 4.0ms (4.6% of total)

ival-sub: 1.0ms (1.1% of total)

const: 1.0ms (1.1% of total)

backward-pass: 0.0ms (0% of total)

series27.0ms (0.3%)

Counts

18 → 372

Calls

Call 1

Inputs
#<alt (/ 1 (/ 1 (cos (/ K 2))))>
#<alt (* (* (* -2 J) (/ 1 (/ 1 (cos (/ K 2))))) (sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))))>
#<alt (* (* -2 J) (/ 1 (/ 1 (cos (/ K 2)))))>
#<alt (* -2 J)>
#<alt (* (cos (* 1/2 K)) (* J -2))>
#<alt (cos (* 1/2 K))>
#<alt (* 1/2 K)>
#<alt (* J -2)>
#<alt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (* 1 1) (* (* 1/2 (/ U J)) (* 1/2 (/ U J))))))>
#<alt (* (* -2 J) (cos (/ K 2)))>
#<alt (cos (/ K 2))>
#<alt (/ (- 0 (* (* 4 J) J)) (+ 0 (* 2 J)))>
#<alt (- 0 (* (* 4 J) J))>
#<alt (+ 0 (* 2 J))>
#<alt (* (* (/ (- 0 (* (* 4 J) J)) (+ 0 (* 2 J))) (cos (/ K 2))) (sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))))>
#<alt (/ (/ U (* J 2)) (cos (/ K 2)))>
#<alt (* 1/2 (/ U J))>
#<alt (* (/ (- 0 (* (* 4 J) J)) (+ 0 (* 2 J))) (cos (/ K 2)))>

Outputs
#<alt 1>
#<alt (+ 1 (* -1/8 (pow K 2)))>
#<alt (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))>
#<alt (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (* -1 U)>
#<alt (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))>
#<alt (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))>
#<alt (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))>
#<alt (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))>
#<alt (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))>
#<alt (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))>
#<alt (* -1 U)>
#<alt (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))>
#<alt (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))>
#<alt (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))>
#<alt U>
#<alt (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))>
#<alt (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))>
#<alt (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 J)>
#<alt (+ (* -2 J) (* 1/4 (* J (pow K 2))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (+ (* -2 J) (* 1/4 (* J (pow K 2))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt 1>
#<alt (+ 1 (* -1/8 (pow K 2)))>
#<alt (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))>
#<alt (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -1 (* U (cos (* 1/2 K))))>
#<alt (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) U)) (* -1 (* U (cos (* 1/2 K)))))>
#<alt (+ (* -1 (* U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -2 (/ (cos (* 1/2 K)) U)) (* 2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 3))))))>
#<alt (+ (* -1 (* U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -2 (/ (cos (* 1/2 K)) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 5))) (* 2 (/ (cos (* 1/2 K)) (pow U 3))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2)))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (+ (* -1/512 (/ (* (pow U 6) (cos (* 1/2 K))) (pow J 6))) (* 1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4)))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -1 (* J (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K))))))>
#<alt (* -1 (* J (+ (* -1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))) (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K)))))))>
#<alt (* -1 (* J (+ (* -1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))) (+ (* 1/512 (/ (* (pow U 6) (cos (* 1/2 K))) (pow J 6))) (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K))))))))>
#<alt (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/4 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -1/192 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/4 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* 1/4 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -1/192 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/23040 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) J)))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (+ (* -1/4 (/ (cos (* 1/2 K)) J)) (* 1/64 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 3))))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (+ (* -1/4 (/ (cos (* 1/2 K)) J)) (* (pow U 2) (+ (* -1/512 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 5))) (* 1/64 (/ (cos (* 1/2 K)) (pow J 3))))))))>
#<alt (* -1 (* U (cos (* 1/2 K))))>
#<alt (* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (* -1 (cos (* 1/2 K)))))>
#<alt (* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4))))))>
#<alt (* U (+ (* -4 (/ (* (pow J 6) (cos (* 1/2 K))) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4)))))))>
#<alt (* U (cos (* 1/2 K)))>
#<alt (* -1 (* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (* -1 (cos (* 1/2 K))))))>
#<alt (* -1 (* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4)))))))>
#<alt (* -1 (* U (+ (* -4 (/ (* (pow J 6) (cos (* 1/2 K))) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 J)>
#<alt (+ (* -2 J) (* 1/4 (* J (pow K 2))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt 1>
#<alt (+ 1 (* -1/8 (pow K 2)))>
#<alt (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))>
#<alt (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* -1 U)>
#<alt (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))>
#<alt (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))>
#<alt (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))>
#<alt (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))>
#<alt (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))>
#<alt (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))>
#<alt (* -1 U)>
#<alt (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))>
#<alt (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))>
#<alt (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))>
#<alt U>
#<alt (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))>
#<alt (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))>
#<alt (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U J))>
#<alt (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))>
#<alt (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))>
#<alt (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 J)>
#<alt (+ (* -2 J) (* 1/4 (* J (pow K 2))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>

Calls

93 calls:

Time	Variable		Point	Expression
7.0ms	U	@	0	(* 1/2 (/ U J))
2.0ms	U	@	inf	(* 1/2 (/ U J))
2.0ms	J	@	inf	(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (* 1 1) (* (* 1/2 (/ U J)) (* 1/2 (/ U J))))))
1.0ms	K	@	inf	(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (* 1 1) (* (* 1/2 (/ U J)) (* 1/2 (/ U J))))))
1.0ms	J	@	0	(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (* 1 1) (* (* 1/2 (/ U J)) (* 1/2 (/ U J))))))

rewrite307.0ms (3%)

Algorithm

1×	batch-egg-rewrite

Rules

3700×	`/-lowering-/.f32`
3700×	`/-lowering-/.f64`
3280×	`-lowering-.f32`
3280×	`-lowering-.f64`
1568×	`pow-lowering-pow.f64`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	42	138
1	216	136
2	2066	136
0	8665	136

Stop Event

1×	iter limit
1×	node limit

Counts

18 → 948

Calls

Call 1

Inputs
(/ 1 (/ 1 (cos (/ K 2))))
(* (* (* -2 J) (/ 1 (/ 1 (cos (/ K 2))))) (sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))))
(* (* -2 J) (/ 1 (/ 1 (cos (/ K 2)))))
(* -2 J)
(* (cos (* 1/2 K)) (* J -2))
(cos (* 1/2 K))
(* 1/2 K)
(* J -2)
(* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (* 1 1) (* (* 1/2 (/ U J)) (* 1/2 (/ U J))))))
(* (* -2 J) (cos (/ K 2)))
(cos (/ K 2))
(/ (- 0 (* (* 4 J) J)) (+ 0 (* 2 J)))
(- 0 (* (* 4 J) J))
(+ 0 (* 2 J))
(* (* (/ (- 0 (* (* 4 J) J)) (+ 0 (* 2 J))) (cos (/ K 2))) (sqrt (+ (* 1 1) (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))))
(/ (/ U (* J 2)) (cos (/ K 2)))
(* 1/2 (/ U J))
(* (/ (- 0 (* (* 4 J) J)) (+ 0 (* 2 J))) (cos (/ K 2)))

Outputs
(exp.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(cos.f64 (/.f64 K #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1 binary64)))
(neg.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 K #s(literal 2 binary64))))))) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 #s(literal -1 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))) (.f64 #s(literal 2 binary64) J))
(/.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) J))
(/.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))) (.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) J))
(/.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))))
(/.f64 (neg.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) J))) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))))) (.f64 #s(literal -2 binary64) J))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))) (.f64 #s(literal -2 binary64) J))
(/.f64 (neg.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))) (neg.f64 (.f64 #s(literal -2 binary64) J)))
(/.f64 (neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))) (.f64 #s(literal -2 binary64) J))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(.f64 #s(literal -2 binary64) (.f64 J (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(.f64 J (.f64 #s(literal -2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))))
(.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J)) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))))
(.f64 (.f64 #s(literal -2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (.f64 #s(literal -2 binary64) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (.f64 #s(literal -2 binary64) J))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -2 binary64)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal -2 binary64))
(-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 0 binary64) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))))
(-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))) (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)))
(/.f64 #s(literal 1 binary64) (neg.f64 (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))))
(/.f64 #s(literal 1 binary64) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J)))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (neg.f64 (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (neg.f64 (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))))
(/.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal 2 binary64) J))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (neg.f64 (.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) J)))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal 4 binary64)))) (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 1 binary64)) (.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal -1 binary64)) (.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal 1 binary64)) (.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal -1 binary64)) (.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (neg.f64 (*.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))) (.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal 4 binary64)))) (.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 (.f64 #s(literal -2 binary64) J) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 #s(literal -1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal 2 binary64)) J)
(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
(/.f64 (/.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (*.f64 #s(literal -2 binary64) J))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J)))) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) J))))
(/.f64 (neg.f64 (.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal 4 binary64))))) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J))))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal -1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal 1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal -1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))))) (neg.f64 (.f64 #s(literal -2 binary64) J)))
(/.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal 4 binary64))))) (neg.f64 (.f64 #s(literal -2 binary64) J)))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -2 binary64) J) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 #s(literal -1 binary64) (.f64 #s(literal -2 binary64) J))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J))
(/.f64 (neg.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J)) #s(literal -2 binary64))
(/.f64 (neg.f64 (/.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 1 binary64))) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(pow.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))) #s(literal -1 binary64))
(pow.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) J)))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J))
(.f64 #s(literal -2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(*.f64 J (/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 J (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(literal -2 binary64))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (/.f64 #s(literal 1/2 binary64) J))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) J) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)))
(*.f64 (/.f64 J #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 (.f64 #s(literal 2 binary64) J) #s(literal 1 binary64)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64)) J)
(.f64 (/.f64 (.f64 #s(literal -2 binary64) J) #s(literal 1 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal -4 binary64) (.f64 J J))) (*.f64 #s(literal -2 binary64) J))
(+.f64 #s(literal 0 binary64) (*.f64 #s(literal -2 binary64) J))
(+.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 0 binary64))
(exp.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (*.f64 #s(literal 2 binary64) J))
(-.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 0 binary64))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64))) (/.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64))))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (*.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 #s(literal 0 binary64) (neg.f64 (.f64 #s(literal -2 binary64) J))) (.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (.f64 #s(literal 2 binary64) J)) (.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal 2 binary64) J)) (.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (neg.f64 (.f64 #s(literal -2 binary64) J))) (.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (neg.f64 (.f64 #s(literal -2 binary64) J))) (.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (.f64 #s(literal 2 binary64) J) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))) (/.f64 (.f64 (.f64 J (.f64 J J)) (.f64 (.f64 J (.f64 J J)) #s(literal 64 binary64))) (.f64 (.f64 #s(literal 2 binary64) J) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))))
(fma.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J) #s(literal 0 binary64))
(fma.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) J) #s(literal 0 binary64))
(fma.f64 #s(literal -2 binary64) J #s(literal 0 binary64))
(fma.f64 #s(literal -2 binary64) (*.f64 J #s(literal 1 binary64)) #s(literal 0 binary64))
(fma.f64 J #s(literal -2 binary64) #s(literal 0 binary64))
(fma.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)) #s(literal 0 binary64))
(fma.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (/.f64 #s(literal 1/2 binary64) J) #s(literal 0 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 #s(literal 2 binary64) J) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 2 binary64) #s(literal 0 binary64))
(fma.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 1 binary64) #s(literal 0 binary64))
(fma.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 0 binary64))
(fma.f64 (-.f64 (/.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64))) (/.f64 #s(literal 1/2 binary64) J)) (.f64 J (*.f64 J #s(literal 4 binary64))) #s(literal 0 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 #s(literal -4 binary64) (.f64 J J))) (*.f64 #s(literal -2 binary64) J) #s(literal 0 binary64))
(neg.f64 (*.f64 #s(literal 2 binary64) J))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (*.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (neg.f64 (neg.f64 (*.f64 #s(literal -2 binary64) J))))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (*.f64 #s(literal 2 binary64) J))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (neg.f64 (*.f64 #s(literal -2 binary64) J)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)) #s(literal 1 binary64))))
(/.f64 (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64)) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(/.f64 (.f64 (.f64 J (.f64 J J)) (.f64 (.f64 J (.f64 J J)) #s(literal 64 binary64))) (neg.f64 (.f64 (.f64 #s(literal 2 binary64) J) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))))
(/.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) (.f64 (.f64 #s(literal 2 binary64) J) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (.f64 (.f64 J (*.f64 J J)) #s(literal 8 binary64)))
(/.f64 (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64)) (.f64 J (*.f64 J #s(literal 4 binary64))))
(/.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 1 binary64)) (.f64 #s(literal 2 binary64) J))
(/.f64 (.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) #s(literal 1 binary64)) (.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (*.f64 #s(literal 2 binary64) J)))
(/.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) #s(literal 1 binary64)) (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64)))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))) (.f64 (.f64 J (*.f64 J J)) #s(literal -8 binary64)))
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)) J)
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64))))
(/.f64 (.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 #s(literal 1/2 binary64) J)) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (*.f64 J J))))
(/.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 #s(literal 1/2 binary64) J)) (.f64 J (*.f64 J #s(literal 4 binary64))))
(/.f64 (neg.f64 (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64)))) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 1 binary64))) (.f64 #s(literal -2 binary64) J))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) #s(literal 1 binary64))) (neg.f64 (.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (*.f64 #s(literal 2 binary64) J))))
(/.f64 (neg.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) #s(literal 1 binary64))) (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64)))
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J))
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J)) #s(literal -2 binary64))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 #s(literal 1/2 binary64) J))) (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (*.f64 J J)))))
(/.f64 (neg.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 #s(literal 1/2 binary64) J))) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(/.f64 (+.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 #s(literal 0 binary64) (*.f64 #s(literal -2 binary64) J)))))
(/.f64 (+.f64 (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64)) #s(literal 0 binary64)) (+.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 0 binary64)))))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)) #s(literal 1 binary64)) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))
(*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) J))
(*.f64 #s(literal -2 binary64) J)
(.f64 #s(literal -2 binary64) (.f64 J #s(literal 1 binary64)))
(*.f64 J #s(literal -2 binary64))
(.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 J (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal -1 binary64)))
(.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))
(.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) (/.f64 #s(literal 1/2 binary64) J))
(.f64 #s(literal -1 binary64) (.f64 #s(literal 2 binary64) J))
(*.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 2 binary64))
(.f64 (.f64 #s(literal -2 binary64) J) #s(literal 1 binary64))
(.f64 (/.f64 #s(literal 1 binary64) J) (pow.f64 (/.f64 #s(literal 2 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (pow.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal -1 binary64)))
(.f64 (-.f64 (/.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64))) (/.f64 #s(literal 1/2 binary64) J)) (.f64 J (.f64 J #s(literal 4 binary64))))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal -2 binary64) J))
(.f64 (pow.f64 (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))))
(.f64 (pow.f64 (/.f64 (.f64 #s(literal 2 binary64) J) (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal 4 binary64)))))
(-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 0 binary64) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))))
(-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))) (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)))
(/.f64 #s(literal 1 binary64) (neg.f64 (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))))
(/.f64 #s(literal 1 binary64) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J)))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (neg.f64 (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (neg.f64 (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))))
(/.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal 2 binary64) J))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (neg.f64 (.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) J)))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal 4 binary64)))) (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 1 binary64)) (.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal -1 binary64)) (.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal 1 binary64)) (.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal -1 binary64)) (.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (neg.f64 (*.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))) (.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal 4 binary64)))) (.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 (.f64 #s(literal -2 binary64) J) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 #s(literal -1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal 2 binary64)) J)
(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
(/.f64 (/.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (*.f64 #s(literal -2 binary64) J))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J)))) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) J))))
(/.f64 (neg.f64 (.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal 4 binary64))))) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J))))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal -1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal 1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal -1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))))) (neg.f64 (.f64 #s(literal -2 binary64) J)))
(/.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal 4 binary64))))) (neg.f64 (.f64 #s(literal -2 binary64) J)))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -2 binary64) J) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 #s(literal -1 binary64) (.f64 #s(literal -2 binary64) J))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J))
(/.f64 (neg.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J)) #s(literal -2 binary64))
(/.f64 (neg.f64 (/.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 1 binary64))) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(pow.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))) #s(literal -1 binary64))
(pow.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) J)))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J))
(.f64 #s(literal -2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(*.f64 J (/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 J (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(literal -2 binary64))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (/.f64 #s(literal 1/2 binary64) J))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) J) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)))
(*.f64 (/.f64 J #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 (.f64 #s(literal 2 binary64) J) #s(literal 1 binary64)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64)) J)
(.f64 (/.f64 (.f64 #s(literal -2 binary64) J) #s(literal 1 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal -4 binary64) (.f64 J J))) (*.f64 #s(literal -2 binary64) J))
(exp.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(cos.f64 (/.f64 K #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1 binary64)))
(neg.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 K #s(literal 2 binary64))))))) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 #s(literal -1 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) K)) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 K #s(literal -2 binary64)))
(neg.f64 (/.f64 K #s(literal -2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) K))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) K) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 #s(literal 2 binary64) K))))
(/.f64 K #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) K)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 2 binary64) K) #s(literal 1 binary64))))
(/.f64 (-.f64 #s(literal 0 binary64) K) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) K)) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 0 binary64) K))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) K) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 2 binary64) K) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 K #s(literal 2 binary64)))
(*.f64 K #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) K)
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) K) #s(literal -1 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) K) #s(literal -1/2 binary64))
(+.f64 #s(literal 0 binary64) (*.f64 #s(literal -2 binary64) J))
(+.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 0 binary64))
(exp.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (*.f64 #s(literal 2 binary64) J))
(-.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 0 binary64))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64))) (/.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64))))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (*.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 #s(literal 0 binary64) (neg.f64 (.f64 #s(literal -2 binary64) J))) (.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (.f64 #s(literal 2 binary64) J)) (.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal 2 binary64) J)) (.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (neg.f64 (.f64 #s(literal -2 binary64) J))) (.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (neg.f64 (.f64 #s(literal -2 binary64) J))) (.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (.f64 #s(literal 2 binary64) J) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))) (/.f64 (.f64 (.f64 J (.f64 J J)) (.f64 (.f64 J (.f64 J J)) #s(literal 64 binary64))) (.f64 (.f64 #s(literal 2 binary64) J) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))))
(fma.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J) #s(literal 0 binary64))
(fma.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) J) #s(literal 0 binary64))
(fma.f64 #s(literal -2 binary64) J #s(literal 0 binary64))
(fma.f64 #s(literal -2 binary64) (*.f64 J #s(literal 1 binary64)) #s(literal 0 binary64))
(fma.f64 J #s(literal -2 binary64) #s(literal 0 binary64))
(fma.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)) #s(literal 0 binary64))
(fma.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (/.f64 #s(literal 1/2 binary64) J) #s(literal 0 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 #s(literal 2 binary64) J) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 2 binary64) #s(literal 0 binary64))
(fma.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 1 binary64) #s(literal 0 binary64))
(fma.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 0 binary64))
(fma.f64 (-.f64 (/.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64))) (/.f64 #s(literal 1/2 binary64) J)) (.f64 J (*.f64 J #s(literal 4 binary64))) #s(literal 0 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 #s(literal -4 binary64) (.f64 J J))) (*.f64 #s(literal -2 binary64) J) #s(literal 0 binary64))
(neg.f64 (*.f64 #s(literal 2 binary64) J))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (*.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (neg.f64 (neg.f64 (*.f64 #s(literal -2 binary64) J))))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (*.f64 #s(literal 2 binary64) J))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (neg.f64 (*.f64 #s(literal -2 binary64) J)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)) #s(literal 1 binary64))))
(/.f64 (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64)) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(/.f64 (.f64 (.f64 J (.f64 J J)) (.f64 (.f64 J (.f64 J J)) #s(literal 64 binary64))) (neg.f64 (.f64 (.f64 #s(literal 2 binary64) J) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))))
(/.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) (.f64 (.f64 #s(literal 2 binary64) J) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (.f64 (.f64 J (*.f64 J J)) #s(literal 8 binary64)))
(/.f64 (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64)) (.f64 J (*.f64 J #s(literal 4 binary64))))
(/.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 1 binary64)) (.f64 #s(literal 2 binary64) J))
(/.f64 (.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) #s(literal 1 binary64)) (.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (*.f64 #s(literal 2 binary64) J)))
(/.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) #s(literal 1 binary64)) (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64)))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))) (.f64 (.f64 J (*.f64 J J)) #s(literal -8 binary64)))
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)) J)
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64))))
(/.f64 (.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 #s(literal 1/2 binary64) J)) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (*.f64 J J))))
(/.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 #s(literal 1/2 binary64) J)) (.f64 J (*.f64 J #s(literal 4 binary64))))
(/.f64 (neg.f64 (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64)))) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 1 binary64))) (.f64 #s(literal -2 binary64) J))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) #s(literal 1 binary64))) (neg.f64 (.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (*.f64 #s(literal 2 binary64) J))))
(/.f64 (neg.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) #s(literal 1 binary64))) (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64)))
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J))
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J)) #s(literal -2 binary64))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 #s(literal 1/2 binary64) J))) (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (*.f64 J J)))))
(/.f64 (neg.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 #s(literal 1/2 binary64) J))) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(/.f64 (+.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 #s(literal 0 binary64) (*.f64 #s(literal -2 binary64) J)))))
(/.f64 (+.f64 (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64)) #s(literal 0 binary64)) (+.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 0 binary64)))))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)) #s(literal 1 binary64)) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))
(*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) J))
(*.f64 #s(literal -2 binary64) J)
(.f64 #s(literal -2 binary64) (.f64 J #s(literal 1 binary64)))
(*.f64 J #s(literal -2 binary64))
(.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 J (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal -1 binary64)))
(.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))
(.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) (/.f64 #s(literal 1/2 binary64) J))
(.f64 #s(literal -1 binary64) (.f64 #s(literal 2 binary64) J))
(*.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 2 binary64))
(.f64 (.f64 #s(literal -2 binary64) J) #s(literal 1 binary64))
(.f64 (/.f64 #s(literal 1 binary64) J) (pow.f64 (/.f64 #s(literal 2 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (pow.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal -1 binary64)))
(.f64 (-.f64 (/.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64))) (/.f64 #s(literal 1/2 binary64) J)) (.f64 J (.f64 J #s(literal 4 binary64))))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal -2 binary64) J))
(.f64 (pow.f64 (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))))
(.f64 (pow.f64 (/.f64 (.f64 #s(literal 2 binary64) J) (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal 4 binary64)))))
(/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))) (*.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (/.f64 U (*.f64 #s(literal 2 binary64) J)))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))) (*.f64 #s(literal -2 binary64) J))) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (/.f64 U (*.f64 #s(literal 2 binary64) J))))) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J)))))
(.f64 #s(literal -2 binary64) (.f64 J (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J)))))
(.f64 J (.f64 #s(literal -2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J)) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))))
(.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J)))
(.f64 (.f64 #s(literal -2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J)))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (.f64 #s(literal -2 binary64) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J)))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J)))) (.f64 #s(literal -2 binary64) J))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))) #s(literal -2 binary64)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))) (.f64 #s(literal -2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal -2 binary64))
(-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 0 binary64) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))))
(-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))) (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)))
(/.f64 #s(literal 1 binary64) (neg.f64 (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))))
(/.f64 #s(literal 1 binary64) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J)))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (neg.f64 (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (neg.f64 (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))))
(/.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal 2 binary64) J))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (neg.f64 (.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) J)))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal 4 binary64)))) (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 1 binary64)) (.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal -1 binary64)) (.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal 1 binary64)) (.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal -1 binary64)) (.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (neg.f64 (*.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))) (.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal 4 binary64)))) (.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 (.f64 #s(literal -2 binary64) J) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 #s(literal -1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal 2 binary64)) J)
(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
(/.f64 (/.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (*.f64 #s(literal -2 binary64) J))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J)))) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) J))))
(/.f64 (neg.f64 (.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal 4 binary64))))) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J))))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal -1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal 1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal -1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))))) (neg.f64 (.f64 #s(literal -2 binary64) J)))
(/.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal 4 binary64))))) (neg.f64 (.f64 #s(literal -2 binary64) J)))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -2 binary64) J) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 #s(literal -1 binary64) (.f64 #s(literal -2 binary64) J))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J))
(/.f64 (neg.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J)) #s(literal -2 binary64))
(/.f64 (neg.f64 (/.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 1 binary64))) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(pow.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))) #s(literal -1 binary64))
(pow.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) J)))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J))
(.f64 #s(literal -2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(*.f64 J (/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 J (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(literal -2 binary64))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (/.f64 #s(literal 1/2 binary64) J))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) J) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)))
(*.f64 (/.f64 J #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 (.f64 #s(literal 2 binary64) J) #s(literal 1 binary64)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64)) J)
(.f64 (/.f64 (.f64 #s(literal -2 binary64) J) #s(literal 1 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal -4 binary64) (.f64 J J))) (*.f64 #s(literal -2 binary64) J))
(exp.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(cos.f64 (/.f64 K #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1 binary64)))
(neg.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 K #s(literal 2 binary64))))))) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 #s(literal -1 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(+.f64 #s(literal 0 binary64) (*.f64 #s(literal -2 binary64) J))
(+.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 0 binary64))
(exp.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (*.f64 #s(literal 2 binary64) J))
(-.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 0 binary64))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64))) (/.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64))))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (*.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 #s(literal 0 binary64) (neg.f64 (.f64 #s(literal -2 binary64) J))) (.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (.f64 #s(literal 2 binary64) J)) (.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal 2 binary64) J)) (.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (neg.f64 (.f64 #s(literal -2 binary64) J))) (.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (neg.f64 (.f64 #s(literal -2 binary64) J))) (.f64 #s(literal 2 binary64) J))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (.f64 #s(literal 2 binary64) J) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))) (/.f64 (.f64 (.f64 J (.f64 J J)) (.f64 (.f64 J (.f64 J J)) #s(literal 64 binary64))) (.f64 (.f64 #s(literal 2 binary64) J) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))))
(fma.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J) #s(literal 0 binary64))
(fma.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) J) #s(literal 0 binary64))
(fma.f64 #s(literal -2 binary64) J #s(literal 0 binary64))
(fma.f64 #s(literal -2 binary64) (*.f64 J #s(literal 1 binary64)) #s(literal 0 binary64))
(fma.f64 J #s(literal -2 binary64) #s(literal 0 binary64))
(fma.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)) #s(literal 0 binary64))
(fma.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (/.f64 #s(literal 1/2 binary64) J) #s(literal 0 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 #s(literal 2 binary64) J) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 2 binary64) #s(literal 0 binary64))
(fma.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 1 binary64) #s(literal 0 binary64))
(fma.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 0 binary64))
(fma.f64 (-.f64 (/.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64))) (/.f64 #s(literal 1/2 binary64) J)) (.f64 J (*.f64 J #s(literal 4 binary64))) #s(literal 0 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 #s(literal -4 binary64) (.f64 J J))) (*.f64 #s(literal -2 binary64) J) #s(literal 0 binary64))
(neg.f64 (*.f64 #s(literal 2 binary64) J))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (*.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (neg.f64 (neg.f64 (*.f64 #s(literal -2 binary64) J))))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (*.f64 #s(literal 2 binary64) J))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (neg.f64 (*.f64 #s(literal -2 binary64) J)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)) #s(literal 1 binary64))))
(/.f64 (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64)) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(/.f64 (.f64 (.f64 J (.f64 J J)) (.f64 (.f64 J (.f64 J J)) #s(literal 64 binary64))) (neg.f64 (.f64 (.f64 #s(literal 2 binary64) J) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))))
(/.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) (.f64 (.f64 #s(literal 2 binary64) J) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (.f64 (.f64 J (*.f64 J J)) #s(literal 8 binary64)))
(/.f64 (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64)) (.f64 J (*.f64 J #s(literal 4 binary64))))
(/.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 1 binary64)) (.f64 #s(literal 2 binary64) J))
(/.f64 (.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) #s(literal 1 binary64)) (.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (*.f64 #s(literal 2 binary64) J)))
(/.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) #s(literal 1 binary64)) (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64)))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))) (.f64 (.f64 J (*.f64 J J)) #s(literal -8 binary64)))
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)) J)
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64))))
(/.f64 (.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 #s(literal 1/2 binary64) J)) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (*.f64 J J))))
(/.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 #s(literal 1/2 binary64) J)) (.f64 J (*.f64 J #s(literal 4 binary64))))
(/.f64 (neg.f64 (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64)))) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 1 binary64))) (.f64 #s(literal -2 binary64) J))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) #s(literal 1 binary64))) (neg.f64 (.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (*.f64 #s(literal 2 binary64) J))))
(/.f64 (neg.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) #s(literal 1 binary64))) (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64)))
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J))
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J)) #s(literal -2 binary64))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 #s(literal 1/2 binary64) J))) (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (*.f64 J J)))))
(/.f64 (neg.f64 (.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 #s(literal 1/2 binary64) J))) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(/.f64 (+.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 #s(literal 0 binary64) (*.f64 #s(literal -2 binary64) J)))))
(/.f64 (+.f64 (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64)) #s(literal 0 binary64)) (+.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 0 binary64)))))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)) #s(literal 1 binary64)) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))
(*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) J))
(*.f64 #s(literal -2 binary64) J)
(.f64 #s(literal -2 binary64) (.f64 J #s(literal 1 binary64)))
(*.f64 J #s(literal -2 binary64))
(.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 J (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal -1 binary64)))
(.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))
(.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) (/.f64 #s(literal 1/2 binary64) J))
(.f64 #s(literal -1 binary64) (.f64 #s(literal 2 binary64) J))
(*.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 2 binary64))
(.f64 (.f64 #s(literal -2 binary64) J) #s(literal 1 binary64))
(.f64 (/.f64 #s(literal 1 binary64) J) (pow.f64 (/.f64 #s(literal 2 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (pow.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal -1 binary64)))
(.f64 (-.f64 (/.f64 #s(literal 0 binary64) (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64))) (/.f64 #s(literal 1/2 binary64) J)) (.f64 J (.f64 J #s(literal 4 binary64))))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal -2 binary64) J))
(.f64 (pow.f64 (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))))
(.f64 (pow.f64 (/.f64 (.f64 #s(literal 2 binary64) J) (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal 4 binary64)))))
(+.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (.f64 J J)))
(+.f64 #s(literal 0 binary64) (.f64 (.f64 #s(literal -2 binary64) J) (*.f64 #s(literal 2 binary64) J)))
(+.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 0 binary64))
(-.f64 #s(literal 0 binary64) (.f64 J (.f64 J #s(literal 4 binary64))))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (.f64 J (.f64 J #s(literal 4 binary64))))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 J (.f64 J #s(literal 4 binary64))))
(fma.f64 J (*.f64 J #s(literal -4 binary64)) #s(literal 0 binary64))
(fma.f64 #s(literal 4 binary64) (neg.f64 (*.f64 J J)) #s(literal 0 binary64))
(fma.f64 (*.f64 J #s(literal 4 binary64)) (-.f64 #s(literal 0 binary64) J) #s(literal 0 binary64))
(fma.f64 #s(literal -1 binary64) (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) J) (*.f64 J #s(literal 4 binary64)) #s(literal 0 binary64))
(fma.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal 4 binary64)))) #s(literal 0 binary64))
(fma.f64 (*.f64 J #s(literal -4 binary64)) J #s(literal 0 binary64))
(fma.f64 #s(literal -4 binary64) (*.f64 J J) #s(literal 0 binary64))
(neg.f64 (.f64 J (.f64 J #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J))))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))))))
(/.f64 (.f64 (.f64 J (.f64 J J)) (.f64 (.f64 J (.f64 J J)) #s(literal 64 binary64))) (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))))
(/.f64 (.f64 (.f64 J (.f64 J J)) (.f64 (.f64 J (.f64 J J)) #s(literal 64 binary64))) (neg.f64 (+.f64 #s(literal 0 binary64) (-.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J)))))))
(/.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))
(/.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) (neg.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))))
(/.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) (+.f64 #s(literal 0 binary64) (-.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (.f64 J (.f64 J #s(literal 4 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))) (.f64 #s(literal -4 binary64) (.f64 J J)))
(/.f64 (-.f64 (.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (.f64 (.f64 J (.f64 J J)) (.f64 (.f64 J (.f64 J J)) #s(literal 64 binary64))))) (.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (*.f64 J J)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))))) (.f64 J (.f64 J #s(literal 4 binary64))))
(/.f64 (+.f64 #s(literal 0 binary64) (pow.f64 (.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 2 binary64) J)) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (.f64 (.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 2 binary64) J)) (.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 2 binary64) J))) (.f64 #s(literal 0 binary64) (.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 2 binary64) J))))))
(/.f64 (+.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) #s(literal 0 binary64)) (+.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (-.f64 #s(literal 0 binary64) (.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 0 binary64)))))
(pow.f64 (/.f64 (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))) (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J))))) #s(literal -1 binary64))
(.f64 J (.f64 J #s(literal -4 binary64)))
(.f64 #s(literal 4 binary64) (neg.f64 (.f64 J J)))
(.f64 (.f64 J #s(literal 4 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 #s(literal -1 binary64) (.f64 J (*.f64 J #s(literal 4 binary64))))
(.f64 (-.f64 #s(literal 0 binary64) J) (.f64 J #s(literal 4 binary64)))
(.f64 (.f64 #s(literal -64 binary64) (.f64 (.f64 J J) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (*.f64 J J)))))
(.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 #s(literal 1 binary64) (.f64 J (*.f64 J #s(literal 4 binary64)))))
(.f64 (.f64 J #s(literal -4 binary64)) J)
(.f64 #s(literal -4 binary64) (.f64 J J))
(+.f64 #s(literal 0 binary64) (*.f64 #s(literal 2 binary64) J))
(+.f64 (*.f64 #s(literal 2 binary64) J) #s(literal 0 binary64))
(-.f64 #s(literal 0 binary64) (*.f64 #s(literal -2 binary64) J))
(-.f64 (*.f64 #s(literal 2 binary64) J) #s(literal 0 binary64))
(-.f64 (.f64 #s(literal 2 binary64) J) (/.f64 #s(literal 0 binary64) (neg.f64 (.f64 #s(literal -2 binary64) J))))
(-.f64 (/.f64 #s(literal 0 binary64) (neg.f64 (.f64 #s(literal -2 binary64) J))) (.f64 #s(literal -2 binary64) J))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (.f64 #s(literal -2 binary64) J)) (.f64 #s(literal -2 binary64) J))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal -2 binary64) J)) (.f64 #s(literal -2 binary64) J))
(fma.f64 #s(literal 2 binary64) J #s(literal 0 binary64))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 J J) J) #s(literal 0 binary64))
(fma.f64 J #s(literal 2 binary64) #s(literal 0 binary64))
(fma.f64 J (/.f64 (.f64 J #s(literal 4 binary64)) (.f64 #s(literal 2 binary64) J)) #s(literal 0 binary64))
(fma.f64 #s(literal 4 binary64) (/.f64 (.f64 J J) (.f64 #s(literal 2 binary64) J)) #s(literal 0 binary64))
(fma.f64 (.f64 J #s(literal 4 binary64)) (/.f64 J (.f64 #s(literal 2 binary64) J)) #s(literal 0 binary64))
(fma.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1/2 binary64) J) #s(literal 0 binary64))
(fma.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)) #s(literal 0 binary64))
(fma.f64 (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64)) (/.f64 #s(literal 1 binary64) (.f64 J (*.f64 J #s(literal 4 binary64)))) #s(literal 0 binary64))
(fma.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal 0 binary64))
(fma.f64 (/.f64 J #s(literal 2 binary64)) (/.f64 (*.f64 J #s(literal 4 binary64)) J) #s(literal 0 binary64))
(fma.f64 (/.f64 (*.f64 J #s(literal 4 binary64)) J) (/.f64 J #s(literal 2 binary64)) #s(literal 0 binary64))
(fma.f64 (/.f64 J J) (/.f64 (*.f64 J #s(literal 4 binary64)) #s(literal 2 binary64)) #s(literal 0 binary64))
(fma.f64 (/.f64 (*.f64 J #s(literal 4 binary64)) #s(literal 2 binary64)) (/.f64 J J) #s(literal 0 binary64))
(fma.f64 (/.f64 #s(literal 4 binary64) J) (/.f64 (*.f64 J J) #s(literal 2 binary64)) #s(literal 0 binary64))
(fma.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (*.f64 #s(literal -2 binary64) J) #s(literal 0 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 J (*.f64 J #s(literal 4 binary64)))))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) J))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (neg.f64 (*.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (*.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (neg.f64 (neg.f64 (*.f64 #s(literal -2 binary64) J))))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1/2 binary64) J)))
(/.f64 (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64)) (.f64 J (*.f64 J #s(literal 4 binary64))))
(/.f64 (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64)) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal -2 binary64)) J)
(/.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) J) #s(literal 2 binary64))
(/.f64 (neg.f64 (.f64 (.f64 J (.f64 J J)) #s(literal -8 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64))))
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal -2 binary64))) (-.f64 #s(literal 0 binary64) J))
(/.f64 (neg.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) J)) #s(literal -2 binary64))
(pow.f64 (*.f64 #s(literal 2 binary64) J) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal -1 binary64))
(pow.f64 (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 J (*.f64 J #s(literal 4 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal 2 binary64) J)
(.f64 #s(literal 2 binary64) (/.f64 (.f64 J J) J))
(*.f64 J #s(literal 2 binary64))
(.f64 J (/.f64 (.f64 J #s(literal 4 binary64)) (*.f64 #s(literal 2 binary64) J)))
(.f64 #s(literal 4 binary64) (/.f64 (.f64 J J) (*.f64 #s(literal 2 binary64) J)))
(.f64 (.f64 J #s(literal 4 binary64)) (/.f64 J (*.f64 #s(literal 2 binary64) J)))
(.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1/2 binary64) J))
(.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))
(.f64 (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64)) (/.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal 4 binary64)))))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 J (*.f64 J #s(literal 4 binary64))))
(.f64 (/.f64 J #s(literal 2 binary64)) (/.f64 (.f64 J #s(literal 4 binary64)) J))
(.f64 (/.f64 (.f64 J #s(literal 4 binary64)) J) (/.f64 J #s(literal 2 binary64)))
(.f64 (/.f64 J J) (/.f64 (.f64 J #s(literal 4 binary64)) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J #s(literal 4 binary64)) #s(literal 2 binary64)) (/.f64 J J))
(.f64 (/.f64 #s(literal 4 binary64) J) (/.f64 (.f64 J J) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))) (.f64 #s(literal 2 binary64) J))
(/.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) J))
(/.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))) (.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) J))
(/.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))))
(/.f64 (neg.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) J))) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))))) (.f64 #s(literal -2 binary64) J))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))) (.f64 #s(literal -2 binary64) J))
(/.f64 (neg.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))) (neg.f64 (.f64 #s(literal -2 binary64) J)))
(/.f64 (neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))) (.f64 #s(literal -2 binary64) J))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(.f64 #s(literal -2 binary64) (.f64 J (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(.f64 J (.f64 #s(literal -2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))))
(.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J)) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))))
(.f64 (.f64 #s(literal -2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (.f64 #s(literal -2 binary64) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (.f64 #s(literal -2 binary64) J))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -2 binary64)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal -2 binary64))
(exp.f64 (.f64 (log.f64 (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 1 binary64)))
(exp.f64 (.f64 (log.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U (.f64 #s(literal 2 binary64) J)))) #s(literal -1 binary64)))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J))) (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J))))
(-.f64 (/.f64 #s(literal 0 binary64) (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (/.f64 U (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))))
(-.f64 (/.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 (/.f64 U (*.f64 #s(literal -2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal -2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U (*.f64 #s(literal 2 binary64) J))))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal 2 binary64) J) U) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U (*.f64 #s(literal 2 binary64) J))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)) U))
(/.f64 #s(literal 1 binary64) (neg.f64 (.f64 (/.f64 (.f64 #s(literal 2 binary64) J) U) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U (*.f64 #s(literal 2 binary64) J))))))
(/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (*.f64 #s(literal 2 binary64) J) U))
(/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/.f64 (/.f64 U J) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 (.f64 #s(literal 2 binary64) J) U) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U (*.f64 #s(literal 2 binary64) J)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (.f64 (/.f64 (.f64 #s(literal 2 binary64) J) U) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U (*.f64 #s(literal 2 binary64) J))) #s(literal 1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)) U)))
(/.f64 (-.f64 #s(literal 0 binary64) U) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J)))
(/.f64 (-.f64 #s(literal 0 binary64) U) (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J))))
(/.f64 (/.f64 U (*.f64 #s(literal -2 binary64) J)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 2 binary64) J) U)))
(/.f64 (.f64 U #s(literal 1 binary64)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J)))
(/.f64 (.f64 (/.f64 U J) #s(literal 1 binary64)) (.f64 #s(literal 2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 1 binary64)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) #s(literal 1 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/.f64 (.f64 U #s(literal -1 binary64)) (.f64 (*.f64 #s(literal 2 binary64) J) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (/.f64 U J) #s(literal -1 binary64)) (.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (-.f64 #s(literal 0 binary64) U) #s(literal -1 binary64)) (.f64 (*.f64 #s(literal -2 binary64) J) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) U)) (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) U)) (neg.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))))
(/.f64 (neg.f64 (/.f64 U J)) (neg.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64))))
(/.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) #s(literal 1 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/.f64 (.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 U (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) J))
(/.f64 (*.f64 (/.f64 U J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) J))
(/.f64 (/.f64 U (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) J))
(/.f64 (neg.f64 (.f64 U #s(literal 1 binary64))) (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))
(/.f64 (neg.f64 (.f64 (/.f64 U J) #s(literal 1 binary64))) (neg.f64 (.f64 #s(literal 2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (neg.f64 (.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 1 binary64))) (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) J))))
(/.f64 (neg.f64 (.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) #s(literal 1 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 U #s(literal -1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal 2 binary64) J) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (.f64 (/.f64 U J) #s(literal -1 binary64))) (neg.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (.f64 (-.f64 #s(literal 0 binary64) U) #s(literal -1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal -2 binary64) J) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) #s(literal 1 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) #s(literal -1 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/.f64 (neg.f64 (.f64 U (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (.f64 #s(literal -2 binary64) J))
(/.f64 (neg.f64 (*.f64 (/.f64 U J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (neg.f64 (.f64 #s(literal -2 binary64) J)))
(/.f64 (neg.f64 (/.f64 U (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) J))
(pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64))
(pow.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U (*.f64 #s(literal 2 binary64) J))) #s(literal -1 binary64))
(pow.f64 (.f64 (/.f64 (.f64 #s(literal 2 binary64) J) U) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U (*.f64 #s(literal 2 binary64) J))) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)) U) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 U (.f64 #s(literal 2 binary64) J)))
(*.f64 U (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 U (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))))
(.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 U (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (/.f64 U #s(literal 1 binary64)) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (pow.f64 U #s(literal 1 binary64)) (pow.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 U #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))) #s(literal 1 binary64)))
(.f64 (pow.f64 (/.f64 U (.f64 #s(literal -2 binary64) J)) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) #s(literal 1 binary64)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (pow.f64 (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) #s(literal 1 binary64)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (pow.f64 (/.f64 U #s(literal 1 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) #s(literal -1 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) U) #s(literal -1 binary64)) (pow.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) #s(literal -1 binary64)))
(*.f64 (pow.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U) #s(literal -1 binary64)) (/.f64 #s(literal 1/2 binary64) J))
(*.f64 (pow.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U J)) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(.f64 (pow.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) U)) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))
(exp.f64 (.f64 (log.f64 (/.f64 (.f64 #s(literal 2 binary64) J) U)) #s(literal -1 binary64)))
(exp.f64 (.f64 (log.f64 (/.f64 U (.f64 #s(literal 2 binary64) J))) #s(literal 1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 U (*.f64 #s(literal -2 binary64) J)))
(neg.f64 (/.f64 U (*.f64 #s(literal -2 binary64) J)))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal 2 binary64) J) U))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (*.f64 #s(literal 2 binary64) J) U) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (/.f64 U J)))
(/.f64 #s(literal 1 binary64) (/.f64 J (*.f64 U #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 (*.f64 #s(literal 2 binary64) J) U))))
(/.f64 U (*.f64 #s(literal 2 binary64) J))
(/.f64 #s(literal 1/2 binary64) (/.f64 J U))
(/.f64 (/.f64 U J) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (*.f64 #s(literal 2 binary64) J) U)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 (*.f64 #s(literal 2 binary64) J) U) #s(literal 1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (/.f64 U J))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 J (*.f64 U #s(literal 1/2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) U) (*.f64 #s(literal -2 binary64) J))
(/.f64 (*.f64 U #s(literal 1/2 binary64)) J)
(/.f64 (.f64 U #s(literal 1 binary64)) (.f64 #s(literal 2 binary64) J))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) U)) (neg.f64 (*.f64 #s(literal -2 binary64) J)))
(/.f64 (neg.f64 (/.f64 U J)) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 U #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) J))
(/.f64 #s(literal -1/2 binary64) (neg.f64 (/.f64 J U)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) U)) (-.f64 #s(literal 0 binary64) J))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 1/2 binary64)) (-.f64 #s(literal 0 binary64) J))
(/.f64 (/.f64 U #s(literal 2 binary64)) J)
(/.f64 (neg.f64 (.f64 U #s(literal 1 binary64))) (.f64 #s(literal -2 binary64) J))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 0 binary64) U))) (neg.f64 (neg.f64 (*.f64 #s(literal -2 binary64) J))))
(/.f64 (neg.f64 (neg.f64 (/.f64 U J))) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 U #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 0 binary64) J)))
(/.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) U))) (neg.f64 (-.f64 #s(literal 0 binary64) J)))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 1/2 binary64))) (neg.f64 (-.f64 #s(literal 0 binary64) J)))
(/.f64 (neg.f64 (/.f64 U #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J))
(pow.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) #s(literal 1 binary64))
(pow.f64 (/.f64 (*.f64 #s(literal 2 binary64) J) U) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 (*.f64 #s(literal 2 binary64) J) U) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (/.f64 U J)) #s(literal -1 binary64))
(pow.f64 (/.f64 J (*.f64 U #s(literal 1/2 binary64))) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J)))
(*.f64 U (/.f64 #s(literal 1/2 binary64) J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 U J) #s(literal 1 binary64)))
(*.f64 (/.f64 U J) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))
(*.f64 (/.f64 #s(literal 1 binary64) J) (pow.f64 (/.f64 #s(literal 2 binary64) U) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1/2 binary64) J) U)
(*.f64 (/.f64 #s(literal 1/2 binary64) J) (pow.f64 (/.f64 #s(literal 1 binary64) U) #s(literal -1 binary64)))
(.f64 (.f64 U #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) J))
(.f64 (/.f64 U (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64))) (.f64 J (.f64 J #s(literal 4 binary64))))
(.f64 (/.f64 U (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal -2 binary64) J))
(*.f64 (pow.f64 U #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal 1 binary64)) (pow.f64 U #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 U J) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(.f64 (pow.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))
(.f64 (pow.f64 (.f64 U #s(literal 1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) J) #s(literal 1 binary64)))
(.f64 (pow.f64 (/.f64 U (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64))) #s(literal 1 binary64)) (.f64 J (.f64 J #s(literal 4 binary64))))
(.f64 (pow.f64 (/.f64 U (.f64 #s(literal -4 binary64) (.f64 J J))) #s(literal 1 binary64)) (pow.f64 (.f64 #s(literal -2 binary64) J) #s(literal 1 binary64)))
(-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 0 binary64) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))))
(-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))) (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal 16 binary64) (.f64 (.f64 J J) (.f64 J J)))) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(-.f64 (/.f64 (/.f64 #s(literal 0 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)))
(/.f64 #s(literal 1 binary64) (neg.f64 (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))))
(/.f64 #s(literal 1 binary64) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J)))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (neg.f64 (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (neg.f64 (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) J))))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))))
(/.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal 2 binary64) J))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (neg.f64 (.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) J)))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal 4 binary64)))) (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 1 binary64)) (.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal -1 binary64)) (.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal 1 binary64)) (.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal -1 binary64)) (.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (neg.f64 (*.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))) (.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal 4 binary64)))) (.f64 #s(literal -2 binary64) J))
(/.f64 (.f64 (.f64 #s(literal -2 binary64) J) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 #s(literal -1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal 2 binary64)) J)
(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
(/.f64 (/.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (*.f64 #s(literal -2 binary64) J))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J)))) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) J))))
(/.f64 (neg.f64 (.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal 4 binary64))))) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J))))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal -1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal 2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal 1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal -1 binary64))) (neg.f64 (.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))))) (neg.f64 (.f64 #s(literal -2 binary64) J)))
(/.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal 4 binary64))))) (neg.f64 (.f64 #s(literal -2 binary64) J)))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal -2 binary64) J) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 #s(literal -1 binary64) (.f64 #s(literal -2 binary64) J))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J))
(/.f64 (neg.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J)) #s(literal -2 binary64))
(/.f64 (neg.f64 (/.f64 (*.f64 #s(literal -2 binary64) J) #s(literal 1 binary64))) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(pow.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))) #s(literal -1 binary64))
(pow.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (.f64 #s(literal 2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) J)))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -2 binary64) J))
(.f64 #s(literal -2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(*.f64 J (/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 J (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))
(.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(literal -2 binary64))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (/.f64 #s(literal 1/2 binary64) J))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) J) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)))
(*.f64 (/.f64 J #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 (.f64 #s(literal 2 binary64) J) #s(literal 1 binary64)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64)) J)
(.f64 (/.f64 (.f64 #s(literal -2 binary64) J) #s(literal 1 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 (.f64 J (.f64 J J)) #s(literal 8 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal -4 binary64) (.f64 J J))) (*.f64 #s(literal -2 binary64) J))

simplify288.0ms (2.8%)

Algorithm

1×	egg-herbie

Rules

6318×	`-lowering-.f32`
6318×	`-lowering-.f64`
1778×	`+-lowering-+.f64`
1778×	`+-lowering-+.f32`
1598×	`times-frac`

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	390	5830
1	1374	5184
2	5725	5038
0	8206	5038

Stop Event

1×	iter limit
1×	node limit

Counts

372 → 372

Calls

Call 1

Inputs
1
(+ 1 (* -1/8 (pow K 2)))
(+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))
(+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(* -1 U)
(+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))
(* -2 (* J (cos (* 1/2 K))))
(* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))
(* -2 (* J (cos (* 1/2 K))))
(* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
(* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* J (cos (* 1/2 K))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(* -1 U)
(* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))
(* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))
(* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))
U
(* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))
(* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))
(* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 J)
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
1
(+ 1 (* -1/8 (pow K 2)))
(+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))
(+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -1 (* U (cos (* 1/2 K))))
(+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) U)) (* -1 (* U (cos (* 1/2 K)))))
(+ (* -1 (* U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -2 (/ (cos (* 1/2 K)) U)) (* 2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 3))))))
(+ (* -1 (* U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -2 (/ (cos (* 1/2 K)) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 5))) (* 2 (/ (cos (* 1/2 K)) (pow U 3))))))))
(* -2 (* J (cos (* 1/2 K))))
(* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2)))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (+ (* -1/512 (/ (* (pow U 6) (cos (* 1/2 K))) (pow J 6))) (* 1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4)))))))
(* -2 (* J (cos (* 1/2 K))))
(* -1 (* J (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K))))))
(* -1 (* J (+ (* -1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))) (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K)))))))
(* -1 (* J (+ (* -1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))) (+ (* 1/512 (/ (* (pow U 6) (cos (* 1/2 K))) (pow J 6))) (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K))))))))
(* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/4 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -1/192 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/4 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* 1/4 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -1/192 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/23040 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -2 (* J (cos (* 1/2 K))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) J)))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (+ (* -1/4 (/ (cos (* 1/2 K)) J)) (* 1/64 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 3))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (+ (* -1/4 (/ (cos (* 1/2 K)) J)) (* (pow U 2) (+ (* -1/512 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 5))) (* 1/64 (/ (cos (* 1/2 K)) (pow J 3))))))))
(* -1 (* U (cos (* 1/2 K))))
(* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (* -1 (cos (* 1/2 K)))))
(* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4))))))
(* U (+ (* -4 (/ (* (pow J 6) (cos (* 1/2 K))) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4)))))))
(* U (cos (* 1/2 K)))
(* -1 (* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (* -1 (cos (* 1/2 K))))))
(* -1 (* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4)))))))
(* -1 (* U (+ (* -4 (/ (* (pow J 6) (cos (* 1/2 K))) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4))))))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 J)
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
1
(+ 1 (* -1/8 (pow K 2)))
(+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))
(+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* -1 U)
(+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))
(* -2 (* J (cos (* 1/2 K))))
(* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))
(* -2 (* J (cos (* 1/2 K))))
(* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
(* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* J (cos (* 1/2 K))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(* -1 U)
(* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))
(* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))
(* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))
U
(* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))
(* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))
(* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U J))
(+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))
(+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))
(+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 J)
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))

Outputs
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow K 2)))
(+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (.f64 K K)))
(+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) (+.f64 #s(literal -1/8 binary64) (.f64 (.f64 K K) #s(literal 1/384 binary64)))))
(+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) (+.f64 #s(literal -1/8 binary64) (.f64 (.f64 K K) (+.f64 #s(literal 1/384 binary64) (.f64 (.f64 K K) #s(literal -1/46080 binary64)))))))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))
(-.f64 (/.f64 (.f64 #s(literal -2 binary64) (.f64 (.f64 J J) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)))) U) U)
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))
(-.f64 (.f64 (.f64 J J) (+.f64 (/.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))) U) (/.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64))) (.f64 U (.f64 U U))))) U)
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))
(-.f64 (.f64 (.f64 J J) (+.f64 (/.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))) U) (.f64 (.f64 J J) (+.f64 (.f64 #s(literal -4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (.f64 J J) (pow.f64 U #s(literal 5 binary64))))) (/.f64 (.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64))) (.f64 U (.f64 U U))))))) U)
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))
(.f64 J (+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal -2 binary64)) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J)))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))
(.f64 J (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J))) (+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal -2 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/64 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))
(.f64 J (+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal -2 binary64)) (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J))) (+.f64 (/.f64 (/.f64 (.f64 #s(literal 1/64 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 (/.f64 (.f64 #s(literal -1/512 binary64) (pow.f64 U #s(literal 6 binary64))) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 5 binary64)))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))
(.f64 (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J))) (.f64 #s(literal 2 binary64) (cos.f64 (.f64 K #s(literal 1/2 binary64))))) (neg.f64 J))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))
(.f64 (+.f64 (.f64 #s(literal 2 binary64) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J))) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal -1/64 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))))) (neg.f64 J))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
(.f64 (+.f64 (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J))) (.f64 #s(literal 2 binary64) (cos.f64 (.f64 K #s(literal 1/2 binary64))))) (+.f64 (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal -1/64 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 6 binary64)) #s(literal 1/512 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 5 binary64))))) (neg.f64 J))
(* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (*.f64 #s(literal -2 binary64) J))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))
(.f64 #s(literal -2 binary64) (+.f64 (.f64 J (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 (.f64 K K) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 #s(literal -1/8 binary64) J)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 #s(literal 1/32 binary64) (.f64 U U)) J))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
(+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 #s(literal -2 binary64) J)) (.f64 (.f64 K K) (+.f64 (.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 #s(literal -1/256 binary64) (.f64 U U)) J)) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 #s(literal 1/384 binary64) J)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 (.f64 #s(literal 1/2 binary64) J) (+.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (.f64 #s(literal -1/1024 binary64) (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))))))) (.f64 (.f64 K K) #s(literal -2 binary64))) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal 1/4 binary64))) (.f64 (.f64 (/.f64 (.f64 U U) J) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)))))) #s(literal -1/16 binary64))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))
(+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 #s(literal -2 binary64) J)) (.f64 (.f64 K K) (+.f64 (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal 1/4 binary64))) (.f64 (.f64 (/.f64 (.f64 U U) J) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))))) #s(literal -1/16 binary64))) (.f64 #s(literal -2 binary64) (.f64 (+.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 #s(literal -1/256 binary64) (.f64 U U)) J)) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 #s(literal 1/384 binary64) J)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 (.f64 #s(literal 1/2 binary64) J) (+.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (.f64 #s(literal -1/1024 binary64) (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))))))) (.f64 K (.f64 K (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 (.f64 #s(literal -1/16 binary64) J) (+.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (.f64 #s(literal -1/1024 binary64) (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))))) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 #s(literal -1/46080 binary64) J)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (+.f64 (/.f64 (.f64 #s(literal 1/12288 binary64) (.f64 U U)) J) (.f64 (.f64 #s(literal 1/2 binary64) J) (+.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal -1/96 binary64)) (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 13/2880 binary64)))) (.f64 (/.f64 #s(literal -1/32 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 (+.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (.f64 #s(literal -1/1024 binary64) (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 U U) (.f64 J J))))))))))))) (.f64 K K))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) J)))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (.f64 (.f64 U U) (+.f64 (/.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) J)) (/.f64 (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 U U) (.f64 J (.f64 J J)))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (.f64 (.f64 U U) (+.f64 (.f64 (.f64 U U) (+.f64 (/.f64 (.f64 #s(literal -1/512 binary64) (/.f64 (.f64 U U) (pow.f64 J #s(literal 5 binary64)))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 5 binary64))) (/.f64 (/.f64 #s(literal 1/64 binary64) (.f64 J (.f64 J J))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))))) (/.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) J)))))
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))
(.f64 U (+.f64 #s(literal -1 binary64) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U))))))
(* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))
(.f64 U (+.f64 #s(literal -1 binary64) (+.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U)))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))))))))
(* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))
(.f64 U (+.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U)))) (.f64 #s(literal -4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64)))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))))) #s(literal -1 binary64))))
U
(* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 #s(literal -1 binary64) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U))))))
(* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))
(.f64 U (neg.f64 (+.f64 #s(literal -1 binary64) (+.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U)))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))))))))
(* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U)))) (.f64 #s(literal -4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64)))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))))) #s(literal -1 binary64))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 K K) J)))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 (.f64 K K) (+.f64 (.f64 K (.f64 K (.f64 J #s(literal -1/192 binary64)))) (*.f64 J #s(literal 1/4 binary64)))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal 1/4 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal -1/192 binary64)) (.f64 (.f64 K K) (.f64 J #s(literal 1/23040 binary64))))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 K K) J)))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 (.f64 K K) (+.f64 (.f64 K (.f64 K (.f64 J #s(literal -1/192 binary64)))) (*.f64 J #s(literal 1/4 binary64)))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal 1/4 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal -1/192 binary64)) (.f64 (.f64 K K) (.f64 J #s(literal 1/23040 binary64))))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow K 2)))
(+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (.f64 K K)))
(+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) (+.f64 #s(literal -1/8 binary64) (.f64 (.f64 K K) #s(literal 1/384 binary64)))))
(+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) (+.f64 #s(literal -1/8 binary64) (.f64 (.f64 K K) (+.f64 #s(literal 1/384 binary64) (.f64 (.f64 K K) #s(literal -1/46080 binary64)))))))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -1 (* U (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) U))
(+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) U)) (* -1 (* U (cos (* 1/2 K)))))
(-.f64 (.f64 (.f64 J J) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (/.f64 #s(literal -2 binary64) U))) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) U))
(+ (* -1 (* U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -2 (/ (cos (* 1/2 K)) U)) (* 2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 3))))))
(-.f64 (.f64 (.f64 J J) (+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (/.f64 #s(literal -2 binary64) U)) (/.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 J J)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (.f64 U (.f64 U U))))) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) U))
(+ (* -1 (* U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -2 (/ (cos (* 1/2 K)) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 5))) (* 2 (/ (cos (* 1/2 K)) (pow U 3))))))))
(-.f64 (.f64 (.f64 J J) (+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (/.f64 #s(literal -2 binary64) U)) (.f64 (.f64 J J) (+.f64 (.f64 (.f64 J (.f64 J #s(literal -4 binary64))) (/.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (pow.f64 U #s(literal 5 binary64)))) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) (.f64 U (.f64 U U)))))))) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) U))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2)))))
(.f64 J (+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 U U)) (.f64 J J)))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))))))
(.f64 J (+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal -2 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 U U)) (.f64 J J))) (.f64 (.f64 #s(literal 1/64 binary64) (pow.f64 U #s(literal 4 binary64))) (/.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) (pow.f64 J #s(literal 4 binary64)))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (+ (* -1/512 (/ (* (pow U 6) (cos (* 1/2 K))) (pow J 6))) (* 1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4)))))))
(.f64 J (+.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 U U)) (.f64 J J))) (.f64 (.f64 #s(literal -1/512 binary64) (pow.f64 U #s(literal 6 binary64))) (/.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (pow.f64 J #s(literal 6 binary64))))) (+.f64 (.f64 (.f64 #s(literal 1/64 binary64) (pow.f64 U #s(literal 4 binary64))) (/.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (pow.f64 J #s(literal 4 binary64)))) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal -2 binary64)))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -1 (* J (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K))))))
(-.f64 #s(literal 0 binary64) (.f64 J (+.f64 (.f64 #s(literal 2 binary64) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (/.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J))))))
(* -1 (* J (+ (* -1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))) (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K)))))))
(.f64 (+.f64 (.f64 #s(literal 2 binary64) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (+.f64 (.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (/.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J))) (.f64 #s(literal -1/64 binary64) (.f64 (pow.f64 U #s(literal 4 binary64)) (/.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) (pow.f64 J #s(literal 4 binary64))))))) (neg.f64 J))
(* -1 (* J (+ (* -1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))) (+ (* 1/512 (/ (* (pow U 6) (cos (* 1/2 K))) (pow J 6))) (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K))))))))
(.f64 (+.f64 (+.f64 (.f64 #s(literal 2 binary64) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (/.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J)))) (+.f64 (.f64 #s(literal -1/64 binary64) (.f64 (pow.f64 U #s(literal 4 binary64)) (/.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (pow.f64 J #s(literal 4 binary64))))) (/.f64 (.f64 (.f64 (pow.f64 U #s(literal 6 binary64)) #s(literal 1/512 binary64)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (pow.f64 J #s(literal 6 binary64))))) (neg.f64 J))
(* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (*.f64 #s(literal -2 binary64) J))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/4 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (+.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 K K) J))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -1/192 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/4 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))
(+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 #s(literal -2 binary64) J)) (.f64 (.f64 K K) (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (+.f64 (.f64 K (.f64 K (.f64 J #s(literal -1/192 binary64)))) (*.f64 J #s(literal 1/4 binary64))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* 1/4 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -1/192 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/23040 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))
(+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (+.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 K K) J)))) (.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (+.f64 (.f64 J #s(literal -1/192 binary64)) (.f64 (.f64 K K) (.f64 J #s(literal 1/23040 binary64))))) (.f64 (.f64 K K) (.f64 K K))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) J) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) J) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) J) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) J) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) J) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) J) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) J) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) J) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) J)))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 U U))) J))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (+ (* -1/4 (/ (cos (* 1/2 K)) J)) (* 1/64 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 3))))))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (.f64 (.f64 U U) (+.f64 (/.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal -1/4 binary64)) J) (.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/64 binary64)) J) (/.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (+ (* -1/4 (/ (cos (* 1/2 K)) J)) (* (pow U 2) (+ (* -1/512 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 5))) (* 1/64 (/ (cos (* 1/2 K)) (pow J 3))))))))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (.f64 (.f64 U U) (+.f64 (/.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal -1/4 binary64)) J) (.f64 (.f64 U U) (+.f64 (/.f64 (.f64 (.f64 (.f64 U U) #s(literal -1/512 binary64)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (pow.f64 J #s(literal 5 binary64))) (.f64 (/.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J)) (/.f64 #s(literal 1/64 binary64) J)))))))
(* -1 (* U (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) U))
(* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (* -1 (cos (* 1/2 K)))))
(.f64 U (-.f64 (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (.f64 U U)) (cos.f64 (*.f64 K #s(literal 1/2 binary64)))))
(* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4))))))
(.f64 U (+.f64 (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (.f64 U U)) (-.f64 (/.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 J #s(literal 4 binary64))) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (pow.f64 U #s(literal 4 binary64))) (cos.f64 (.f64 K #s(literal 1/2 binary64))))))
(* U (+ (* -4 (/ (* (pow J 6) (cos (* 1/2 K))) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4)))))))
(.f64 U (+.f64 (-.f64 (/.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 J #s(literal 4 binary64))) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (pow.f64 U #s(literal 4 binary64))) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (+.f64 (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (.f64 U U)) (/.f64 (.f64 (.f64 #s(literal -4 binary64) (pow.f64 J #s(literal 6 binary64))) (cos.f64 (*.f64 K #s(literal 1/2 binary64)))) (pow.f64 U #s(literal 6 binary64))))))
(* U (cos (* 1/2 K)))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) U)
(* -1 (* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (* -1 (cos (* 1/2 K))))))
(.f64 (-.f64 #s(literal 0 binary64) U) (-.f64 (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (.f64 U U)) (cos.f64 (*.f64 K #s(literal 1/2 binary64)))))
(* -1 (* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4)))))))
(-.f64 #s(literal 0 binary64) (.f64 U (+.f64 (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (.f64 U U)) (-.f64 (/.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 J #s(literal 4 binary64))) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (pow.f64 U #s(literal 4 binary64))) (cos.f64 (.f64 K #s(literal 1/2 binary64)))))))
(* -1 (* U (+ (* -4 (/ (* (pow J 6) (cos (* 1/2 K))) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4))))))))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 (-.f64 (/.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 J #s(literal 4 binary64))) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (pow.f64 U #s(literal 4 binary64))) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (+.f64 (/.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 J J)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (.f64 U U)) (/.f64 (.f64 (.f64 #s(literal -4 binary64) (pow.f64 J #s(literal 6 binary64))) (cos.f64 (*.f64 K #s(literal 1/2 binary64)))) (pow.f64 U #s(literal 6 binary64))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 K K) J)))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 (.f64 K K) (+.f64 (.f64 K (.f64 K (.f64 J #s(literal -1/192 binary64)))) (*.f64 J #s(literal 1/4 binary64)))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal 1/4 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal -1/192 binary64)) (.f64 (.f64 K K) (.f64 J #s(literal 1/23040 binary64))))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow K 2)))
(+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (.f64 K K)))
(+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) (+.f64 #s(literal -1/8 binary64) (.f64 (.f64 K K) #s(literal 1/384 binary64)))))
(+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) (+.f64 #s(literal -1/8 binary64) (.f64 (.f64 K K) (+.f64 #s(literal 1/384 binary64) (.f64 (.f64 K K) #s(literal -1/46080 binary64)))))))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* 2 J)
(*.f64 #s(literal 2 binary64) J)
(* 2 J)
(*.f64 #s(literal 2 binary64) J)
(* 2 J)
(*.f64 #s(literal 2 binary64) J)
(* 2 J)
(*.f64 #s(literal 2 binary64) J)
(* 2 J)
(*.f64 #s(literal 2 binary64) J)
(* 2 J)
(*.f64 #s(literal 2 binary64) J)
(* 2 J)
(*.f64 #s(literal 2 binary64) J)
(* 2 J)
(*.f64 #s(literal 2 binary64) J)
(* 2 J)
(*.f64 #s(literal 2 binary64) J)
(* 2 J)
(*.f64 #s(literal 2 binary64) J)
(* 2 J)
(*.f64 #s(literal 2 binary64) J)
(* 2 J)
(*.f64 #s(literal 2 binary64) J)
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))
(-.f64 (/.f64 (.f64 #s(literal -2 binary64) (.f64 (.f64 J J) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)))) U) U)
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))
(-.f64 (.f64 (.f64 J J) (+.f64 (/.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))) U) (/.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64))) (.f64 U (.f64 U U))))) U)
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))
(-.f64 (.f64 (.f64 J J) (+.f64 (/.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))) U) (.f64 (.f64 J J) (+.f64 (.f64 #s(literal -4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (.f64 J J) (pow.f64 U #s(literal 5 binary64))))) (/.f64 (.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64))) (.f64 U (.f64 U U))))))) U)
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))
(.f64 J (+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal -2 binary64)) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J)))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))
(.f64 J (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J))) (+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal -2 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/64 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))
(.f64 J (+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal -2 binary64)) (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J))) (+.f64 (/.f64 (/.f64 (.f64 #s(literal 1/64 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 (/.f64 (.f64 #s(literal -1/512 binary64) (pow.f64 U #s(literal 6 binary64))) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 5 binary64)))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))
(.f64 (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J))) (.f64 #s(literal 2 binary64) (cos.f64 (.f64 K #s(literal 1/2 binary64))))) (neg.f64 J))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))
(.f64 (+.f64 (.f64 #s(literal 2 binary64) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J))) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal -1/64 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))))) (neg.f64 J))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
(.f64 (+.f64 (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J J))) (.f64 #s(literal 2 binary64) (cos.f64 (.f64 K #s(literal 1/2 binary64))))) (+.f64 (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal -1/64 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 6 binary64)) #s(literal 1/512 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 5 binary64))))) (neg.f64 J))
(* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (*.f64 #s(literal -2 binary64) J))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))
(.f64 #s(literal -2 binary64) (+.f64 (.f64 J (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 (.f64 K K) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 #s(literal -1/8 binary64) J)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 #s(literal 1/32 binary64) (.f64 U U)) J))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
(+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 #s(literal -2 binary64) J)) (.f64 (.f64 K K) (+.f64 (.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 #s(literal -1/256 binary64) (.f64 U U)) J)) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 #s(literal 1/384 binary64) J)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 (.f64 #s(literal 1/2 binary64) J) (+.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (.f64 #s(literal -1/1024 binary64) (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))))))) (.f64 (.f64 K K) #s(literal -2 binary64))) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal 1/4 binary64))) (.f64 (.f64 (/.f64 (.f64 U U) J) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)))))) #s(literal -1/16 binary64))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))
(+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 #s(literal -2 binary64) J)) (.f64 (.f64 K K) (+.f64 (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J #s(literal 1/4 binary64))) (.f64 (.f64 (/.f64 (.f64 U U) J) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))))) #s(literal -1/16 binary64))) (.f64 #s(literal -2 binary64) (.f64 (+.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 #s(literal -1/256 binary64) (.f64 U U)) J)) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 #s(literal 1/384 binary64) J)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 (.f64 #s(literal 1/2 binary64) J) (+.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (.f64 #s(literal -1/1024 binary64) (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))))))) (.f64 K (.f64 K (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (.f64 (.f64 #s(literal -1/16 binary64) J) (+.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (.f64 #s(literal -1/1024 binary64) (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))))) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 #s(literal -1/46080 binary64) J)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (+.f64 (/.f64 (.f64 #s(literal 1/12288 binary64) (.f64 U U)) J) (.f64 (.f64 #s(literal 1/2 binary64) J) (+.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal -1/96 binary64)) (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 13/2880 binary64)))) (.f64 (/.f64 #s(literal -1/32 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 (+.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (.f64 #s(literal -1/1024 binary64) (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))))) (/.f64 (.f64 U U) (.f64 J J))))))))))))) (.f64 K K))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) J)))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (.f64 (.f64 U U) (+.f64 (/.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) J)) (/.f64 (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 U U) (.f64 J (.f64 J J)))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (.f64 (.f64 U U) (+.f64 (.f64 (.f64 U U) (+.f64 (/.f64 (.f64 #s(literal -1/512 binary64) (/.f64 (.f64 U U) (pow.f64 J #s(literal 5 binary64)))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 5 binary64))) (/.f64 (/.f64 #s(literal 1/64 binary64) (.f64 J (.f64 J J))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))))) (/.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) J)))))
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))
(.f64 U (+.f64 #s(literal -1 binary64) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U))))))
(* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))
(.f64 U (+.f64 #s(literal -1 binary64) (+.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U)))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))))))))
(* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))
(.f64 U (+.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U)))) (.f64 #s(literal -4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64)))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))))) #s(literal -1 binary64))))
U
(* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 #s(literal -1 binary64) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U))))))
(* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))
(.f64 U (neg.f64 (+.f64 #s(literal -1 binary64) (+.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U)))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))))))))
(* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U)))) (.f64 #s(literal -4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64)))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))))) #s(literal -1 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))
(+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 K (.f64 K U))) J))
(+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (.f64 K (.f64 K (+.f64 (.f64 (/.f64 U J) #s(literal 1/16 binary64)) (.f64 (.f64 K K) (*.f64 (/.f64 U J) #s(literal 5/768 binary64)))))))
(+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))
(+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (.f64 K (.f64 K (+.f64 (.f64 (/.f64 U J) #s(literal 1/16 binary64)) (.f64 (.f64 (.f64 K K) #s(literal -1/2 binary64)) (+.f64 (.f64 (/.f64 U J) #s(literal -5/384 binary64)) (.f64 K (.f64 K (+.f64 (.f64 (/.f64 U J) #s(literal -5/3072 binary64)) (.f64 (/.f64 U J) #s(literal 7/23040 binary64)))))))))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 U J)) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* 1/2 (/ U J))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 K K) J)))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 (.f64 K K) (+.f64 (.f64 K (.f64 K (.f64 J #s(literal -1/192 binary64)))) (*.f64 J #s(literal 1/4 binary64)))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal 1/4 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal -1/192 binary64)) (.f64 (.f64 K K) (.f64 J #s(literal 1/23040 binary64))))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))

eval218.0ms (2.1%)

Compiler: Compiled 44057 to 2965 computations (93.3% saved)

prune187.0ms (1.8%)

Pruning

18 alts after pruning (14 fresh and 4 done)

	Pruned	Kept	Total
New	1648	13	1661
Fresh	5	1	6
Picked	2	3	5
Done	0	1	1
Total	1655	18	1673

Accuracy

100.0%

Counts

1673 → 18

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	25.5%	(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
	68.1%	(/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))) (*.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
▶	85.3%	(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
	46.5%	(/.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
▶	46.4%	(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
	46.4%	(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)))
	43.5%	(-.f64 #s(literal 0 binary64) U)
	46.6%	(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) J)))
	26.2%	(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 K K) J)))
	25.5%	(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
	68.0%	(.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J))))
✓	85.5%	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
✓	68.1%	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J))))
	56.8%	(.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 U J))))
▶	46.4%	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))))
✓	46.5%	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
▶	28.5%	(*.f64 #s(literal -2 binary64) J)
✓	15.0%	U

Compiler

Compiled 506 to 370 computations (26.9% saved)

simplify270.0ms (2.6%)

Algorithm

1×	egg-herbie

Localize:

Found 17 expressions of interest:

New	Metric	Score	Program
✓	cost-diff	0	(cos.f64 (/.f64 K #s(literal 2 binary64)))
✓	cost-diff	0	(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J)))
✓	cost-diff	128	(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
✓	cost-diff	256	(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J)
✓	cost-diff	0	(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
✓	cost-diff	0	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))))
✓	cost-diff	128	(/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))
✓	cost-diff	128	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
✓	cost-diff	0	(/.f64 K #s(literal 2 binary64))
✓	cost-diff	0	(cos.f64 (/.f64 K #s(literal 2 binary64)))
✓	cost-diff	0	(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
✓	cost-diff	128	(/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))
✓	cost-diff	0	(*.f64 #s(literal -2 binary64) J)
✓	cost-diff	0	(cos.f64 (/.f64 K #s(literal 2 binary64)))
✓	cost-diff	0	(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
✓	cost-diff	0	(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
✓	cost-diff	128	(/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))

Rules

7318×	`-lowering-.f32`
7318×	`-lowering-.f64`
3226×	`associate-/r/`
2198×	`/-lowering-/.f32`
2198×	`/-lowering-/.f64`

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	31	192
1	75	192
2	206	189
3	657	189
4	2370	189
5	3604	189
6	4094	189
7	4220	189
8	4299	189
9	4384	189
10	4489	189
11	5242	189
12	6429	189
13	6843	189
14	7273	189
15	7706	189
0	8023	189

Stop Event

1×	iter limit
1×	node limit

Calls

Call 1

Inputs
(/ (* (cos (/ K 2)) (sqrt (+ (* 1 1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (/ 1 (* -2 J)))
(* (cos (/ K 2)) (sqrt (+ (* 1 1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))
(cos (/ K 2))
(/ K 2)
K
2
(sqrt (+ (* 1 1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))
1
(/ (/ U (* 2 J)) (cos (/ K 2)))
(/ U (* 2 J))
U
(* 2 J)
J
(/ 1 (* -2 J))
(* -2 J)
-2
(* -2 J)
-2
J
(/ (cos (/ K 2)) (/ 1 (* -2 J)))
(cos (/ K 2))
(/ K 2)
K
2
(/ 1 (* -2 J))
1
(* -2 J)
-2
J
(* (cos (* 1/2 K)) (/ 1 (/ 1 (* -2 J))))
(cos (* 1/2 K))
(* 1/2 K)
1/2
K
(/ 1 (/ 1 (* -2 J)))
1
(/ 1 (* -2 J))
(* -2 J)
-2
J
(/ (/ (* (cos (/ K 2)) (* -4 (* J J))) J) 2)
(/ (* (cos (/ K 2)) (* -4 (* J J))) J)
(* (cos (/ K 2)) (* -4 (* J J)))
(cos (/ K 2))
(/ K 2)
K
2
(* -4 (* J J))
-4
(* J J)
J

Outputs
(/ (* (cos (/ K 2)) (sqrt (+ (* 1 1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (/ 1 (* -2 J)))
(.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)))
(* (cos (/ K 2)) (sqrt (+ (* 1 1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(cos (/ K 2))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/ K 2)
(/.f64 K #s(literal 2 binary64))
K
2
#s(literal 2 binary64)
(sqrt (+ (* 1 1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))
(hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
1
#s(literal 1 binary64)
(/ (/ U (* 2 J)) (cos (/ K 2)))
(/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/ U (* 2 J))
(/.f64 U (*.f64 #s(literal 2 binary64) J))
U
(* 2 J)
(*.f64 #s(literal 2 binary64) J)
J
(/ 1 (* -2 J))
(/.f64 #s(literal -1/2 binary64) J)
(* -2 J)
(*.f64 J #s(literal -2 binary64))
-2
#s(literal -2 binary64)
(* -2 J)
(*.f64 J #s(literal -2 binary64))
-2
#s(literal -2 binary64)
J
(/ (cos (/ K 2)) (/ 1 (* -2 J)))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(cos (/ K 2))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/ K 2)
(/.f64 K #s(literal 2 binary64))
K
2
#s(literal 2 binary64)
(/ 1 (* -2 J))
(/.f64 #s(literal -1/2 binary64) J)
1
#s(literal 1 binary64)
(* -2 J)
(*.f64 J #s(literal -2 binary64))
-2
#s(literal -2 binary64)
J
(* (cos (* 1/2 K)) (/ 1 (/ 1 (* -2 J))))
(/.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
1/2
#s(literal 1/2 binary64)
K
(/ 1 (/ 1 (* -2 J)))
(*.f64 J #s(literal -2 binary64))
1
#s(literal 1 binary64)
(/ 1 (* -2 J))
(/.f64 #s(literal -1/2 binary64) J)
(* -2 J)
(*.f64 J #s(literal -2 binary64))
-2
#s(literal -2 binary64)
J
(/ (/ (* (cos (/ K 2)) (* -4 (* J J))) J) 2)
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(/ (* (cos (/ K 2)) (* -4 (* J J))) J)
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -4 binary64)))
(* (cos (/ K 2)) (* -4 (* J J)))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(cos (/ K 2))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/ K 2)
(/.f64 K #s(literal 2 binary64))
K
2
#s(literal 2 binary64)
(* -4 (* J J))
(.f64 #s(literal -4 binary64) (.f64 J J))
-4
#s(literal -4 binary64)
(* J J)
(*.f64 J J)
J

localize190.0ms (1.9%)

Localize:

Found 17 expressions of interest:

New	Metric	Score	Program
✓	accuracy	100.0%	(cos.f64 (/.f64 K #s(literal 2 binary64)))
✓	accuracy	100.0%	(.f64 #s(literal -4 binary64) (.f64 J J))
✓	accuracy	99.9%	(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J)))
✓	accuracy	55.9%	(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J)
✓	accuracy	100.0%	(*.f64 #s(literal -2 binary64) J)
✓	accuracy	100.0%	(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
✓	accuracy	99.8%	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))))
✓	accuracy	99.7%	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
✓	accuracy	100.0%	(/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))
✓	accuracy	100.0%	(*.f64 #s(literal -2 binary64) J)
✓	accuracy	100.0%	(cos.f64 (/.f64 K #s(literal 2 binary64)))
✓	accuracy	99.6%	(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
✓	accuracy	100.0%	(*.f64 #s(literal -2 binary64) J)
✓	accuracy	100.0%	(cos.f64 (/.f64 K #s(literal 2 binary64)))
✓	accuracy	99.9%	(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
✓	accuracy	99.8%	(/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
✓	accuracy	85.4%	(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))

Results

140.0ms

256×

valid

Compiler

Compiled 224 to 29 computations (87.1% saved)

Precisions

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

ival-mult: 22.0ms (35.7% of total)

ival-div: 17.0ms (27.6% of total)

ival-cos: 11.0ms (17.8% of total)

compiled-spec: 7.0ms (11.3% of total)

ival-sqrt: 2.0ms (3.2% of total)

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

const: 1.0ms (1.6% of total)

backward-pass: 0.0ms (0% of total)

series15.0ms (0.1%)

Counts

15 → 312

Calls

Call 1

Inputs
#<alt (/ 1 (* -2 J))>
#<alt (/ (* (cos (/ K 2)) (sqrt (+ (* 1 1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (/ 1 (* -2 J)))>
#<alt (* (cos (/ K 2)) (sqrt (+ (* 1 1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))>
#<alt (cos (/ K 2))>
#<alt (* -2 J)>
#<alt (/ (cos (/ K 2)) (/ 1 (* -2 J)))>
#<alt (/ K 2)>
#<alt (/ 1 (/ 1 (* -2 J)))>
#<alt (* (cos (* 1/2 K)) (/ 1 (/ 1 (* -2 J))))>
#<alt (cos (* 1/2 K))>
#<alt (/ (* (cos (/ K 2)) (* -4 (* J J))) J)>
#<alt (/ (/ (* (cos (/ K 2)) (* -4 (* J J))) J) 2)>
#<alt (* (cos (/ K 2)) (* -4 (* J J)))>
#<alt (/ (/ U (* 2 J)) (cos (/ K 2)))>
#<alt (* -4 (* J J))>

Outputs
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))>
#<alt (* -1 U)>
#<alt (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))>
#<alt (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))>
#<alt (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))>
#<alt U>
#<alt (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))>
#<alt (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))>
#<alt (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))>
#<alt (* -1 U)>
#<alt (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))>
#<alt (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))>
#<alt (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))>
#<alt (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))>
#<alt (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))>
#<alt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))>
#<alt (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))>
#<alt (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))))>
#<alt (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -1/16 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (+ (* -1/46080 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/12288 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))))))>
#<alt (* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))>
#<alt (* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))>
#<alt (* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))>
#<alt (* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))>
#<alt (* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))>
#<alt (* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))>
#<alt (* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))>
#<alt (* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))>
#<alt (cos (* 1/2 K))>
#<alt (+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))>
#<alt (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))>
#<alt (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))>
#<alt (* 1/2 (/ U J))>
#<alt (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))>
#<alt (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))>
#<alt (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))>
#<alt (* -1/2 (/ U J))>
#<alt (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))>
#<alt (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))>
#<alt (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))>
#<alt (* 1/2 (/ U J))>
#<alt (/ (+ (* 1/2 U) (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) J)>
#<alt (/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)>
#<alt (/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)>
#<alt (cos (* 1/2 K))>
#<alt (+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))>
#<alt (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))>
#<alt (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))>
#<alt (cos (* 1/2 K))>
#<alt (+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))>
#<alt (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))>
#<alt (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))>
#<alt 1>
#<alt (+ 1 (* -1/8 (pow K 2)))>
#<alt (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))>
#<alt (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (+ (* -2 J) (* 1/4 (* J (pow K 2))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (+ (* -2 J) (* 1/4 (* J (pow K 2))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt 1>
#<alt (+ 1 (* -1/8 (pow K 2)))>
#<alt (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))>
#<alt (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (* -4 J)>
#<alt (+ (* -4 J) (* 1/2 (* J (pow K 2))))>
#<alt (+ (* -4 J) (* (pow K 2) (+ (* -1/96 (* J (pow K 2))) (* 1/2 J))))>
#<alt (+ (* -4 J) (* (pow K 2) (+ (* 1/2 J) (* (pow K 2) (+ (* -1/96 J) (* 1/11520 (* J (pow K 2))))))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -2 J)>
#<alt (+ (* -2 J) (* 1/4 (* J (pow K 2))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -4 (pow J 2))>
#<alt (+ (* -4 (pow J 2)) (* 1/2 (* (pow J 2) (pow K 2))))>
#<alt (+ (* -4 (pow J 2)) (* (pow K 2) (+ (* -1/96 (* (pow J 2) (pow K 2))) (* 1/2 (pow J 2)))))>
#<alt (+ (* -4 (pow J 2)) (* (pow K 2) (+ (* 1/2 (pow J 2)) (* (pow K 2) (+ (* -1/96 (pow J 2)) (* 1/11520 (* (pow J 2) (pow K 2))))))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* -4 (* (pow J 2) (cos (* 1/2 K))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U J))>
#<alt (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))>
#<alt (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))>
#<alt (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* 1/2 (/ U (* J (cos (* 1/2 K)))))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>

Calls

78 calls:

Time	Variable		Point	Expression
1.0ms	K	@	0	(* (cos (/ K 2)) (sqrt (+ (* 1 1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))
0.0ms	K	@	inf	(* (cos (/ K 2)) (* -4 (* J J)))
0.0ms	K	@	-inf	(* (cos (/ K 2)) (* -4 (* J J)))
0.0ms	U	@	0	(* (cos (/ K 2)) (sqrt (+ (* 1 1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))
0.0ms	U	@	inf	(* (cos (/ K 2)) (sqrt (+ (* 1 1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))

rewrite543.0ms (5.3%)

Algorithm

1×	batch-egg-rewrite

Rules

4986×	`-lowering-.f32`
4986×	`-lowering-.f64`
3744×	`/-lowering-/.f32`
3744×	`/-lowering-/.f64`
1376×	`times-frac`

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	31	116
1	153	116
2	1134	113
0	9075	113

Stop Event

1×	iter limit
1×	node limit

Counts

15 → 970

Calls

Call 1

Inputs
(/ 1 (* -2 J))
(/ (* (cos (/ K 2)) (sqrt (+ (* 1 1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (/ 1 (* -2 J)))
(* (cos (/ K 2)) (sqrt (+ (* 1 1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))
(cos (/ K 2))
(* -2 J)
(/ (cos (/ K 2)) (/ 1 (* -2 J)))
(/ K 2)
(/ 1 (/ 1 (* -2 J)))
(* (cos (* 1/2 K)) (/ 1 (/ 1 (* -2 J))))
(cos (* 1/2 K))
(/ (* (cos (/ K 2)) (* -4 (* J J))) J)
(/ (/ (* (cos (/ K 2)) (* -4 (* J J))) J) 2)
(* (cos (/ K 2)) (* -4 (* J J)))
(/ (/ U (* 2 J)) (cos (/ K 2)))
(* -4 (* J J))

Outputs
(exp.f64 (log.f64 (/.f64 #s(literal -1/2 binary64) J)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -1/2 binary64) J)) #s(literal 1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1/2 binary64) J))
(neg.f64 (/.f64 #s(literal 1/2 binary64) J))
(/.f64 #s(literal 1 binary64) (/.f64 J #s(literal -1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) J)))
(/.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal 1 binary64))
(/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) J))
(/.f64 #s(literal -1 binary64) (*.f64 J #s(literal 2 binary64)))
(/.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal -1 binary64))
(/.f64 (/.f64 #s(literal 1 binary64) J) #s(literal -2 binary64))
(/.f64 #s(literal -1/2 binary64) J)
(/.f64 (/.f64 #s(literal -1 binary64) J) #s(literal 2 binary64))
(pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal 1 binary64))
(pow.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 2 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J))
(*.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal 1 binary64))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal -1 binary64) J))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1/2 binary64) J))
(*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal 1 binary64)))
(*.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal -1 binary64))
(*.f64 (/.f64 #s(literal 1 binary64) J) #s(literal -1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) J))
(*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) J) #s(literal 1 binary64)))
(*.f64 (/.f64 #s(literal -1 binary64) J) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal -1 binary64)))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) J) #s(literal 1 binary64)) #s(literal -1/2 binary64))
(*.f64 (pow.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 1 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) (/.f64 #s(literal 1/2 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1/2 binary64) J)) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) (/.f64 #s(literal 1/2 binary64) J)))
(neg.f64 (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) (/.f64 #s(literal 1/2 binary64) J)))
(neg.f64 (/.f64 (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) (/.f64 #s(literal 1/2 binary64) J)) #s(literal 1 binary64)))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))))
(/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))))
(/.f64 (*.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 #s(literal -1/2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) (/.f64 #s(literal 1/2 binary64) J)) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 J #s(literal -1/2 binary64)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 #s(literal -1/2 binary64) J)))
(*.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) (/.f64 J #s(literal -1/2 binary64)))
(*.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 1 binary64))
(.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) (/.f64 #s(literal 1/2 binary64) J)))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) (/.f64 #s(literal -1/2 binary64) J)))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 #s(literal 1/2 binary64) J)))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 J #s(literal 2 binary64)))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))))
(*.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 #s(literal -1/2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) J) #s(literal -2 binary64))
(*.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) #s(literal -1 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) #s(literal -1/2 binary64)) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) J)))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 #s(literal 1 binary64) J)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) #s(literal -1/2 binary64)) J)
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) #s(literal -1 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) J)) (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) #s(literal -1/2 binary64)))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))) (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))))
(*.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 #s(literal 1 binary64) J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(*.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) (/.f64 #s(literal 1 binary64) J)) #s(literal -2 binary64))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))))
(*.f64 (pow.f64 (/.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) #s(literal -1/2 binary64)))
(.f64 (.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) (-.f64 #s(literal 0 binary64) J)) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 1 binary64) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (.f64 J #s(literal 2 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) #s(literal -1/2 binary64))) J)
(.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) J)) #s(literal -2 binary64))
(.f64 (.f64 (/.f64 J #s(literal -1/2 binary64)) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) #s(literal -1 binary64))) (*.f64 J #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) #s(literal -1/2 binary64))) J)
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) J) (*.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal -2 binary64))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64))) J)
(.f64 (.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(.f64 (.f64 (*.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (.f64 (*.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) J) #s(literal 2 binary64))
(.f64 (.f64 (*.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)) J)
(.f64 (.f64 (*.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) J)) #s(literal -2 binary64))
(-.f64 #s(literal 0 binary64) (*.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(neg.f64 (*.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))))) #s(literal 1 binary64)))
(/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))))))
(/.f64 (*.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))))) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (neg.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))))))
(*.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) #s(literal 1 binary64))
(.f64 #s(literal -1 binary64) (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 J (.f64 #s(literal 4 binary64) J))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))) #s(literal 1/4 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 J (.f64 #s(literal 4 binary64) J))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))) #s(literal 1/4 binary64)))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(cos.f64 (/.f64 K #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(neg.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(+.f64 #s(literal 0 binary64) (/.f64 J #s(literal -1/2 binary64)))
(exp.f64 (log.f64 (/.f64 J #s(literal -1/2 binary64))))
(exp.f64 (*.f64 (log.f64 (/.f64 J #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(-.f64 #s(literal 0 binary64) (*.f64 J #s(literal 2 binary64)))
(neg.f64 (*.f64 J #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 J (.f64 J #s(literal -4 binary64))) (/.f64 J #s(literal -1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 J #s(literal 2 binary64)) (.f64 J (*.f64 J #s(literal -4 binary64)))))
(/.f64 J #s(literal -1/2 binary64))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1 binary64))
(/.f64 (*.f64 J #s(literal 2 binary64)) #s(literal -1 binary64))
(/.f64 (.f64 J (.f64 J #s(literal -4 binary64))) (*.f64 J #s(literal 2 binary64)))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 1/2 binary64))
(/.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) (/.f64 J #s(literal -1/2 binary64)))
(/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (.f64 J #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (+.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) (.f64 #s(literal 0 binary64) (*.f64 J #s(literal 2 binary64))))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 J (.f64 #s(literal 4 binary64) J))) (*.f64 J #s(literal 2 binary64)))
(pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1 binary64))
(pow.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J #s(literal 2 binary64))) #s(literal -1/2 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 J #s(literal -1/2 binary64)))
(.f64 #s(literal 1 binary64) (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal 2 binary64)))
(*.f64 #s(literal -2 binary64) J)
(*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) J) #s(literal -1 binary64)))
(*.f64 J #s(literal -2 binary64))
(.f64 J (/.f64 (.f64 J #s(literal -4 binary64)) (*.f64 J #s(literal 2 binary64))))
(*.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1 binary64))
(*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) J))
(*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 1 binary64)))
(.f64 #s(literal 2 binary64) (/.f64 (.f64 J J) (-.f64 #s(literal 0 binary64) J)))
(.f64 (.f64 J #s(literal 2 binary64)) #s(literal -1 binary64))
(.f64 #s(literal -4 binary64) (.f64 #s(literal 1 binary64) (/.f64 J #s(literal 2 binary64))))
(.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 #s(literal 1/2 binary64) J))
(.f64 #s(literal -1 binary64) (.f64 J #s(literal 2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 2 binary64))
(.f64 #s(literal 4 binary64) (/.f64 (.f64 J J) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 J J) #s(literal 2 binary64)) (/.f64 #s(literal -4 binary64) J))
(*.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(.f64 (/.f64 #s(literal -4 binary64) J) (/.f64 (.f64 J J) #s(literal 2 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 1 binary64)) #s(literal 2 binary64))
(*.f64 (pow.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) J) #s(literal -1 binary64)) #s(literal -2 binary64))
(*.f64 (pow.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(.f64 (/.f64 J #s(literal -2 binary64)) (/.f64 (.f64 J #s(literal -4 binary64)) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 J (-.f64 #s(literal 0 binary64) J)) (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal -2 binary64)))
(.f64 (/.f64 J #s(literal 2 binary64)) (/.f64 (.f64 J #s(literal -4 binary64)) J))
(.f64 (/.f64 J #s(literal -1 binary64)) (/.f64 (.f64 J #s(literal -4 binary64)) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 #s(literal -4 binary64) (-.f64 #s(literal 0 binary64) J)) (/.f64 (.f64 J J) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 J J) #s(literal 1 binary64)) (/.f64 #s(literal -4 binary64) (*.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 J J) #s(literal -2 binary64)) (/.f64 #s(literal -4 binary64) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 J J) #s(literal -1 binary64)) (/.f64 #s(literal -4 binary64) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 J J) (-.f64 #s(literal 0 binary64) J)) #s(literal 2 binary64))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal 1 binary64)) (/.f64 J (*.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal -2 binary64)) (/.f64 J (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) J) (/.f64 J #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal -1 binary64)) (/.f64 J (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) (-.f64 #s(literal 0 binary64) J)) (/.f64 J #s(literal -2 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) J)) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 1 binary64) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1/2 binary64) J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 J #s(literal -1/2 binary64))) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(neg.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(neg.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(neg.f64 (/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) #s(literal 1 binary64)))
(neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) J)) #s(literal 1/2 binary64)))
(neg.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) J))))
(neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 #s(literal -1/2 binary64) J)))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(neg.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) (.f64 J #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) #s(literal 1/2 binary64)) J))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 J #s(literal -4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 0 binary64) J) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 J (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64)))) #s(literal 2 binary64))))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 J #s(literal -4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) (.f64 J #s(literal 2 binary64)))
(/.f64 #s(literal -1 binary64) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 #s(literal 4 binary64) J))) (/.f64 J #s(literal -1/2 binary64)))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) J)) #s(literal -2 binary64))
(/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)) #s(literal 1 binary64))
(/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) J))))
(/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) #s(literal -1 binary64))
(/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 J #s(literal -4 binary64))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -4 binary64))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) #s(literal 1/2 binary64)) (-.f64 #s(literal 0 binary64) J))
(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64)))) #s(literal 2 binary64)) J)
(/.f64 (neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) #s(literal 1/2 binary64))) J)
(pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)))
(.f64 #s(literal -2 binary64) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 #s(literal -2 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) J)))
(.f64 #s(literal -2 binary64) (/.f64 (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J))
(.f64 J (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal 2 binary64)))
(.f64 J (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 J (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(*.f64 (/.f64 J #s(literal -1/2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 #s(literal 2 binary64) (/.f64 (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) J)))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal -1/2 binary64)))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal 2 binary64)))
(.f64 (.f64 J #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))))
(.f64 #s(literal -4 binary64) (/.f64 (.f64 (.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J #s(literal 2 binary64))))
(.f64 (.f64 J (.f64 J #s(literal -4 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 #s(literal 1/2 binary64) J))
(*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J #s(literal 2 binary64)))
(.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) (.f64 J #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) #s(literal 1 binary64)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) J)) #s(literal -1/2 binary64))
(.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) #s(literal 2 binary64)))
(.f64 (.f64 J #s(literal -4 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (*.f64 #s(literal 1 binary64) (/.f64 J #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)) #s(literal 1 binary64))
(.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) J)))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) (/.f64 J (-.f64 #s(literal 0 binary64) J)))
(.f64 #s(literal 4 binary64) (/.f64 (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(literal -2 binary64))
(.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal 2 binary64))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal -2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 J #s(literal -4 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) J) (/.f64 (*.f64 J J) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J J) #s(literal 2 binary64)) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) J))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal 2 binary64)) J)
(.f64 (/.f64 #s(literal -1 binary64) J) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) #s(literal -2 binary64)))
(.f64 (.f64 #s(literal 4 binary64) J) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64)))
(.f64 (.f64 #s(literal 4 binary64) J) (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))) #s(literal 1/2 binary64))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 #s(literal 4 binary64) J))) #s(literal 1/2 binary64)) (/.f64 #s(literal -1 binary64) J))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) J))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) J)
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal 2 binary64))) (/.f64 (.f64 J (.f64 J #s(literal -4 binary64))) #s(literal 1 binary64)))
(.f64 (/.f64 #s(literal -4 binary64) J) (/.f64 (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (/.f64 #s(literal -2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) J))
(.f64 (pow.f64 (/.f64 #s(literal -2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64))))) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) J))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) J)) #s(literal -2 binary64))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))))
(*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64)) (.f64 #s(literal 4 binary64) J))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 J #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)) (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) #s(literal -2 binary64)))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)) (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) #s(literal -2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) #s(literal -2 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J))
(.f64 (/.f64 #s(literal -4 binary64) (-.f64 #s(literal 0 binary64) J)) (/.f64 (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 J J) #s(literal 1 binary64)) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 J J) #s(literal -2 binary64)) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (-.f64 #s(literal 0 binary64) J)) (/.f64 (*.f64 J J) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (-.f64 #s(literal 0 binary64) J)) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 J J)) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J J) #s(literal -1 binary64)) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (/.f64 J #s(literal -1/2 binary64))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 J J)) #s(literal 1 binary64)))
(.f64 (/.f64 (.f64 J J) (-.f64 #s(literal 0 binary64) J)) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal -2 binary64)) (/.f64 (*.f64 J J) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal -2 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 J J)) J))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal -4 binary64))) #s(literal 1 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) #s(literal -1 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal -4 binary64))) #s(literal -1 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal -1/2 binary64))) (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal 1 binary64)))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal 1 binary64)) (/.f64 (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal -2 binary64)) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) J) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) J))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) (-.f64 #s(literal 0 binary64) J)) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal 1 binary64)) (*.f64 #s(literal 1 binary64) (/.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 J J) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal -1 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (.f64 J J)) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J J)) #s(literal 1 binary64)) (/.f64 #s(literal -4 binary64) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) #s(literal -2 binary64)) (/.f64 #s(literal -4 binary64) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) J) #s(literal -2 binary64))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) #s(literal 2 binary64)) (/.f64 #s(literal -4 binary64) J))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) #s(literal -1 binary64)) (/.f64 #s(literal -4 binary64) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) (-.f64 #s(literal 0 binary64) J)) #s(literal 2 binary64))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -4 binary64))) #s(literal 1 binary64)) (/.f64 J (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))) J) (/.f64 J #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))) #s(literal -1 binary64)) (/.f64 J (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))) (-.f64 #s(literal 0 binary64) J)) (/.f64 J #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal 1 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J) (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) #s(literal -2 binary64)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) J))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 #s(literal -1 binary64) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 J J)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) #s(literal -1 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) #s(literal 1 binary64)) (/.f64 (*.f64 J J) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) J) (/.f64 (*.f64 J J) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) (/.f64 J #s(literal -1/2 binary64))) (/.f64 (*.f64 J J) #s(literal 1 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 J J) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 1 binary64) (/.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (*.f64 J J) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) #s(literal -1 binary64)) (/.f64 #s(literal 1/2 binary64) J))
(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64))) J)
(.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 J #s(literal -4 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal -2 binary64))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64))) J)
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)) #s(literal 2 binary64))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(.f64 (.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) J)
(.f64 (.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) J)) #s(literal -2 binary64))
(.f64 (.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal 2 binary64))))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64))) (.f64 #s(literal 1 binary64) (/.f64 J #s(literal 2 binary64))))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) (/.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) #s(literal -2 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) #s(literal -2 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) J)) (/.f64 (.f64 J J) #s(literal 2 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal 2 binary64))) J)
(.f64 (.f64 #s(literal 1/2 binary64) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64))))) (/.f64 #s(literal 1 binary64) J))
(.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 #s(literal 4 binary64) J)))) (/.f64 #s(literal -1 binary64) J))
(.f64 (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64))) J)
(.f64 (.f64 #s(literal 1/2 binary64) (*.f64 J #s(literal -4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64)))) #s(literal -1 binary64)) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal -4 binary64)) J)
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 J J)) (/.f64 #s(literal -4 binary64) J))
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 #s(literal 1 binary64) J))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) K)) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 K #s(literal -2 binary64)))
(neg.f64 (/.f64 K #s(literal -2 binary64)))
(neg.f64 (*.f64 #s(literal 1 binary64) (/.f64 K #s(literal -2 binary64))))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 2 binary64) K)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) K))
(/.f64 K #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -2 binary64) K))
(/.f64 (-.f64 #s(literal 0 binary64) K) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) K) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 K #s(literal 2 binary64)))
(*.f64 K #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) K)
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) K) #s(literal -1 binary64)))
(*.f64 #s(literal -1 binary64) (/.f64 K #s(literal -2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) K) #s(literal -1/2 binary64))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) K) #s(literal -1/2 binary64)) (pow.f64 (/.f64 #s(literal 2 binary64) K) #s(literal -1/2 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) K)) #s(literal -1/2 binary64))
(+.f64 #s(literal 0 binary64) (/.f64 J #s(literal -1/2 binary64)))
(exp.f64 (log.f64 (/.f64 J #s(literal -1/2 binary64))))
(exp.f64 (*.f64 (log.f64 (/.f64 J #s(literal -1/2 binary64))) #s(literal 1 binary64)))
(-.f64 #s(literal 0 binary64) (*.f64 J #s(literal 2 binary64)))
(neg.f64 (*.f64 J #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 J (.f64 J #s(literal -4 binary64))) (/.f64 J #s(literal -1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 J #s(literal 2 binary64)) (.f64 J (*.f64 J #s(literal -4 binary64)))))
(/.f64 J #s(literal -1/2 binary64))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1 binary64))
(/.f64 (*.f64 J #s(literal 2 binary64)) #s(literal -1 binary64))
(/.f64 (.f64 J (.f64 J #s(literal -4 binary64))) (*.f64 J #s(literal 2 binary64)))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 1/2 binary64))
(/.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) (/.f64 J #s(literal -1/2 binary64)))
(/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (.f64 J #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (+.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) (.f64 #s(literal 0 binary64) (*.f64 J #s(literal 2 binary64))))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 J (.f64 #s(literal 4 binary64) J))) (*.f64 J #s(literal 2 binary64)))
(pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1 binary64))
(pow.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J #s(literal 2 binary64))) #s(literal -1/2 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 J #s(literal -1/2 binary64)))
(.f64 #s(literal 1 binary64) (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal 2 binary64)))
(*.f64 #s(literal -2 binary64) J)
(*.f64 #s(literal -2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) J) #s(literal -1 binary64)))
(*.f64 J #s(literal -2 binary64))
(.f64 J (/.f64 (.f64 J #s(literal -4 binary64)) (*.f64 J #s(literal 2 binary64))))
(*.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1 binary64))
(*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) J))
(*.f64 #s(literal 2 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 1 binary64)))
(.f64 #s(literal 2 binary64) (/.f64 (.f64 J J) (-.f64 #s(literal 0 binary64) J)))
(.f64 (.f64 J #s(literal 2 binary64)) #s(literal -1 binary64))
(.f64 #s(literal -4 binary64) (.f64 #s(literal 1 binary64) (/.f64 J #s(literal 2 binary64))))
(.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 #s(literal 1/2 binary64) J))
(.f64 #s(literal -1 binary64) (.f64 J #s(literal 2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 2 binary64))
(.f64 #s(literal 4 binary64) (/.f64 (.f64 J J) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 J J) #s(literal 2 binary64)) (/.f64 #s(literal -4 binary64) J))
(*.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(.f64 (/.f64 #s(literal -4 binary64) J) (/.f64 (.f64 J J) #s(literal 2 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 1 binary64)) #s(literal 2 binary64))
(*.f64 (pow.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) J) #s(literal -1 binary64)) #s(literal -2 binary64))
(*.f64 (pow.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(.f64 (/.f64 J #s(literal -2 binary64)) (/.f64 (.f64 J #s(literal -4 binary64)) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 J (-.f64 #s(literal 0 binary64) J)) (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal -2 binary64)))
(.f64 (/.f64 J #s(literal 2 binary64)) (/.f64 (.f64 J #s(literal -4 binary64)) J))
(.f64 (/.f64 J #s(literal -1 binary64)) (/.f64 (.f64 J #s(literal -4 binary64)) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 #s(literal -4 binary64) (-.f64 #s(literal 0 binary64) J)) (/.f64 (.f64 J J) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 J J) #s(literal 1 binary64)) (/.f64 #s(literal -4 binary64) (*.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 J J) #s(literal -2 binary64)) (/.f64 #s(literal -4 binary64) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 J J) #s(literal -1 binary64)) (/.f64 #s(literal -4 binary64) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 J J) (-.f64 #s(literal 0 binary64) J)) #s(literal 2 binary64))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal 1 binary64)) (/.f64 J (*.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal -2 binary64)) (/.f64 J (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) J) (/.f64 J #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal -1 binary64)) (/.f64 J (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) (-.f64 #s(literal 0 binary64) J)) (/.f64 J #s(literal -2 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) J)) #s(literal 2 binary64))
(.f64 (.f64 #s(literal 1 binary64) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1/2 binary64) J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 J #s(literal -1/2 binary64))) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(neg.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(neg.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(neg.f64 (/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) #s(literal 1 binary64)))
(neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) J)) #s(literal 1/2 binary64)))
(neg.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) J))))
(neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 #s(literal -1/2 binary64) J)))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(neg.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) (.f64 J #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) #s(literal 1/2 binary64)) J))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 J #s(literal -4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 0 binary64) J) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 J (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64)))) #s(literal 2 binary64))))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 J #s(literal -4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) (.f64 J #s(literal 2 binary64)))
(/.f64 #s(literal -1 binary64) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 #s(literal 4 binary64) J))) (/.f64 J #s(literal -1/2 binary64)))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) J)) #s(literal -2 binary64))
(/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)) #s(literal 1 binary64))
(/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) J))))
(/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) #s(literal -1 binary64))
(/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 J #s(literal -4 binary64))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -4 binary64))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) #s(literal 1/2 binary64)) (-.f64 #s(literal 0 binary64) J))
(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64)))) #s(literal 2 binary64)) J)
(/.f64 (neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) #s(literal 1/2 binary64))) J)
(pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)))
(.f64 #s(literal -2 binary64) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 #s(literal -2 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) J)))
(.f64 #s(literal -2 binary64) (/.f64 (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J))
(.f64 J (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal 2 binary64)))
(.f64 J (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 J (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(*.f64 (/.f64 J #s(literal -1/2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 #s(literal 2 binary64) (/.f64 (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) J)))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal -1/2 binary64)))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal 2 binary64)))
(.f64 (.f64 J #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))))
(.f64 #s(literal -4 binary64) (/.f64 (.f64 (.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J #s(literal 2 binary64))))
(.f64 (.f64 J (.f64 J #s(literal -4 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 #s(literal 1/2 binary64) J))
(*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J #s(literal 2 binary64)))
(.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) (.f64 J #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) #s(literal 1 binary64)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) J)) #s(literal -1/2 binary64))
(.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) #s(literal 2 binary64)))
(.f64 (.f64 J #s(literal -4 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (*.f64 #s(literal 1 binary64) (/.f64 J #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)) #s(literal 1 binary64))
(.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) J)))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) (/.f64 J (-.f64 #s(literal 0 binary64) J)))
(.f64 #s(literal 4 binary64) (/.f64 (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(literal -2 binary64))
(.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal 2 binary64))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal -2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 J #s(literal -4 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) J) (/.f64 (*.f64 J J) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J J) #s(literal 2 binary64)) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) J))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal 2 binary64)) J)
(.f64 (/.f64 #s(literal -1 binary64) J) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) #s(literal -2 binary64)))
(.f64 (.f64 #s(literal 4 binary64) J) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64)))
(.f64 (.f64 #s(literal 4 binary64) J) (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))) #s(literal 1/2 binary64))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 #s(literal 4 binary64) J))) #s(literal 1/2 binary64)) (/.f64 #s(literal -1 binary64) J))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) J))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) J)
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal 2 binary64))) (/.f64 (.f64 J (.f64 J #s(literal -4 binary64))) #s(literal 1 binary64)))
(.f64 (/.f64 #s(literal -4 binary64) J) (/.f64 (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (/.f64 #s(literal -2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) J))
(.f64 (pow.f64 (/.f64 #s(literal -2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64))))) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) J))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) J)) #s(literal -2 binary64))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))))
(*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64)) (.f64 #s(literal 4 binary64) J))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 J #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)) (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) #s(literal -2 binary64)))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)) (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) #s(literal -2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) #s(literal -2 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J))
(.f64 (/.f64 #s(literal -4 binary64) (-.f64 #s(literal 0 binary64) J)) (/.f64 (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 J J) #s(literal 1 binary64)) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 J J) #s(literal -2 binary64)) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (-.f64 #s(literal 0 binary64) J)) (/.f64 (*.f64 J J) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (-.f64 #s(literal 0 binary64) J)) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 J J)) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J J) #s(literal -1 binary64)) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (/.f64 J #s(literal -1/2 binary64))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 J J)) #s(literal 1 binary64)))
(.f64 (/.f64 (.f64 J J) (-.f64 #s(literal 0 binary64) J)) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal -2 binary64)) (/.f64 (*.f64 J J) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal -2 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 J J)) J))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal -4 binary64))) #s(literal 1 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) #s(literal -1 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal -4 binary64))) #s(literal -1 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal -1/2 binary64))) (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal 1 binary64)))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal 1 binary64)) (/.f64 (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal -2 binary64)) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) J) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) J))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) (-.f64 #s(literal 0 binary64) J)) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal 1 binary64)) (*.f64 #s(literal 1 binary64) (/.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 J J) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal -1 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (.f64 J J)) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J J)) #s(literal 1 binary64)) (/.f64 #s(literal -4 binary64) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) #s(literal -2 binary64)) (/.f64 #s(literal -4 binary64) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) J) #s(literal -2 binary64))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) #s(literal 2 binary64)) (/.f64 #s(literal -4 binary64) J))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) #s(literal -1 binary64)) (/.f64 #s(literal -4 binary64) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) (-.f64 #s(literal 0 binary64) J)) #s(literal 2 binary64))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -4 binary64))) #s(literal 1 binary64)) (/.f64 J (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))) J) (/.f64 J #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))) #s(literal -1 binary64)) (/.f64 J (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))) (-.f64 #s(literal 0 binary64) J)) (/.f64 J #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal 1 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J) (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) #s(literal -2 binary64)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) J))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 #s(literal -1 binary64) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 J J)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) #s(literal -1 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) #s(literal 1 binary64)) (/.f64 (*.f64 J J) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) J) (/.f64 (*.f64 J J) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) (/.f64 J #s(literal -1/2 binary64))) (/.f64 (*.f64 J J) #s(literal 1 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 J J) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 1 binary64) (/.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (*.f64 J J) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) #s(literal -1 binary64)) (/.f64 #s(literal 1/2 binary64) J))
(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64))) J)
(.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 J #s(literal -4 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal -2 binary64))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64))) J)
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)) #s(literal 2 binary64))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(.f64 (.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) J)
(.f64 (.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) J)) #s(literal -2 binary64))
(.f64 (.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal 2 binary64))))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64))) (.f64 #s(literal 1 binary64) (/.f64 J #s(literal 2 binary64))))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) (/.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) #s(literal -2 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) #s(literal -2 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) J)) (/.f64 (.f64 J J) #s(literal 2 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal 2 binary64))) J)
(.f64 (.f64 #s(literal 1/2 binary64) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64))))) (/.f64 #s(literal 1 binary64) J))
(.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 #s(literal 4 binary64) J)))) (/.f64 #s(literal -1 binary64) J))
(.f64 (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64))) J)
(.f64 (.f64 #s(literal 1/2 binary64) (*.f64 J #s(literal -4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64)))) #s(literal -1 binary64)) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal -4 binary64)) J)
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 J J)) (/.f64 #s(literal -4 binary64) J))
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 #s(literal 1 binary64) J))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(cos.f64 (/.f64 K #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(neg.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(exp.f64 (.f64 (log.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 J #s(literal -4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) J)))
(neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) J)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 J #s(literal -4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 J #s(literal -4 binary64))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64)))) J)
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) J))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 #s(literal 4 binary64) J))) (-.f64 #s(literal 0 binary64) J))
(/.f64 (*.f64 J #s(literal -4 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 J #s(literal -4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -4 binary64)))
(.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 #s(literal 1 binary64) J))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) J)))
(.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal 4 binary64) J))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) (/.f64 #s(literal -1 binary64) J))
(.f64 (/.f64 #s(literal 1 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))))
(.f64 (/.f64 #s(literal 1 binary64) J) (pow.f64 (/.f64 #s(literal -1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J)))) #s(literal -1 binary64)))
(.f64 (.f64 J #s(literal -4 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) J)
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(literal -4 binary64))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) (/.f64 #s(literal -4 binary64) J))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))) #s(literal 1 binary64))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) #s(literal -1 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal -1 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 J J)) J))
(.f64 (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal -1 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) #s(literal -1 binary64)) J)
(.f64 (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 J #s(literal -4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 J #s(literal -4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64))) J)
(.f64 (.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 #s(literal 4 binary64) J)))) (/.f64 #s(literal -1 binary64) J))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J (.f64 J #s(literal -4 binary64))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) J) #s(literal -4 binary64)) (.f64 (.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) J) (.f64 J J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) J) (.f64 J (.f64 J #s(literal -4 binary64)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) J) (.f64 J #s(literal -4 binary64))) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64))) (.f64 J J))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J J))) #s(literal -4 binary64))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -4 binary64)))) J)
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1/2 binary64) J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 J #s(literal -1/2 binary64))) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(neg.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(neg.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(neg.f64 (/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) #s(literal 1 binary64)))
(neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) J)) #s(literal 1/2 binary64)))
(neg.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) J))))
(neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 #s(literal -1/2 binary64) J)))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(neg.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) (.f64 J #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) #s(literal 1/2 binary64)) J))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 J #s(literal -4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 0 binary64) J) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 J (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64)))) #s(literal 2 binary64))))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 J #s(literal -4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) (.f64 J #s(literal 2 binary64)))
(/.f64 #s(literal -1 binary64) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 #s(literal 4 binary64) J))) (/.f64 J #s(literal -1/2 binary64)))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) J)) #s(literal -2 binary64))
(/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)) #s(literal 1 binary64))
(/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) J))))
(/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) #s(literal -1 binary64))
(/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 J #s(literal -4 binary64))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -4 binary64))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) #s(literal 1/2 binary64)) (-.f64 #s(literal 0 binary64) J))
(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64)))) #s(literal 2 binary64)) J)
(/.f64 (neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) #s(literal 1/2 binary64))) J)
(pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)))
(.f64 #s(literal -2 binary64) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 #s(literal -2 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) J)))
(.f64 #s(literal -2 binary64) (/.f64 (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J))
(.f64 J (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal 2 binary64)))
(.f64 J (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 J (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(*.f64 (/.f64 J #s(literal -1/2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 #s(literal 2 binary64) (/.f64 (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) J)))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal -1/2 binary64)))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal 2 binary64)))
(.f64 (.f64 J #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))))
(.f64 #s(literal -4 binary64) (/.f64 (.f64 (.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J #s(literal 2 binary64))))
(.f64 (.f64 J (.f64 J #s(literal -4 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 #s(literal 1/2 binary64) J))
(*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J #s(literal 2 binary64)))
(.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) (.f64 J #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) #s(literal 1 binary64)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) J)) #s(literal -1/2 binary64))
(.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) #s(literal 2 binary64)))
(.f64 (.f64 J #s(literal -4 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (*.f64 #s(literal 1 binary64) (/.f64 J #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)) #s(literal 1 binary64))
(.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) J)))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) (/.f64 J (-.f64 #s(literal 0 binary64) J)))
(.f64 #s(literal 4 binary64) (/.f64 (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(literal -2 binary64))
(.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal 2 binary64))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal -2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 J #s(literal -4 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) J) (/.f64 (*.f64 J J) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J J) #s(literal 2 binary64)) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) J))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal 2 binary64)) J)
(.f64 (/.f64 #s(literal -1 binary64) J) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) #s(literal -2 binary64)))
(.f64 (.f64 #s(literal 4 binary64) J) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64)))
(.f64 (.f64 #s(literal 4 binary64) J) (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))) #s(literal 1/2 binary64))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 #s(literal 4 binary64) J))) #s(literal 1/2 binary64)) (/.f64 #s(literal -1 binary64) J))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) J))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) J)
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal 2 binary64))) (/.f64 (.f64 J (.f64 J #s(literal -4 binary64))) #s(literal 1 binary64)))
(.f64 (/.f64 #s(literal -4 binary64) J) (/.f64 (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (/.f64 #s(literal -2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) J))
(.f64 (pow.f64 (/.f64 #s(literal -2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64))))) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) J))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) J)) #s(literal -2 binary64))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))))
(*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64))))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64)) (.f64 #s(literal 4 binary64) J))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 J #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)) (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) #s(literal -2 binary64)))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)) (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) #s(literal -2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) #s(literal -2 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J))
(.f64 (/.f64 #s(literal -4 binary64) (-.f64 #s(literal 0 binary64) J)) (/.f64 (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 J J) #s(literal 1 binary64)) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 J J) #s(literal -2 binary64)) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (-.f64 #s(literal 0 binary64) J)) (/.f64 (*.f64 J J) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (-.f64 #s(literal 0 binary64) J)) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 J J)) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J J) #s(literal -1 binary64)) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (/.f64 J #s(literal -1/2 binary64))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 J J)) #s(literal 1 binary64)))
(.f64 (/.f64 (.f64 J J) (-.f64 #s(literal 0 binary64) J)) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal -2 binary64)) (/.f64 (*.f64 J J) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal -2 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 J J)) J))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal -4 binary64))) #s(literal 1 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) #s(literal -1 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal -4 binary64))) #s(literal -1 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal -1/2 binary64))) (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal 1 binary64)))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal 1 binary64)) (/.f64 (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal -2 binary64)) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) J) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) J))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) (-.f64 #s(literal 0 binary64) J)) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal 1 binary64)) (*.f64 #s(literal 1 binary64) (/.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 J J) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal -1 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (.f64 J J)) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J J)) #s(literal 1 binary64)) (/.f64 #s(literal -4 binary64) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) #s(literal -2 binary64)) (/.f64 #s(literal -4 binary64) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) J) #s(literal -2 binary64))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) #s(literal 2 binary64)) (/.f64 #s(literal -4 binary64) J))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) #s(literal -1 binary64)) (/.f64 #s(literal -4 binary64) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) (-.f64 #s(literal 0 binary64) J)) #s(literal 2 binary64))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -4 binary64))) #s(literal 1 binary64)) (/.f64 J (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))) J) (/.f64 J #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))) #s(literal -1 binary64)) (/.f64 J (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))) (-.f64 #s(literal 0 binary64) J)) (/.f64 J #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal 1 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J) (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) #s(literal -2 binary64)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) J))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 #s(literal -1 binary64) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 J J)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) #s(literal -1 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) #s(literal 1 binary64)) (/.f64 (*.f64 J J) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) J) (/.f64 (*.f64 J J) #s(literal -2 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) (/.f64 J #s(literal -1/2 binary64))) (/.f64 (*.f64 J J) #s(literal 1 binary64)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 J J) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) #s(literal -1 binary64)) (*.f64 #s(literal 1 binary64) (/.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (*.f64 J J) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))) #s(literal -1 binary64)) (/.f64 #s(literal 1/2 binary64) J))
(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64))) J)
(.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 J #s(literal -4 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal -2 binary64))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64))) J)
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)) #s(literal 2 binary64))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(.f64 (.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) J)
(.f64 (.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) J)) #s(literal -2 binary64))
(.f64 (.f64 #s(literal 1 binary64) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal 2 binary64))))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64))) (.f64 #s(literal 1 binary64) (/.f64 J #s(literal 2 binary64))))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) (/.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) #s(literal -2 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 J (.f64 #s(literal 4 binary64) J)) #s(literal -2 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) J)) (/.f64 (.f64 J J) #s(literal 2 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) #s(literal 2 binary64))) J)
(.f64 (.f64 #s(literal 1/2 binary64) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64))))) (/.f64 #s(literal 1 binary64) J))
(.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 #s(literal 4 binary64) J)))) (/.f64 #s(literal -1 binary64) J))
(.f64 (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64))) J)
(.f64 (.f64 #s(literal 1/2 binary64) (*.f64 J #s(literal -4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64)))) #s(literal -1 binary64)) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal -4 binary64)) J)
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 J J)) (/.f64 #s(literal -4 binary64) J))
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 J (.f64 J #s(literal -4 binary64)))) (/.f64 #s(literal 1 binary64) J))
(-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 #s(literal 4 binary64) J))))
(neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 #s(literal 4 binary64) J))))
(/.f64 (.f64 J (.f64 J #s(literal -4 binary64))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) (/.f64 #s(literal -1/2 binary64) J))
(.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))))
(*.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal -4 binary64))))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (neg.f64 (.f64 J (*.f64 #s(literal 4 binary64) J))))
(.f64 #s(literal -4 binary64) (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 J J) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)))
(.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal -4 binary64)))) #s(literal 1 binary64))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 #s(literal 4 binary64) J))))
(.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J (*.f64 #s(literal 4 binary64) J)))
(.f64 (.f64 J #s(literal -4 binary64)) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (*.f64 J J))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -4 binary64)) (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 J J))))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)) (.f64 J #s(literal 2 binary64)))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) (/.f64 J #s(literal -1/2 binary64)))
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) J) #s(literal -2 binary64))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (*.f64 J #s(literal -4 binary64)))
(.f64 (neg.f64 (.f64 J (*.f64 #s(literal 4 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 J (*.f64 #s(literal 4 binary64) J)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64)) (-.f64 #s(literal 0 binary64) (*.f64 J J)))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J J)) #s(literal -4 binary64))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -4 binary64))) J)
(.f64 (.f64 (*.f64 J J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -4 binary64))
(.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 4 binary64))) (*.f64 J J))
(.f64 (.f64 (/.f64 J #s(literal -1/2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal 2 binary64))
(.f64 (.f64 (/.f64 J #s(literal -1/2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64))) J)
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) #s(literal -2 binary64)) J)
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) #s(literal -1 binary64)) (*.f64 J #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) (-.f64 #s(literal 0 binary64) J)) #s(literal 2 binary64))
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(.f64 (.f64 (.f64 J (.f64 J #s(literal -4 binary64))) #s(literal 1 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(exp.f64 (.f64 (log.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U (.f64 J #s(literal 2 binary64))))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))) #s(literal 1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))))
(-.f64 (/.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))))
(neg.f64 (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))))
(neg.f64 (*.f64 (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U (*.f64 J #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (/.f64 U #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 U #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) U) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 J (/.f64 (/.f64 U #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 J #s(literal 2 binary64)) (/.f64 U (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(/.f64 (/.f64 U (*.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U (/.f64 J #s(literal -1/2 binary64)))))
(/.f64 (/.f64 U (/.f64 J #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)))
(/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J (/.f64 U #s(literal 2 binary64))))
(/.f64 (/.f64 U #s(literal 2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(/.f64 (/.f64 U #s(literal 2 binary64)) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 U #s(literal -2 binary64)) (neg.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)))
(/.f64 (/.f64 U #s(literal -2 binary64)) (.f64 (.f64 J #s(literal -1 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (/.f64 J #s(literal -1/2 binary64)) U))
(/.f64 (/.f64 (/.f64 U #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J)
(/.f64 (/.f64 U (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 J #s(literal 2 binary64)))
(/.f64 (neg.f64 (/.f64 (/.f64 U #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) J))
(/.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal -1/2 binary64)))
(/.f64 (neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 J #s(literal 2 binary64)))
(pow.f64 (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))) #s(literal 1 binary64))
(pow.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U (*.f64 J #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))))
(*.f64 U (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(*.f64 (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))) #s(literal 1 binary64))
(*.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J U)))
(.f64 #s(literal 1/2 binary64) (/.f64 U (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 #s(literal -1 binary64) (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))))
(*.f64 (/.f64 U (/.f64 J #s(literal -1/2 binary64))) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 U (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) U)))
(*.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 U (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) #s(literal 1 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) U)))
(*.f64 (/.f64 U #s(literal 2 binary64)) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J))
(.f64 (/.f64 U #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (/.f64 U #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)))
(*.f64 (/.f64 U #s(literal -2 binary64)) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) J)))
(.f64 (/.f64 #s(literal -1 binary64) J) (/.f64 U (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 U (/.f64 J #s(literal -1/2 binary64))))
(*.f64 (/.f64 (/.f64 U #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) J))
(*.f64 (/.f64 (/.f64 U #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (/.f64 #s(literal 1 binary64) J) #s(literal 1 binary64)))
(*.f64 (/.f64 U J) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (/.f64 U (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) J))
(*.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(*.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 U #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) U) #s(literal -1 binary64)) (/.f64 #s(literal 1/2 binary64) J))
(*.f64 (pow.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) U)) #s(literal -1 binary64)) (/.f64 #s(literal -1/2 binary64) J))
(*.f64 (pow.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U #s(literal 2 binary64))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) J))
(*.f64 (pow.f64 U #s(literal 1 binary64)) (pow.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) (pow.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 U (/.f64 J #s(literal -1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(*.f64 (/.f64 U #s(literal 1 binary64)) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 U #s(literal 1 binary64)) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal 1/2 binary64))
(.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) J))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) J) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) J) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -2 binary64)))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 1 binary64)) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 1 binary64)) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal -1/2 binary64))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64))) (/.f64 #s(literal 1 binary64) J))
(*.f64 (/.f64 U (-.f64 #s(literal 0 binary64) J)) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -2 binary64)))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1/2 binary64))))
(*.f64 (/.f64 U #s(literal -1 binary64)) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (/.f64 U #s(literal -1 binary64)) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) #s(literal -1 binary64)) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) #s(literal -1 binary64)) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 J #s(literal 2 binary64))))
(*.f64 (/.f64 (/.f64 U #s(literal 2 binary64)) #s(literal 1 binary64)) (/.f64 (/.f64 #s(literal 1 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 #s(literal -1 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) (/.f64 U #s(literal -2 binary64)))
(*.f64 (/.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64))) (/.f64 U J))
(.f64 (pow.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U (.f64 J #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 U (*.f64 J #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))) #s(literal 1/2 binary64)) (pow.f64 (/.f64 U (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J))) #s(literal 1/2 binary64)))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U) (/.f64 #s(literal 1/2 binary64) J))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) U)) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 U #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) J))
(.f64 J (.f64 J #s(literal -4 binary64)))
(.f64 #s(literal -4 binary64) (.f64 J J))
(.f64 (.f64 J J) #s(literal -4 binary64))
(.f64 (.f64 J #s(literal -4 binary64)) J)

simplify334.0ms (3.2%)

Algorithm

1×	egg-herbie

Rules

6436×	`-lowering-.f32`
6436×	`-lowering-.f64`
1990×	`+-lowering-+.f64`
1990×	`+-lowering-+.f32`
1902×	`sum3-define`

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	416	4746
1	1457	4207
2	6048	4080
0	9036	4080

Stop Event

1×	iter limit
1×	node limit

Counts

312 → 312

Calls

Call 1

Inputs
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(* -2 (* J (cos (* 1/2 K))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(* -1 U)
(* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))
(* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))
(* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))
U
(* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))
(* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))
(* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))
(* -1 U)
(+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))
(* -2 (* J (cos (* 1/2 K))))
(* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))
(* -2 (* J (cos (* 1/2 K))))
(* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
(+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))
(+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))))
(+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -1/16 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (+ (* -1/46080 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/12288 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))))))
(* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(cos (* 1/2 K))
(+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))
(+ (cos (* 1/2 K)) (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))
(+ (cos (* 1/2 K)) (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))
(* 1/2 (/ U J))
(* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))
(* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))
(* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))
(* -1/2 (/ U J))
(* -1 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))
(* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))
(* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
(* 1/2 (/ U J))
(/ (+ (* 1/2 U) (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) J)
(/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)
(/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)
(cos (* 1/2 K))
(+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))
(+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))
(+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))
(cos (* 1/2 K))
(+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))
(+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))
(+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))
1
(+ 1 (* -1/8 (pow K 2)))
(+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))
(+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
1
(+ 1 (* -1/8 (pow K 2)))
(+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))
(+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(* -4 J)
(+ (* -4 J) (* 1/2 (* J (pow K 2))))
(+ (* -4 J) (* (pow K 2) (+ (* -1/96 (* J (pow K 2))) (* 1/2 J))))
(+ (* -4 J) (* (pow K 2) (+ (* 1/2 J) (* (pow K 2) (+ (* -1/96 J) (* 1/11520 (* J (pow K 2))))))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -2 J)
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -4 (pow J 2))
(+ (* -4 (pow J 2)) (* 1/2 (* (pow J 2) (pow K 2))))
(+ (* -4 (pow J 2)) (* (pow K 2) (+ (* -1/96 (* (pow J 2) (pow K 2))) (* 1/2 (pow J 2)))))
(+ (* -4 (pow J 2)) (* (pow K 2) (+ (* 1/2 (pow J 2)) (* (pow K 2) (+ (* -1/96 (pow J 2)) (* 1/11520 (* (pow J 2) (pow K 2))))))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U J))
(+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))
(+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))
(+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))

Outputs
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))) (*.f64 J #s(literal -2 binary64)))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))
(.f64 #s(literal -2 binary64) (+.f64 (.f64 J (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (.f64 (.f64 K K) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))) (.f64 J #s(literal -1/8 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (.f64 #s(literal 1/32 binary64) (/.f64 (.f64 U U) J)))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
(+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))) (.f64 J #s(literal -2 binary64))) (.f64 (.f64 K K) (+.f64 (.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (.f64 (/.f64 (.f64 U U) J) #s(literal -1/256 binary64))) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))) (.f64 J #s(literal 1/384 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (.f64 (.f64 J #s(literal 1/2 binary64)) (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))))))) (.f64 #s(literal -2 binary64) (.f64 K K))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 J (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))))) (.f64 (.f64 (/.f64 (.f64 U U) J) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (*.f64 J J)))))) #s(literal -1/16 binary64))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))
(+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))) (.f64 J #s(literal -2 binary64))) (.f64 (.f64 K K) (+.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 J (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))))) (.f64 (.f64 (/.f64 (.f64 U U) J) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))))) #s(literal -1/16 binary64))) (.f64 (.f64 K K) (.f64 #s(literal -2 binary64) (+.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (.f64 (/.f64 (.f64 U U) J) #s(literal -1/256 binary64))) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))) (.f64 J #s(literal 1/384 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (.f64 (.f64 J #s(literal 1/2 binary64)) (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))))))) (.f64 K (.f64 K (+.f64 (.f64 J (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (.f64 (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) #s(literal -1/16 binary64)))) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))) (.f64 J #s(literal -1/46080 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (+.f64 (.f64 (/.f64 (.f64 U U) J) #s(literal 1/12288 binary64)) (.f64 (.f64 J #s(literal 1/2 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal -1/96 binary64)) (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 13/2880 binary64)))) (.f64 (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 U U) (.f64 J J))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))))))))))))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J #s(literal -2 binary64))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J #s(literal -2 binary64))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J #s(literal -2 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 U U) J)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J #s(literal -2 binary64))) (.f64 (.f64 U U) (+.f64 (/.f64 #s(literal -1/4 binary64) (.f64 J (cos.f64 (.f64 K #s(literal 1/2 binary64))))) (/.f64 (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 U U) (.f64 J (.f64 J J)))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J #s(literal -2 binary64))) (.f64 (.f64 U U) (+.f64 (.f64 (.f64 U U) (+.f64 (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal -1/512 binary64)) (pow.f64 J #s(literal 5 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 5 binary64))) (/.f64 (/.f64 #s(literal 1/64 binary64) (.f64 J (.f64 J J))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))))) (/.f64 #s(literal -1/4 binary64) (.f64 J (cos.f64 (*.f64 K #s(literal 1/2 binary64))))))))
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))
(.f64 U (+.f64 #s(literal -1 binary64) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U))))))
(* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))
(.f64 U (+.f64 #s(literal -1 binary64) (+.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U)))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))))))))
(* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))
(.f64 U (+.f64 #s(literal -1 binary64) (+.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U)))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))))) (.f64 #s(literal -4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))))))))
U
(* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 #s(literal -1 binary64) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U))))))
(* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 #s(literal -1 binary64) (+.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U)))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))))))))
(* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 #s(literal -1 binary64) (+.f64 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) (.f64 U U)))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))))) (.f64 #s(literal -4 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))))))))
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))
(-.f64 (/.f64 (.f64 #s(literal -2 binary64) (.f64 (.f64 J J) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)))) U) U)
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))
(-.f64 (.f64 (.f64 J J) (+.f64 (/.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))) U) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (.f64 J J) (.f64 U (.f64 U U))))))) U)
(+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))
(-.f64 (.f64 (.f64 J J) (+.f64 (/.f64 (.f64 #s(literal -2 binary64) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))) U) (.f64 (.f64 J J) (+.f64 (/.f64 (.f64 (.f64 (.f64 J J) #s(literal -4 binary64)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 6 binary64))) (pow.f64 U #s(literal 5 binary64))) (/.f64 (.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64))) (.f64 U (.f64 U U))))))) U)
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))
(.f64 J (+.f64 (.f64 #s(literal -2 binary64) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (/.f64 (.f64 (.f64 U U) #s(literal -1/4 binary64)) (.f64 (.f64 J J) (cos.f64 (.f64 K #s(literal 1/2 binary64)))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))
(.f64 J (+.f64 (.f64 #s(literal -2 binary64) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal -1/4 binary64)) (.f64 (.f64 J J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal 1/64 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))
(.f64 J (+.f64 (.f64 #s(literal -2 binary64) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (+.f64 (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal 1/64 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal -1/4 binary64)) (.f64 (.f64 J J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))) (/.f64 (/.f64 (.f64 #s(literal -1/512 binary64) (pow.f64 U #s(literal 6 binary64))) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 5 binary64)))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))
(-.f64 #s(literal 0 binary64) (.f64 J (+.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 (.f64 J J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))) (.f64 #s(literal 2 binary64) (cos.f64 (.f64 K #s(literal 1/2 binary64)))))))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))
(.f64 (+.f64 (.f64 #s(literal 2 binary64) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (+.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 (.f64 J J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal -1/64 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))))) (neg.f64 J))
(* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
(.f64 (+.f64 (+.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 (.f64 J J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))) (.f64 #s(literal 2 binary64) (cos.f64 (.f64 K #s(literal 1/2 binary64))))) (+.f64 (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal -1/64 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 6 binary64)) #s(literal 1/512 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 5 binary64))))) (neg.f64 J))
(sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (*.f64 J J))))
(+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))) (.f64 (.f64 K K) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))) #s(literal -1/8 binary64)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (/.f64 (.f64 #s(literal 1/32 binary64) (.f64 U U)) (.f64 J J))))))
(+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))) (.f64 (.f64 K K) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))) #s(literal -1/8 binary64)) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (/.f64 (.f64 #s(literal 1/32 binary64) (.f64 U U)) (.f64 J J))) (.f64 K (.f64 K (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (/.f64 (.f64 #s(literal -1/256 binary64) (.f64 U U)) (.f64 J J))) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))) #s(literal 1/384 binary64)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (.f64 (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (*.f64 J J))))) #s(literal 1/2 binary64)))))))))))
(+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -1/16 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (+ (* -1/46080 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/12288 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))) (.f64 (.f64 K K) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))) #s(literal -1/8 binary64)) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (/.f64 (.f64 #s(literal 1/32 binary64) (.f64 U U)) (.f64 J J))) (.f64 (.f64 K K) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (/.f64 (.f64 #s(literal -1/256 binary64) (.f64 U U)) (.f64 J J))) (+.f64 (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))) #s(literal 1/384 binary64)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (.f64 (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) #s(literal 1/2 binary64)))) (.f64 (.f64 K K) (+.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (.f64 (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) #s(literal -1/16 binary64))) (+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))) #s(literal -1/46080 binary64)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (/.f64 (.f64 #s(literal 1/12288 binary64) (.f64 U U)) (.f64 J J))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal -1/96 binary64)) (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 13/2880 binary64)))) (.f64 (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 U U) (.f64 J J))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 U U) (.f64 J J)) #s(literal 1/96 binary64)) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J))))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)))))) #s(literal 1/2 binary64))))))))))))
(* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 U U)) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))
(+.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (/.f64 (.f64 (.f64 U U) #s(literal 1/8 binary64)) (.f64 (.f64 J J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))))
(+ (cos (* 1/2 K)) (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))
(+.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 U U) (+.f64 (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal -1/128 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 (/.f64 #s(literal 1/8 binary64) (.f64 J J)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))))))
(+ (cos (* 1/2 K)) (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))
(+.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 U (.f64 U (+.f64 (/.f64 (/.f64 #s(literal 1/8 binary64) (.f64 J J)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (.f64 (.f64 U U) (+.f64 (/.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/1024 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 5 binary64))) (/.f64 #s(literal -1/128 binary64) (.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))))))))))
(* 1/2 (/ U J))
(/.f64 (*.f64 U #s(literal 1/2 binary64)) J)
(* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))
(.f64 U (+.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 J (.f64 U U)))))
(* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))
(.f64 U (-.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 J (.f64 U U)))) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (.f64 J (.f64 J J)) (pow.f64 U #s(literal 4 binary64))))))
(* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))
(.f64 U (+.f64 (-.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 J (.f64 U U)))) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (.f64 J (.f64 J J)) (pow.f64 U #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (pow.f64 J #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64)))))))
(* -1/2 (/ U J))
(*.f64 #s(literal -1/2 binary64) (/.f64 U J))
(* -1 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 J (.f64 U U)))))
(* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))
(.f64 (-.f64 #s(literal 0 binary64) U) (-.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 J (.f64 U U)))) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (.f64 J (.f64 J J)) (pow.f64 U #s(literal 4 binary64))))))
(* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
(.f64 U (.f64 (+.f64 (-.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 J (.f64 U U)))) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (.f64 J (.f64 J J)) (pow.f64 U #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 6 binary64)) (/.f64 (pow.f64 J #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64)))))) #s(literal -1 binary64)))
(* 1/2 (/ U J))
(/.f64 (*.f64 U #s(literal 1/2 binary64)) J)
(/ (+ (* 1/2 U) (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) J)
(/.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 J J) U)) (.f64 U #s(literal 1/2 binary64))) J)
(/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)
(/.f64 (+.f64 (.f64 U #s(literal 1/2 binary64)) (.f64 (.f64 J J) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) U) (.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (/.f64 (.f64 J J) (.f64 U (*.f64 U U))))))) J)
(/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)
(/.f64 (+.f64 (.f64 U #s(literal 1/2 binary64)) (.f64 (.f64 J J) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 2 binary64)) U) (.f64 J (.f64 J (-.f64 (/.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 J J)) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 6 binary64))) (pow.f64 U #s(literal 5 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 U (*.f64 U U))))))))) J)
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))
(+.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (/.f64 (.f64 (.f64 U U) #s(literal 1/8 binary64)) (.f64 (.f64 J J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))))
(+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))
(+.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/8 binary64)) (.f64 (.f64 J J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal -1/128 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))
(+.f64 (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal -1/128 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/8 binary64)) (.f64 (.f64 J J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 6 binary64))) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 5 binary64)))) (cos.f64 (.f64 K #s(literal 1/2 binary64)))))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))
(+.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (/.f64 (.f64 (.f64 U U) #s(literal 1/8 binary64)) (.f64 (.f64 J J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))))
(+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))
(+.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/8 binary64)) (.f64 (.f64 J J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))) (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal -1/128 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))
(+.f64 (/.f64 (/.f64 (.f64 (pow.f64 U #s(literal 4 binary64)) #s(literal -1/128 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/8 binary64)) (.f64 (.f64 J J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))) (/.f64 (/.f64 (.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 6 binary64))) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) #s(literal 5 binary64)))) (cos.f64 (.f64 K #s(literal 1/2 binary64)))))
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow K 2)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64)))
(+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 K (.f64 K (+.f64 #s(literal -1/8 binary64) (.f64 (.f64 K K) #s(literal 1/384 binary64))))))
(+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) (+.f64 #s(literal -1/8 binary64) (.f64 (.f64 K K) (+.f64 #s(literal 1/384 binary64) (.f64 (.f64 K K) #s(literal -1/46080 binary64)))))))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 J (.f64 #s(literal 1/4 binary64) (.f64 K K))))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 (.f64 J (.f64 K K)) #s(literal -1/192 binary64)) (*.f64 J #s(literal 1/4 binary64)))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 K (.f64 K (+.f64 (.f64 J #s(literal 1/4 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal -1/192 binary64)) (.f64 J (.f64 (.f64 K K) #s(literal 1/23040 binary64)))))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 J (.f64 #s(literal 1/4 binary64) (.f64 K K))))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 (.f64 J (.f64 K K)) #s(literal -1/192 binary64)) (*.f64 J #s(literal 1/4 binary64)))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 K (.f64 K (+.f64 (.f64 J #s(literal 1/4 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal -1/192 binary64)) (.f64 J (.f64 (.f64 K K) #s(literal 1/23040 binary64)))))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow K 2)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64)))
(+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 K (.f64 K (+.f64 #s(literal -1/8 binary64) (.f64 (.f64 K K) #s(literal 1/384 binary64))))))
(+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) (+.f64 #s(literal -1/8 binary64) (.f64 (.f64 K K) (+.f64 #s(literal 1/384 binary64) (.f64 (.f64 K K) #s(literal -1/46080 binary64)))))))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(* -4 J)
(*.f64 J #s(literal -4 binary64))
(+ (* -4 J) (* 1/2 (* J (pow K 2))))
(+.f64 (.f64 J #s(literal -4 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 J (.f64 K K))))
(+ (* -4 J) (* (pow K 2) (+ (* -1/96 (* J (pow K 2))) (* 1/2 J))))
(+.f64 (.f64 J #s(literal -4 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 (.f64 J (.f64 K K)) #s(literal -1/96 binary64)) (*.f64 J #s(literal 1/2 binary64)))))
(+ (* -4 J) (* (pow K 2) (+ (* 1/2 J) (* (pow K 2) (+ (* -1/96 J) (* 1/11520 (* J (pow K 2))))))))
(+.f64 (.f64 J #s(literal -4 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal 1/2 binary64)) (.f64 K (.f64 K (+.f64 (.f64 J #s(literal -1/96 binary64)) (.f64 J (.f64 (.f64 K K) #s(literal 1/11520 binary64)))))))))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -4 binary64)))
(* -2 J)
(*.f64 J #s(literal -2 binary64))
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 J (.f64 #s(literal 1/4 binary64) (.f64 K K))))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 (.f64 J (.f64 K K)) #s(literal -1/192 binary64)) (*.f64 J #s(literal 1/4 binary64)))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 K (.f64 K (+.f64 (.f64 J #s(literal 1/4 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal -1/192 binary64)) (.f64 J (.f64 (.f64 K K) #s(literal 1/23040 binary64)))))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (*.f64 J #s(literal -2 binary64)))
(* -4 (pow J 2))
(.f64 (.f64 J J) #s(literal -4 binary64))
(+ (* -4 (pow J 2)) (* 1/2 (* (pow J 2) (pow K 2))))
(+.f64 (.f64 (.f64 J J) #s(literal -4 binary64)) (.f64 (.f64 J J) (.f64 #s(literal 1/2 binary64) (.f64 K K))))
(+ (* -4 (pow J 2)) (* (pow K 2) (+ (* -1/96 (* (pow J 2) (pow K 2))) (* 1/2 (pow J 2)))))
(+.f64 (.f64 (.f64 J J) #s(literal -4 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 (.f64 J J) (.f64 (.f64 K K) #s(literal -1/96 binary64))) (.f64 (.f64 J J) #s(literal 1/2 binary64)))))
(+ (* -4 (pow J 2)) (* (pow K 2) (+ (* 1/2 (pow J 2)) (* (pow K 2) (+ (* -1/96 (pow J 2)) (* 1/11520 (* (pow J 2) (pow K 2))))))))
(+.f64 (.f64 (.f64 J J) #s(literal -4 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 (.f64 J J) #s(literal 1/2 binary64)) (.f64 K (.f64 K (+.f64 (.f64 J (.f64 J #s(literal -1/96 binary64))) (.f64 (.f64 J J) (.f64 (.f64 K K) #s(literal 1/11520 binary64)))))))))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* -4 (* (pow J 2) (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 (.f64 J J) #s(literal -4 binary64)))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U J))
(/.f64 (*.f64 U #s(literal 1/2 binary64)) J)
(+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))
(+.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (.f64 K (.f64 K (/.f64 (.f64 U #s(literal 1/16 binary64)) J))))
(+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))
(+.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (.f64 (.f64 K K) (+.f64 (.f64 K (.f64 K (.f64 (/.f64 U J) #s(literal 5/768 binary64)))) (/.f64 (*.f64 U #s(literal 1/16 binary64)) J))))
(+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))
(+.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (.f64 (.f64 K K) (+.f64 (/.f64 (.f64 U #s(literal 1/16 binary64)) J) (.f64 #s(literal -1/2 binary64) (.f64 (+.f64 (.f64 (/.f64 U J) #s(literal -5/384 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 (/.f64 U J) #s(literal -5/3072 binary64)) (.f64 (/.f64 U J) #s(literal 7/23040 binary64))))) (.f64 K K))))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* 1/2 (/ U (* J (cos (* 1/2 K)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (cos.f64 (.f64 K #s(literal 1/2 binary64))))
(* -4 (pow J 2))
(.f64 (.f64 J J) #s(literal -4 binary64))
(* -4 (pow J 2))
(.f64 (.f64 J J) #s(literal -4 binary64))
(* -4 (pow J 2))
(.f64 (.f64 J J) #s(literal -4 binary64))
(* -4 (pow J 2))
(.f64 (.f64 J J) #s(literal -4 binary64))
(* -4 (pow J 2))
(.f64 (.f64 J J) #s(literal -4 binary64))
(* -4 (pow J 2))
(.f64 (.f64 J J) #s(literal -4 binary64))
(* -4 (pow J 2))
(.f64 (.f64 J J) #s(literal -4 binary64))
(* -4 (pow J 2))
(.f64 (.f64 J J) #s(literal -4 binary64))
(* -4 (pow J 2))
(.f64 (.f64 J J) #s(literal -4 binary64))
(* -4 (pow J 2))
(.f64 (.f64 J J) #s(literal -4 binary64))
(* -4 (pow J 2))
(.f64 (.f64 J J) #s(literal -4 binary64))
(* -4 (pow J 2))
(.f64 (.f64 J J) #s(literal -4 binary64))

eval242.0ms (2.4%)

Compiler: Compiled 30756 to 2695 computations (91.2% saved)

prune236.0ms (2.3%)

Pruning

27 alts after pruning (21 fresh and 6 done)

	Pruned	Kept	Total
New	1744	16	1760
Fresh	4	5	9
Picked	3	2	5
Done	0	4	4
Total	1751	27	1778

Accuracy

100.0%

Counts

1778 → 27

Alt Table

Click to see full alt table

Status	Accuracy	Program
	15.0%	(/.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
	16.4%	(/.f64 (/.f64 (.f64 (.f64 J J) #s(literal -4 binary64)) J) #s(literal 2 binary64))
✓	25.5%	(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
	31.6%	(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))
	46.5%	(/.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
	26.2%	(/.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
▶	68.1%	(/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))) (*.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
▶	25.5%	(/.f64 (.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal 2 binary64))
	68.0%	(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (.f64 U #s(literal 1/2 binary64)) J))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
	46.4%	(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
	46.4%	(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)))
	46.3%	(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
▶	16.4%	(/.f64 #s(literal 1 binary64) (/.f64 (.f64 J #s(literal 2 binary64)) (.f64 J (*.f64 J #s(literal -4 binary64)))))
	28.4%	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J))
▶	43.5%	(-.f64 #s(literal 0 binary64) U)
	46.6%	(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J #s(literal -2 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 U U) J)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))))
	26.2%	(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 J (.f64 #s(literal 1/4 binary64) (.f64 K K))))
	9.4%	(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
	16.4%	(.f64 (/.f64 (.f64 J J) #s(literal 2 binary64)) (/.f64 #s(literal -4 binary64) J))
	68.0%	(.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J))))
✓	85.5%	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
✓	68.1%	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J))))
	56.8%	(.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 U J))))
▶	46.4%	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J)))
✓	46.5%	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
✓	28.5%	(*.f64 #s(literal -2 binary64) J)
✓	15.0%	U

Compiler

Compiled 731 to 539 computations (26.3% saved)

simplify196.0ms (1.9%)

Algorithm

1×	egg-herbie

Localize:

Found 17 expressions of interest:

New	Metric	Score	Program
✓	cost-diff	0	(*.f64 J #s(literal -4 binary64))
✓	cost-diff	0	(.f64 J (.f64 J #s(literal -4 binary64)))
✓	cost-diff	128	(/.f64 (.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal 2 binary64))
✓	cost-diff	256	(.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
✓	cost-diff	0	(*.f64 #s(literal 1/2 binary64) K)
✓	cost-diff	0	(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
✓	cost-diff	0	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J)))
✓	cost-diff	128	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J))
✓	cost-diff	0	(.f64 J (.f64 J #s(literal -4 binary64)))
✓	cost-diff	0	(*.f64 J #s(literal 2 binary64))
✓	cost-diff	128	(/.f64 #s(literal 1 binary64) (/.f64 (.f64 J #s(literal 2 binary64)) (.f64 J (*.f64 J #s(literal -4 binary64)))))
✓	cost-diff	384	(/.f64 (.f64 J #s(literal 2 binary64)) (.f64 J (*.f64 J #s(literal -4 binary64))))
✓	cost-diff	0	(-.f64 #s(literal 0 binary64) U)
✓	cost-diff	0	(/.f64 U (*.f64 #s(literal 2 binary64) J))
✓	cost-diff	0	(hypot.f64 #s(literal 1 binary64) (/.f64 U (*.f64 #s(literal 2 binary64) J)))
✓	cost-diff	0	(.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))) (*.f64 #s(literal -2 binary64) J))
✓	cost-diff	128	(/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))) (*.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))

Rules

5184×	`-lowering-.f32`
5184×	`-lowering-.f64`
2712×	`/-lowering-/.f32`
2712×	`/-lowering-/.f64`
2244×	`associate-/r/`

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	36	178
1	89	161
2	255	156
3	913	153
4	3823	153
5	3905	153
6	4162	153
7	4242	153
8	4362	153
9	4520	153
10	6986	153
11	7930	153
0	8022	153

Stop Event

1×	iter limit
1×	node limit

Calls

Call 1

Inputs
(/ (* (sqrt (+ (* 1 1) (* (/ U (* 2 J)) (/ U (* 2 J))))) (* -2 J)) (/ 1 (cos (/ K 2))))
(* (sqrt (+ (* 1 1) (* (/ U (* 2 J)) (/ U (* 2 J))))) (* -2 J))
(sqrt (+ (* 1 1) (* (/ U (* 2 J)) (/ U (* 2 J)))))
1
(/ U (* 2 J))
U
(* 2 J)
2
J
(* -2 J)
-2
(/ 1 (cos (/ K 2)))
(cos (/ K 2))
(/ K 2)
K
(- 0 U)
0
U
(/ 1 (/ (* J 2) (* J (* J -4))))
1
(/ (* J 2) (* J (* J -4)))
(* J 2)
J
2
(* J (* J -4))
(* J -4)
-4
(* (cos (* 1/2 K)) (/ 1 (/ -1/2 J)))
(cos (* 1/2 K))
(* 1/2 K)
1/2
K
(/ 1 (/ -1/2 J))
1
(/ -1/2 J)
-1/2
J
(/ (* (* J (* J -4)) (/ (cos (/ K 2)) J)) 2)
(* (* J (* J -4)) (/ (cos (/ K 2)) J))
(* J (* J -4))
J
(* J -4)
-4
(/ (cos (/ K 2)) J)
(cos (/ K 2))
(/ K 2)
K
2

Outputs
(/ (* (sqrt (+ (* 1 1) (* (/ U (* 2 J)) (/ U (* 2 J))))) (* -2 J)) (/ 1 (cos (/ K 2))))
(/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (*.f64 #s(literal 2 binary64) J))) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(* (sqrt (+ (* 1 1) (* (/ U (* 2 J)) (/ U (* 2 J))))) (* -2 J))
(/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (*.f64 #s(literal 2 binary64) J))) (/.f64 #s(literal -1/2 binary64) J))
(sqrt (+ (* 1 1) (* (/ U (* 2 J)) (/ U (* 2 J)))))
(hypot.f64 #s(literal 1 binary64) (/.f64 U (*.f64 #s(literal 2 binary64) J)))
1
#s(literal 1 binary64)
(/ U (* 2 J))
(/.f64 U (*.f64 #s(literal 2 binary64) J))
U
(* 2 J)
(*.f64 #s(literal 2 binary64) J)
2
#s(literal 2 binary64)
J
(* -2 J)
(/.f64 J #s(literal -1/2 binary64))
-2
#s(literal -2 binary64)
(/ 1 (cos (/ K 2)))
(/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(cos (/ K 2))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/ K 2)
(/.f64 K #s(literal 2 binary64))
K
(- 0 U)
(-.f64 #s(literal 0 binary64) U)
0
#s(literal 0 binary64)
U
(/ 1 (/ (* J 2) (* J (* J -4))))
(/.f64 J #s(literal -1/2 binary64))
1
#s(literal 1 binary64)
(/ (* J 2) (* J (* J -4)))
(/.f64 #s(literal -1/2 binary64) J)
(* J 2)
(*.f64 #s(literal 2 binary64) J)
J
2
#s(literal 2 binary64)
(* J (* J -4))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* J -4)
(*.f64 J #s(literal -4 binary64))
-4
#s(literal -4 binary64)
(* (cos (* 1/2 K)) (/ 1 (/ -1/2 J)))
(/.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(cos (* 1/2 K))
(cos.f64 (*.f64 K #s(literal 1/2 binary64)))
(* 1/2 K)
(*.f64 K #s(literal 1/2 binary64))
1/2
#s(literal 1/2 binary64)
K
(/ 1 (/ -1/2 J))
(/.f64 J #s(literal -1/2 binary64))
1
#s(literal 1 binary64)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
-1/2
#s(literal -1/2 binary64)
J
(/ (* (* J (* J -4)) (/ (cos (/ K 2)) J)) 2)
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(* (* J (* J -4)) (/ (cos (/ K 2)) J))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/4 binary64) J))
(* J (* J -4))
(.f64 J (.f64 J #s(literal -4 binary64)))
J
(* J -4)
(*.f64 J #s(literal -4 binary64))
-4
#s(literal -4 binary64)
(/ (cos (/ K 2)) J)
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)
(cos (/ K 2))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/ K 2)
(/.f64 K #s(literal 2 binary64))
K
2
#s(literal 2 binary64)

localize236.0ms (2.3%)

Localize:

Found 17 expressions of interest:

New	Metric	Score	Program
✓	accuracy	100.0%	(*.f64 J #s(literal -4 binary64))
✓	accuracy	100.0%	(cos.f64 (/.f64 K #s(literal 2 binary64)))
✓	accuracy	99.8%	(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)
✓	accuracy	55.8%	(.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
✓	accuracy	100.0%	(*.f64 #s(literal 1/2 binary64) K)
✓	accuracy	100.0%	(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
✓	accuracy	99.8%	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J)))
✓	accuracy	99.7%	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J))
✓	accuracy	100.0%	(*.f64 J #s(literal 2 binary64))
✓	accuracy	100.0%	(*.f64 J #s(literal -4 binary64))
✓	accuracy	99.7%	(/.f64 #s(literal 1 binary64) (/.f64 (.f64 J #s(literal 2 binary64)) (.f64 J (*.f64 J #s(literal -4 binary64)))))
✓	accuracy	55.8%	(/.f64 (.f64 J #s(literal 2 binary64)) (.f64 J (*.f64 J #s(literal -4 binary64))))
✓	accuracy	100.0%	(-.f64 #s(literal 0 binary64) U)
✓	accuracy	100.0%	(cos.f64 (/.f64 K #s(literal 2 binary64)))
✓	accuracy	99.8%	(/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))
✓	accuracy	99.7%	(/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))) (*.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
✓	accuracy	85.6%	(.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))) (*.f64 #s(literal -2 binary64) J))

Results

188.0ms

256×

valid

Compiler

Compiled 191 to 34 computations (82.2% saved)

Precisions

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

ival-mult: 33.0ms (38.1% of total)

ival-div: 24.0ms (27.7% of total)

compiled-spec: 12.0ms (13.8% of total)

ival-cos: 11.0ms (12.7% of total)

ival-sqrt: 2.0ms (2.3% of total)

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

ival-sub: 1.0ms (1.2% of total)

const: 1.0ms (1.2% of total)

backward-pass: 0.0ms (0% of total)

series17.0ms (0.2%)

Counts

19 → 336

Calls

Call 1

Inputs
#<alt (/ (* (sqrt (+ (* 1 1) (* (/ U (* 2 J)) (/ U (* 2 J))))) (* -2 J)) (/ 1 (cos (/ K 2))))>
#<alt (* (sqrt (+ (* 1 1) (* (/ U (* 2 J)) (/ U (* 2 J))))) (* -2 J))>
#<alt (sqrt (+ (* 1 1) (* (/ U (* 2 J)) (/ U (* 2 J)))))>
#<alt (/ U (* 2 J))>
#<alt (- 0 U)>
#<alt (/ (* J 2) (* J (* J -4)))>
#<alt (/ 1 (/ (* J 2) (* J (* J -4))))>
#<alt (* J 2)>
#<alt (* J (* J -4))>
#<alt (/ 1 (/ -1/2 J))>
#<alt (* (cos (* 1/2 K)) (/ 1 (/ -1/2 J)))>
#<alt (cos (* 1/2 K))>
#<alt (* 1/2 K)>
#<alt (* (* J (* J -4)) (/ (cos (/ K 2)) J))>
#<alt (/ (* (* J (* J -4)) (/ (cos (/ K 2)) J)) 2)>
#<alt (* J -4)>
#<alt (/ 1 (cos (/ K 2)))>
#<alt (cos (/ K 2))>
#<alt (/ (cos (/ K 2)) J)>

Outputs
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) J)))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (+ (* -1/4 (/ (cos (* 1/2 K)) J)) (* 1/64 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 3))))))>
#<alt (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (+ (* -1/4 (/ (cos (* 1/2 K)) J)) (* (pow U 2) (+ (* -1/512 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 5))) (* 1/64 (/ (cos (* 1/2 K)) (pow J 3))))))))>
#<alt (* -1 (* U (cos (* 1/2 K))))>
#<alt (* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (* -1 (cos (* 1/2 K)))))>
#<alt (* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4))))))>
#<alt (* U (+ (* -4 (/ (* (pow J 6) (cos (* 1/2 K))) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4)))))))>
#<alt (* U (cos (* 1/2 K)))>
#<alt (* -1 (* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (* -1 (cos (* 1/2 K))))))>
#<alt (* -1 (* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4)))))))>
#<alt (* -1 (* U (+ (* -4 (/ (* (pow J 6) (cos (* 1/2 K))) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4))))))))>
#<alt (* -1 (* U (cos (* 1/2 K))))>
#<alt (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) U)) (* -1 (* U (cos (* 1/2 K)))))>
#<alt (+ (* -1 (* U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -2 (/ (cos (* 1/2 K)) U)) (* 2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 3))))))>
#<alt (+ (* -1 (* U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -2 (/ (cos (* 1/2 K)) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 5))) (* 2 (/ (cos (* 1/2 K)) (pow U 3))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2)))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))))))>
#<alt (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (+ (* -1/512 (/ (* (pow U 6) (cos (* 1/2 K))) (pow J 6))) (* 1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4)))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -1 (* J (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K))))))>
#<alt (* -1 (* J (+ (* -1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))) (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K)))))))>
#<alt (* -1 (* J (+ (* -1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))) (+ (* 1/512 (/ (* (pow U 6) (cos (* 1/2 K))) (pow J 6))) (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K))))))))>
#<alt (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/4 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -1/192 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/4 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))>
#<alt (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* 1/4 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -1/192 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/23040 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -2 J)>
#<alt (+ (* -2 J) (* -1/4 (/ (pow U 2) J)))>
#<alt (+ (* -2 J) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (pow J 3))) (* 1/4 (/ 1 J)))))>
#<alt (+ (* -2 J) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (pow J 5))) (* 1/64 (/ 1 (pow J 3))))) (* 1/4 (/ 1 J)))))>
#<alt (* -1 U)>
#<alt (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))>
#<alt (* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1))>
#<alt (* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1))>
#<alt U>
#<alt (* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1)))>
#<alt (* -1 (* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1)))>
#<alt (* -1 (* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1)))>
#<alt (* -1 U)>
#<alt (+ (* -2 (/ (pow J 2) U)) (* -1 U))>
#<alt (+ (* -1 U) (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 3))) (* 2 (/ 1 U)))))>
#<alt (+ (* -1 U) (* (pow J 2) (- (* (pow J 2) (+ (* -4 (/ (pow J 2) (pow U 5))) (* 2 (/ 1 (pow U 3))))) (* 2 (/ 1 U)))))>
#<alt (* -2 J)>
#<alt (* J (- (* -1/4 (/ (pow U 2) (pow J 2))) 2))>
#<alt (* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (* 1/64 (/ (pow U 4) (pow J 4)))) 2))>
#<alt (* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (+ (* -1/512 (/ (pow U 6) (pow J 6))) (* 1/64 (/ (pow U 4) (pow J 4))))) 2))>
#<alt (* -2 J)>
#<alt (* -1 (* J (+ 2 (* 1/4 (/ (pow U 2) (pow J 2))))))>
#<alt (* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (* 1/4 (/ (pow U 2) (pow J 2)))))))>
#<alt (* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (+ (* 1/512 (/ (pow U 6) (pow J 6))) (* 1/4 (/ (pow U 2) (pow J 2))))))))>
#<alt 1>
#<alt (+ 1 (* 1/8 (/ (pow U 2) (pow J 2))))>
#<alt (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (pow J 4))) (* 1/8 (/ 1 (pow J 2))))))>
#<alt (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (pow J 6))) (* 1/128 (/ 1 (pow J 4))))) (* 1/8 (/ 1 (pow J 2))))))>
#<alt (* 1/2 (/ U J))>
#<alt (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))>
#<alt (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))>
#<alt (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))>
#<alt (* -1/2 (/ U J))>
#<alt (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))>
#<alt (* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))>
#<alt (* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))>
#<alt (* 1/2 (/ U J))>
#<alt (/ (+ (* 1/2 U) (/ (pow J 2) U)) J)>
#<alt (/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (pow J 2) (pow U 3))) (/ 1 U)))) J)>
#<alt (/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 5))) (/ 1 (pow U 3)))) (/ 1 U)))) J)>
#<alt 1>
#<alt (+ 1 (* 1/8 (/ (pow U 2) (pow J 2))))>
#<alt (+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (* 1/8 (/ (pow U 2) (pow J 2)))))>
#<alt (+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (+ (* 1/1024 (/ (pow U 6) (pow J 6))) (* 1/8 (/ (pow U 2) (pow J 2))))))>
#<alt 1>
#<alt (+ 1 (* 1/8 (/ (pow U 2) (pow J 2))))>
#<alt (+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (* 1/8 (/ (pow U 2) (pow J 2)))))>
#<alt (+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (+ (* 1/1024 (/ (pow U 6) (pow J 6))) (* 1/8 (/ (pow U 2) (pow J 2))))))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* 1/2 (/ U J))>
#<alt (* -1 U)>
#<alt (* -1 U)>
#<alt (* -1 U)>
#<alt (* -1 U)>
#<alt (* -1 U)>
#<alt (* -1 U)>
#<alt (* -1 U)>
#<alt (* -1 U)>
#<alt (* -1 U)>
#<alt (* -1 U)>
#<alt (* -1 U)>
#<alt (* -1 U)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (/ -1/2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* 2 J)>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -4 (pow J 2))>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (* -2 J)>
#<alt (+ (* -2 J) (* 1/4 (* J (pow K 2))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt 1>
#<alt (+ 1 (* -1/8 (pow K 2)))>
#<alt (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))>
#<alt (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* 1/2 K)>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 J)>
#<alt (+ (* -4 J) (* 1/2 (* J (pow K 2))))>
#<alt (+ (* -4 J) (* (pow K 2) (+ (* -1/96 (* J (pow K 2))) (* 1/2 J))))>
#<alt (+ (* -4 J) (* (pow K 2) (+ (* 1/2 J) (* (pow K 2) (+ (* -1/96 J) (* 1/11520 (* J (pow K 2))))))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -4 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 J)>
#<alt (+ (* -2 J) (* 1/4 (* J (pow K 2))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))>
#<alt (+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -2 (* J (cos (* 1/2 K))))>
#<alt (* -4 J)>
#<alt (* -4 J)>
#<alt (* -4 J)>
#<alt (* -4 J)>
#<alt (* -4 J)>
#<alt (* -4 J)>
#<alt (* -4 J)>
#<alt (* -4 J)>
#<alt (* -4 J)>
#<alt (* -4 J)>
#<alt (* -4 J)>
#<alt (* -4 J)>
#<alt 1>
#<alt (+ 1 (* 1/8 (pow K 2)))>
#<alt (+ 1 (* (pow K 2) (+ 1/8 (* 5/384 (pow K 2)))))>
#<alt (+ 1 (* (pow K 2) (+ 1/8 (* (pow K 2) (+ 5/384 (* 61/46080 (pow K 2)))))))>
#<alt (/ 1 (cos (* 1/2 K)))>
#<alt (/ 1 (cos (* 1/2 K)))>
#<alt (/ 1 (cos (* 1/2 K)))>
#<alt (/ 1 (cos (* 1/2 K)))>
#<alt (/ 1 (cos (* 1/2 K)))>
#<alt (/ 1 (cos (* 1/2 K)))>
#<alt (/ 1 (cos (* 1/2 K)))>
#<alt (/ 1 (cos (* 1/2 K)))>
#<alt 1>
#<alt (+ 1 (* -1/8 (pow K 2)))>
#<alt (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))>
#<alt (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (cos (* 1/2 K))>
#<alt (/ 1 J)>
#<alt (+ (* -1/8 (/ (pow K 2) J)) (/ 1 J))>
#<alt (+ (* (pow K 2) (- (* 1/384 (/ (pow K 2) J)) (* 1/8 (/ 1 J)))) (/ 1 J))>
#<alt (+ (* (pow K 2) (- (* (pow K 2) (+ (* -1/46080 (/ (pow K 2) J)) (* 1/384 (/ 1 J)))) (* 1/8 (/ 1 J)))) (/ 1 J))>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>
#<alt (/ (cos (* 1/2 K)) J)>

Calls

84 calls:

Time	Variable		Point	Expression
0.0ms	J	@	0	(* (sqrt (+ (* 1 1) (* (/ U (* 2 J)) (/ U (* 2 J))))) (* -2 J))
0.0ms	K	@	inf	(/ 1 (cos (/ K 2)))
0.0ms	U	@	0	(* (sqrt (+ (* 1 1) (* (/ U (* 2 J)) (/ U (* 2 J))))) (* -2 J))
0.0ms	K	@	-inf	(/ 1 (cos (/ K 2)))
0.0ms	U	@	inf	(* (sqrt (+ (* 1 1) (* (/ U (* 2 J)) (/ U (* 2 J))))) (* -2 J))

rewrite338.0ms (3.3%)

Algorithm

1×	batch-egg-rewrite

Rules

3910×	`-lowering-.f32`
3910×	`-lowering-.f64`
3874×	`/-lowering-/.f32`
3874×	`/-lowering-/.f64`
952×	`+-lowering-+.f64`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	36	132
1	187	109
2	1305	109
0	8643	109

Stop Event

1×	iter limit
1×	node limit

Counts

19 → 919

Calls

Call 1

Inputs
(/ (* (sqrt (+ (* 1 1) (* (/ U (* 2 J)) (/ U (* 2 J))))) (* -2 J)) (/ 1 (cos (/ K 2))))
(* (sqrt (+ (* 1 1) (* (/ U (* 2 J)) (/ U (* 2 J))))) (* -2 J))
(sqrt (+ (* 1 1) (* (/ U (* 2 J)) (/ U (* 2 J)))))
(/ U (* 2 J))
(- 0 U)
(/ (* J 2) (* J (* J -4)))
(/ 1 (/ (* J 2) (* J (* J -4))))
(* J 2)
(* J (* J -4))
(/ 1 (/ -1/2 J))
(* (cos (* 1/2 K)) (/ 1 (/ -1/2 J)))
(cos (* 1/2 K))
(* 1/2 K)
(* (* J (* J -4)) (/ (cos (/ K 2)) J))
(/ (* (* J (* J -4)) (/ (cos (/ K 2)) J)) 2)
(* J -4)
(/ 1 (cos (/ K 2)))
(cos (/ K 2))
(/ (cos (/ K 2)) J)

Outputs
(exp.f64 (.f64 (log.f64 (/.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal 1/2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal 1/2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(neg.f64 (.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal 1/2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(neg.f64 (.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(neg.f64 (.f64 #s(literal 1 binary64) (.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal 1/2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(neg.f64 (/.f64 (.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal 1/2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J)))))
(/.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal -1/2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 #s(literal -1/2 binary64) J)))
(/.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))))))
(/.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal 1/2 binary64) J)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J)))) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal 1/2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(/.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 1 binary64))
(/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(pow.f64 (/.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J)))) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)))
(.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal -1/2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal -1/2 binary64) J)))
(.f64 #s(literal -1 binary64) (.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal 1/2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal 1/2 binary64) J)))
(.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal 1/2 binary64) J)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 J #s(literal -1/2 binary64)) (.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 J #s(literal -1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64)))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -2 binary64)) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal -1/2 binary64)))
(.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 1 binary64))
(.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))) #s(literal -1 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)))
(.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -2 binary64))) #s(literal -1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J)))) #s(literal -1/2 binary64)))
(.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -2 binary64)))) J)
(exp.f64 (+.f64 (.f64 (log1p.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64))))) #s(literal 1/2 binary64)) (*.f64 (log.f64 (/.f64 #s(literal -1/2 binary64) J)) #s(literal -1 binary64))))
(exp.f64 (+.f64 (.f64 (log.f64 (/.f64 #s(literal -1/2 binary64) J)) #s(literal -1 binary64)) (.f64 (log1p.f64 (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64))))) #s(literal 1/2 binary64))))
(-.f64 #s(literal 0 binary64) (/.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal 1/2 binary64) J)))
(neg.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal 1/2 binary64) J)))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 #s(literal -1/2 binary64) J)))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 #s(literal -1/2 binary64) J)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1/2 binary64) J) (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))))))
(/.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal -1/2 binary64) J)) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 #s(literal -1/2 binary64) J))))
(/.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal 1/2 binary64) J)) #s(literal -1 binary64))
(/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (/.f64 J (/.f64 U #s(literal 2 binary64))))) (.f64 (/.f64 #s(literal -1/2 binary64) J) (sqrt.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (+.f64 (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64)))) #s(literal -1 binary64)))))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) (.f64 U U)) (.f64 (.f64 (.f64 J J) (.f64 J J)) #s(literal 16 binary64))))) (.f64 (/.f64 #s(literal -1/2 binary64) J) (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64))))))))
(/.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -1 binary64)) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 (neg.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -1 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))))) (/.f64 #s(literal -1/2 binary64) J))
(pow.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 #s(literal -1/2 binary64) J)) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal -1/2 binary64) J)))
(.f64 J (.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -2 binary64)))
(.f64 (/.f64 J #s(literal 1/2 binary64)) (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))))
(.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 J #s(literal -1/2 binary64)))
(.f64 #s(literal -2 binary64) (.f64 J (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J)))))
(.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal -1/2 binary64) J)) #s(literal 1 binary64))
(.f64 #s(literal -1 binary64) (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal 1/2 binary64) J)))
(.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal 1/2 binary64) J)) #s(literal -1 binary64))
(.f64 (/.f64 J #s(literal -1/2 binary64)) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))))
(.f64 (/.f64 J #s(literal -1/2 binary64)) (neg.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))))))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -2 binary64)) J)
(.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 J #s(literal 1/2 binary64)))
(.f64 (.f64 #s(literal 2 binary64) (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J)))) (-.f64 #s(literal 0 binary64) J))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) J) #s(literal -2 binary64))
(.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -1 binary64)) (/.f64 J #s(literal 1/2 binary64)))
(.f64 (.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64))))) #s(literal 1/4 binary64)) (pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1/2 binary64))) (.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64))))) #s(literal 1/4 binary64)) (pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1/2 binary64))))
(.f64 (.f64 (pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1/2 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64))))) #s(literal 1/4 binary64))) (.f64 (pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1/2 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64))))) #s(literal 1/4 binary64))))
(.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))))) (/.f64 J #s(literal -1/2 binary64)))
(.f64 (neg.f64 (.f64 #s(literal 2 binary64) (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))))) J)
(.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -1 binary64)) (/.f64 J #s(literal 1/2 binary64)))
(.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal 2 binary64)) (*.f64 J #s(literal -4 binary64)))
(.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 J #s(literal 1/2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))
(.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -2 binary64)) (*.f64 J #s(literal 4 binary64)))
(.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -1/2 binary64)) J)
(.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal 1/2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 J #s(literal -1/2 binary64))) (.f64 J (.f64 J #s(literal 4 binary64))))
(.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 #s(literal 2 binary64) J)) #s(literal -4 binary64))
(.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 (/.f64 J #s(literal 1/2 binary64)) (*.f64 J #s(literal -4 binary64)))) J)
(.f64 (/.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 (/.f64 J #s(literal 1/2 binary64)) (*.f64 J J))) #s(literal -4 binary64))
(.f64 (/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -1 binary64)) #s(literal 1 binary64)) (/.f64 J #s(literal 1/2 binary64)))
(.f64 (/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 J #s(literal 4 binary64)))
(.f64 (/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -1 binary64)) (/.f64 J #s(literal 1/2 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64))))
(.f64 (/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -1 binary64)) #s(literal -2 binary64)) (.f64 J #s(literal -4 binary64)))
(.f64 (/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -1 binary64)) #s(literal -1/2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) J)
(.f64 (/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -1 binary64)) #s(literal -1 binary64)) (/.f64 J #s(literal -1/2 binary64)))
(.f64 (/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -1 binary64)) (/.f64 J #s(literal -1/2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(.f64 (/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) J)) #s(literal 2 binary64))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))) #s(literal 1 binary64)) (/.f64 J #s(literal 1/2 binary64)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))) #s(literal 2 binary64)) (*.f64 J #s(literal 4 binary64)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 J #s(literal 1/2 binary64))) (.f64 J (.f64 J #s(literal 4 binary64))))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))) #s(literal -2 binary64)) (*.f64 J #s(literal -4 binary64)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))) #s(literal -1/2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))) #s(literal 1/2 binary64)) J)
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 J #s(literal -1/2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))) (/.f64 #s(literal 1 binary64) J)) #s(literal 2 binary64))
(exp.f64 (.f64 (log1p.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64))))) #s(literal 1/2 binary64)))
(hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J)))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (+.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) #s(literal -1 binary64))))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (/.f64 J (/.f64 U #s(literal 2 binary64)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) (.f64 U U)) (.f64 (.f64 (.f64 J J) (.f64 J J)) #s(literal 16 binary64)))))))
(/.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal 1 binary64))
(/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (/.f64 J (/.f64 U #s(literal 2 binary64))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (+.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) #s(literal -1 binary64))))))
(/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (/.f64 J (/.f64 U #s(literal 2 binary64))))) (sqrt.f64 (+.f64 (/.f64 (.f64 (.f64 U U) (.f64 U U)) (.f64 (.f64 (.f64 J J) (.f64 J J)) #s(literal 16 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64))))))))
(/.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (/.f64 J (/.f64 U #s(literal 2 binary64))))) (.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (+.f64 (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64)))) #s(literal -1 binary64)))))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) (.f64 U U)) (.f64 (.f64 (.f64 J J) (.f64 J J)) #s(literal 16 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) (.f64 U U)) (.f64 (.f64 (.f64 J J) (.f64 J J)) #s(literal 16 binary64))))) (.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64))))))))
(/.f64 (-.f64 #s(literal 0 binary64) (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J)))) #s(literal -1 binary64))
(/.f64 (sqrt.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 U U) (.f64 U U)) (.f64 (.f64 (.f64 J J) (.f64 J J)) #s(literal 16 binary64))) (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 U U)))))) (sqrt.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (+.f64 (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64)))) #s(literal -1 binary64)))))))
(/.f64 (sqrt.f64 (+.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 U U) (.f64 U U)) (.f64 (.f64 (.f64 J J) (.f64 J J)) #s(literal 16 binary64))))) (sqrt.f64 (+.f64 #s(literal -1 binary64) (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))))))
(/.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (.f64 U U) (.f64 U U)) (.f64 (.f64 (.f64 J J) (.f64 J J)) #s(literal 16 binary64))) #s(literal -1 binary64))) (sqrt.f64 (+.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) #s(literal -1 binary64))))
(/.f64 (neg.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (/.f64 J (/.f64 U #s(literal 2 binary64)))))) (neg.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (+.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) #s(literal -1 binary64)))))))
(/.f64 (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) (.f64 U U)) (.f64 (.f64 (.f64 J J) (.f64 J J)) #s(literal 16 binary64)))))) (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64))))))))
(pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64))))) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64))))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64))))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64)))))) #s(literal 1/4 binary64))
(pow.f64 (exp.f64 (log1p.f64 (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64)))))) #s(literal 1/2 binary64))
(.f64 #s(literal 1 binary64) (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))))
(.f64 (hypot.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal 1 binary64))
(.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (/.f64 J (/.f64 U #s(literal 2 binary64))))) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (+.f64 (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64)))) #s(literal -1 binary64))))) #s(literal 1/2 binary64)))
(.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (/.f64 J (/.f64 U #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (+.f64 (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64)))) #s(literal -1 binary64)))))))
(.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (/.f64 J (/.f64 U #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (+.f64 (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64)))) #s(literal -1 binary64)))))))
(.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) (.f64 U U)) (.f64 (.f64 (.f64 J J) (.f64 J J)) #s(literal 16 binary64))))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64)))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) (.f64 U U)) (.f64 (.f64 (.f64 J J) (.f64 J J)) #s(literal 16 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64))))))))
(.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) (.f64 U U)) (.f64 (.f64 (.f64 J J) (.f64 J J)) #s(literal 16 binary64))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64))))))))
(.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64))))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 U U) (.f64 J (*.f64 J #s(literal 4 binary64))))) #s(literal 1/4 binary64)))
(+.f64 (*.f64 U (/.f64 #s(literal 1/2 binary64) J)) #s(literal 0 binary64))
(+.f64 (.f64 U (/.f64 #s(literal 1/2 binary64) J)) (.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal 0 binary64)))
(+.f64 #s(literal 0 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J)))
(+.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal 0 binary64)) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))
(exp.f64 (.f64 (log.f64 (.f64 U (/.f64 #s(literal 1/2 binary64) J))) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 J (/.f64 U #s(literal 2 binary64)))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (*.f64 U (/.f64 #s(literal -1/2 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (/.f64 J #s(literal -1/2 binary64)) (.f64 U U))) (*.f64 U (/.f64 #s(literal -1/2 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 (/.f64 J #s(literal -1/2 binary64)) U)) (.f64 U (/.f64 #s(literal -1/2 binary64) J)))
(neg.f64 (*.f64 U (/.f64 #s(literal -1/2 binary64) J)))
(neg.f64 (.f64 (.f64 U (/.f64 #s(literal -1/2 binary64) J)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 J (/.f64 U #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (/.f64 J #s(literal -1/2 binary64)) (.f64 U U)) (-.f64 #s(literal 0 binary64) (.f64 U (.f64 U U)))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (/.f64 J #s(literal -1/2 binary64)) U) (-.f64 #s(literal 0 binary64) (.f64 U U))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (/.f64 U J)))
(/.f64 U (/.f64 J #s(literal 1/2 binary64)))
(/.f64 #s(literal -1 binary64) (/.f64 (/.f64 J #s(literal -1/2 binary64)) U))
(/.f64 (.f64 U U) (neg.f64 (.f64 (/.f64 J #s(literal -1/2 binary64)) U)))
(/.f64 (.f64 U U) (.f64 (/.f64 J #s(literal -1/2 binary64)) (-.f64 #s(literal 0 binary64) U)))
(/.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 J #s(literal -1/2 binary64)))
(/.f64 (.f64 U (.f64 U U)) (.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 U U)))
(/.f64 (.f64 U (.f64 U U)) (neg.f64 (.f64 (/.f64 J #s(literal -1/2 binary64)) (.f64 U U))))
(/.f64 (.f64 U (.f64 U U)) (.f64 (/.f64 J #s(literal -1/2 binary64)) (-.f64 #s(literal 0 binary64) (.f64 U U))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 U (.f64 U U))) (.f64 (/.f64 J #s(literal -1/2 binary64)) (.f64 U U)))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 U U)) (.f64 (/.f64 J #s(literal -1/2 binary64)) U))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 U U)) (.f64 (/.f64 J #s(literal 1/2 binary64)) (-.f64 #s(literal 0 binary64) U)))
(/.f64 (/.f64 U #s(literal 2 binary64)) J)
(/.f64 (/.f64 (.f64 U U) (.f64 #s(literal -4 binary64) (.f64 J J))) (+.f64 #s(literal 0 binary64) (.f64 U (/.f64 #s(literal -1/2 binary64) J))))
(/.f64 (/.f64 U #s(literal -2 binary64)) (-.f64 #s(literal 0 binary64) J))
(/.f64 (/.f64 U J) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 U (.f64 U U)) (.f64 U (.f64 U U)))) (.f64 (.f64 (/.f64 J #s(literal -1/2 binary64)) (.f64 U U)) (.f64 U (.f64 U U))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 U (.f64 U U)) (.f64 U (.f64 U U)))) (.f64 (.f64 (/.f64 J #s(literal -1/2 binary64)) U) (.f64 (.f64 U U) (.f64 U U))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 U (.f64 U U)) (.f64 (.f64 U (.f64 U U)) (.f64 U (.f64 U U))))) (.f64 (.f64 (/.f64 J #s(literal -1/2 binary64)) (.f64 U U)) (.f64 (.f64 U (.f64 U U)) (.f64 U (.f64 U U)))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 U U) (.f64 U U))) (.f64 (.f64 (/.f64 J #s(literal -1/2 binary64)) U) (.f64 U U)))
(/.f64 (neg.f64 (/.f64 U J)) #s(literal -2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 0 binary64) (/.f64 J #s(literal -1/2 binary64))) (.f64 (/.f64 J #s(literal -1/2 binary64)) U)) (.f64 J (.f64 J #s(literal 4 binary64))))
(/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (.f64 U (/.f64 #s(literal -1/2 binary64) J)) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (+.f64 (/.f64 (.f64 U U) (.f64 J (.f64 J #s(literal 4 binary64)))) (.f64 #s(literal 0 binary64) (.f64 U (/.f64 #s(literal -1/2 binary64) J))))))
(pow.f64 (*.f64 U (/.f64 #s(literal 1/2 binary64) J)) #s(literal 1 binary64))
(pow.f64 (/.f64 J (/.f64 U #s(literal 2 binary64))) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (.f64 U (/.f64 #s(literal 1/2 binary64) J)))
(*.f64 U (/.f64 #s(literal 1/2 binary64) J))
(*.f64 U (pow.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal 1 binary64)))
(.f64 (.f64 U (/.f64 #s(literal 1/2 binary64) J)) #s(literal 1 binary64))
(*.f64 (/.f64 #s(literal -1/2 binary64) J) (-.f64 #s(literal 0 binary64) U))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 J U) #s(literal -1 binary64)))
(.f64 #s(literal -1 binary64) (.f64 U (/.f64 #s(literal -1/2 binary64) J)))
(*.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (-.f64 #s(literal 0 binary64) (.f64 U (.f64 U U))) (/.f64 #s(literal 1 binary64) (.f64 (/.f64 J #s(literal -1/2 binary64)) (*.f64 U U))))
(*.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 U #s(literal 2 binary64)))
(*.f64 (/.f64 #s(literal 1/2 binary64) J) U)
(*.f64 (/.f64 #s(literal 1/2 binary64) J) (pow.f64 (/.f64 #s(literal 1 binary64) U) #s(literal -1 binary64)))
(.f64 (-.f64 #s(literal 0 binary64) (.f64 U U)) (/.f64 #s(literal 1 binary64) (*.f64 (/.f64 J #s(literal -1/2 binary64)) U)))
(*.f64 (/.f64 U #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) J))
(*.f64 (/.f64 U #s(literal -2 binary64)) (/.f64 #s(literal -1 binary64) J))
(*.f64 (/.f64 U J) #s(literal 1/2 binary64))
(.f64 (/.f64 U (.f64 J (*.f64 J #s(literal 4 binary64)))) (/.f64 J #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal 1 binary64)) U)
(*.f64 (pow.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 1 binary64)) (/.f64 #s(literal -1/2 binary64) J))
(*.f64 (pow.f64 (/.f64 U #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) J) #s(literal 1 binary64)))
(.f64 (pow.f64 (.f64 U (/.f64 #s(literal 1/2 binary64) J)) #s(literal 1/2 binary64)) (pow.f64 (*.f64 U (/.f64 #s(literal 1/2 binary64) J)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (/.f64 J (/.f64 U #s(literal 2 binary64))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 J (/.f64 U #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 1 binary64)) (/.f64 #s(literal -1/2 binary64) J))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) J) #s(literal -1/2 binary64))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) #s(literal -1 binary64)) (/.f64 #s(literal 1/2 binary64) J))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (.f64 J (*.f64 J #s(literal 4 binary64)))) (/.f64 J #s(literal -1/2 binary64)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 #s(literal 1 binary64) J)) (/.f64 #s(literal -1/2 binary64) (.f64 J J)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 #s(literal 1/2 binary64) J)) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64))) J)
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) U) (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) J)) #s(literal 2 binary64))
(+.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) U))
(+.f64 #s(literal 0 binary64) (*.f64 U #s(literal -1 binary64)))
(+.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 0 binary64))
(+.f64 (*.f64 U #s(literal -1 binary64)) #s(literal 0 binary64))
(-.f64 #s(literal 0 binary64) U)
(-.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 0 binary64))
(fma.f64 #s(literal -1 binary64) U #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (.f64 U (.f64 U U))) (/.f64 #s(literal 1 binary64) (*.f64 U U)) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 U U)) (/.f64 #s(literal 1 binary64) U) #s(literal 0 binary64))
(neg.f64 U)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) U)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) U)) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) U))))
(/.f64 (*.f64 U U) (-.f64 #s(literal 0 binary64) U))
(/.f64 (.f64 U (.f64 U U)) (-.f64 #s(literal 0 binary64) (*.f64 U U)))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 U (.f64 U U))) (*.f64 U U))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 U U)) U)
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 U (.f64 U U)) (.f64 U (.f64 U U)))) (.f64 (.f64 U U) (.f64 U (*.f64 U U))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 U (.f64 U U)) (.f64 U (.f64 U U)))) (.f64 U (.f64 (.f64 U U) (*.f64 U U))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 U (.f64 U U)) (.f64 (.f64 U (.f64 U U)) (.f64 U (.f64 U U))))) (.f64 (.f64 U U) (.f64 (.f64 U (.f64 U U)) (.f64 U (*.f64 U U)))))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 U U) (.f64 U U))) (.f64 U (*.f64 U U)))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 U U) (.f64 U (.f64 U U)))) (.f64 (.f64 U U) (*.f64 U U)))
(/.f64 (+.f64 (-.f64 #s(literal 0 binary64) (.f64 U (.f64 U U))) #s(literal 0 binary64)) (+.f64 (.f64 U U) (-.f64 #s(literal 0 binary64) (.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 0 binary64)))))
(pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) U)) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) U))
(*.f64 #s(literal -1 binary64) U)
(.f64 (.f64 U U) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) U)))
(*.f64 (-.f64 #s(literal 0 binary64) U) #s(literal 1 binary64))
(.f64 (.f64 U (.f64 U U)) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (.f64 U U))))
(.f64 (-.f64 #s(literal 0 binary64) (.f64 U (.f64 U U))) (/.f64 #s(literal 1 binary64) (.f64 U U)))
(.f64 (-.f64 #s(literal 0 binary64) (.f64 U U)) (/.f64 #s(literal 1 binary64) U))
(.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) U)) (.f64 U U))
(.f64 (/.f64 #s(literal 1 binary64) U) (-.f64 #s(literal 0 binary64) (.f64 U U)))
(.f64 (/.f64 #s(literal 1 binary64) (.f64 U U)) (-.f64 #s(literal 0 binary64) (.f64 U (.f64 U U))))
(.f64 (/.f64 (.f64 U U) (.f64 U (.f64 U U))) (-.f64 #s(literal 0 binary64) (*.f64 U U)))
(.f64 (/.f64 (.f64 U U) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) U)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (.f64 U U)) (-.f64 #s(literal 0 binary64) (*.f64 U U))) (-.f64 #s(literal 0 binary64) U))
(.f64 (/.f64 (.f64 U U) (-.f64 #s(literal 0 binary64) (*.f64 U U))) U)
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (.f64 U (.f64 U U))) (.f64 (.f64 U (.f64 U U)) (.f64 U (.f64 U U)))) (.f64 (.f64 U U) (*.f64 U U)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (.f64 U (.f64 U U))) (.f64 (.f64 U U) (.f64 U U))) (*.f64 U U))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (.f64 U (.f64 U U))) (-.f64 #s(literal 0 binary64) (.f64 (.f64 U U) (.f64 U U)))) (-.f64 #s(literal 0 binary64) (*.f64 U U)))
(.f64 (/.f64 (.f64 U (.f64 U U)) (-.f64 #s(literal 0 binary64) (.f64 (.f64 U (.f64 U U)) (.f64 U (.f64 U U))))) (.f64 (.f64 U U) (*.f64 U U)))
(.f64 (/.f64 (.f64 U (.f64 U U)) (-.f64 #s(literal 0 binary64) (.f64 (.f64 U U) (.f64 U U)))) (*.f64 U U))
(.f64 (/.f64 (.f64 U U) (*.f64 U U)) (-.f64 #s(literal 0 binary64) U))
(exp.f64 (*.f64 (log.f64 (/.f64 J #s(literal -1/2 binary64))) #s(literal -1 binary64)))
(exp.f64 (.f64 (.f64 (log.f64 (/.f64 #s(literal -1/2 binary64) J)) #s(literal -1 binary64)) #s(literal -1 binary64)))
(exp.f64 (neg.f64 (*.f64 (log.f64 (/.f64 #s(literal -1/2 binary64) J)) #s(literal -1 binary64))))
(-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1/2 binary64) J))
(-.f64 (/.f64 #s(literal 0 binary64) (.f64 J (.f64 J #s(literal 4 binary64)))) (/.f64 #s(literal 1/2 binary64) J))
(neg.f64 (/.f64 #s(literal 1/2 binary64) J))
(/.f64 #s(literal 1 binary64) (/.f64 J #s(literal -1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -4 binary64) (/.f64 #s(literal 2 binary64) J)))
(/.f64 #s(literal 1 binary64) (/.f64 J (/.f64 (/.f64 J #s(literal 1/2 binary64)) (*.f64 J #s(literal -4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -4 binary64) (/.f64 (/.f64 J #s(literal 1/2 binary64)) (*.f64 J J))))
(/.f64 #s(literal 2 binary64) (*.f64 J #s(literal -4 binary64)))
(/.f64 #s(literal 2 binary64) (neg.f64 (*.f64 J #s(literal 4 binary64))))
(/.f64 #s(literal 2 binary64) (.f64 #s(literal -1 binary64) (.f64 J #s(literal 4 binary64))))
(/.f64 J (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)))
(/.f64 J (.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) #s(literal -1/2 binary64)))
(/.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 #s(literal -4 binary64) (.f64 J J)))
(/.f64 #s(literal -2 binary64) (*.f64 J #s(literal 4 binary64)))
(/.f64 #s(literal -2 binary64) (.f64 #s(literal 1 binary64) (.f64 J #s(literal 4 binary64))))
(/.f64 #s(literal -2 binary64) (.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) J)))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 J (*.f64 J #s(literal 4 binary64)))))
(/.f64 #s(literal -1/2 binary64) J)
(/.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal 1 binary64))
(/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) J))
(/.f64 #s(literal -1 binary64) (/.f64 J #s(literal 1/2 binary64)))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) (/.f64 J #s(literal -1/2 binary64))))
(/.f64 (-.f64 #s(literal 0 binary64) J) (.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) #s(literal 1/2 binary64)))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) (.f64 J (.f64 J #s(literal 4 binary64))))
(/.f64 (/.f64 #s(literal 1 binary64) J) #s(literal -2 binary64))
(/.f64 (/.f64 #s(literal 1 binary64) J) (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal -1/2 binary64) (.f64 J J))))
(/.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal -1 binary64))
(/.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J)))))
(/.f64 (/.f64 #s(literal 2 binary64) J) #s(literal -4 binary64))
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)) (.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) J))
(/.f64 (/.f64 #s(literal -1 binary64) J) #s(literal 2 binary64))
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J) (.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) #s(literal 2 binary64)))
(/.f64 (/.f64 (/.f64 J #s(literal 1/2 binary64)) (*.f64 J #s(literal -4 binary64))) J)
(/.f64 (/.f64 (/.f64 J #s(literal 1/2 binary64)) (*.f64 J J)) #s(literal -4 binary64))
(/.f64 (neg.f64 (/.f64 #s(literal 2 binary64) J)) #s(literal 4 binary64))
(/.f64 (neg.f64 (/.f64 (/.f64 J #s(literal 1/2 binary64)) (*.f64 J #s(literal -4 binary64)))) (-.f64 #s(literal 0 binary64) J))
(/.f64 (neg.f64 (/.f64 (/.f64 J #s(literal 1/2 binary64)) (*.f64 J J))) #s(literal 4 binary64))
(pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal 1 binary64))
(pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J))
(.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (.f64 J #s(literal 4 binary64))))
(.f64 #s(literal 2 binary64) (/.f64 J (.f64 #s(literal -4 binary64) (*.f64 J J))))
(.f64 J (/.f64 #s(literal -1/2 binary64) (.f64 J J)))
(.f64 (/.f64 J #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))))
(.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (.f64 J #s(literal 4 binary64))))
(*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) J))
(*.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal 1 binary64))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal -1 binary64) J))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1/2 binary64) J))
(*.f64 (-.f64 #s(literal 0 binary64) J) (/.f64 (/.f64 #s(literal 1/2 binary64) J) J))
(.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 #s(literal -1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))))
(*.f64 (/.f64 #s(literal 1 binary64) J) #s(literal -1/2 binary64))
(.f64 (/.f64 #s(literal 1 binary64) J) (pow.f64 (/.f64 (.f64 J #s(literal -4 binary64)) (/.f64 J #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))) (/.f64 J #s(literal 1/2 binary64)))
(*.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal -1 binary64))
(.f64 (/.f64 #s(literal -1/2 binary64) (.f64 J J)) J)
(.f64 (/.f64 #s(literal -1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))) (/.f64 J #s(literal -1/2 binary64)))
(.f64 (/.f64 #s(literal 2 binary64) J) (/.f64 J (.f64 J #s(literal -4 binary64))))
(*.f64 (/.f64 #s(literal 2 binary64) J) #s(literal -1/4 binary64))
(.f64 (/.f64 J (.f64 J #s(literal -4 binary64))) (/.f64 #s(literal 2 binary64) J))
(.f64 (/.f64 #s(literal 2 binary64) (.f64 J J)) (/.f64 J #s(literal -4 binary64)))
(.f64 (/.f64 J (.f64 J J)) #s(literal -1/2 binary64))
(.f64 (/.f64 #s(literal -1 binary64) (.f64 J #s(literal 4 binary64))) #s(literal 2 binary64))
(*.f64 (/.f64 #s(literal -1 binary64) J) #s(literal 1/2 binary64))
(.f64 (/.f64 #s(literal 1 binary64) (.f64 J J)) (pow.f64 (/.f64 #s(literal -4 binary64) (/.f64 J #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(.f64 (/.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 J #s(literal -4 binary64))) (/.f64 #s(literal 1 binary64) J))
(.f64 (/.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 J J)) #s(literal -1/4 binary64))
(.f64 (/.f64 J (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal 2 binary64))
(*.f64 (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1/2 binary64)))
(.f64 (pow.f64 (/.f64 J #s(literal 2 binary64)) #s(literal -1 binary64)) (pow.f64 (/.f64 (.f64 J #s(literal -4 binary64)) J) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 (.f64 J #s(literal -4 binary64)) J) #s(literal -1 binary64)) (pow.f64 (/.f64 J #s(literal 2 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 (.f64 J J) #s(literal 2 binary64)) #s(literal -1 binary64)) (pow.f64 (/.f64 #s(literal -4 binary64) J) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 (.f64 J J) J) #s(literal -1 binary64)) #s(literal -1/2 binary64))
(*.f64 (pow.f64 (pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) J) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (*.f64 J #s(literal 4 binary64))))
(.f64 (pow.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J #s(literal -4 binary64))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) J))
(.f64 (pow.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J J)) #s(literal -1 binary64)) #s(literal -1/4 binary64))
(+.f64 #s(literal 0 binary64) (/.f64 J #s(literal -1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -1/2 binary64) J)) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 J #s(literal 1/2 binary64)))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J)))) (/.f64 J #s(literal 1/2 binary64)))
(neg.f64 (/.f64 J #s(literal 1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) (*.f64 J J)) (/.f64 #s(literal 1 binary64) J)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (/.f64 #s(literal 1/2 binary64) J)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J)))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) J))
(/.f64 #s(literal 2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 J #s(literal 4 binary64))))
(/.f64 J #s(literal -1/2 binary64))
(/.f64 (/.f64 J #s(literal 1/2 binary64)) #s(literal -1 binary64))
(/.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 J (*.f64 J #s(literal 4 binary64)))))
(/.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) J))
(/.f64 #s(literal -2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 J #s(literal -4 binary64))))
(/.f64 (*.f64 J #s(literal -4 binary64)) #s(literal 2 binary64))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (/.f64 J #s(literal 1/2 binary64)))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (+.f64 #s(literal 0 binary64) (/.f64 J #s(literal 1/2 binary64))))
(/.f64 #s(literal -1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))) (-.f64 #s(literal 0 binary64) J)))
(/.f64 (/.f64 #s(literal -1/2 binary64) J) (/.f64 #s(literal -1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))))
(/.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))) J))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 J #s(literal -1/2 binary64)))
(/.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 1/2 binary64))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1 binary64))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal -4 binary64) (*.f64 J J))))
(/.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 #s(literal -1/2 binary64) (*.f64 J J)))
(/.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))))
(/.f64 (*.f64 J #s(literal 4 binary64)) #s(literal -2 binary64))
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)) J)
(/.f64 (/.f64 #s(literal -1 binary64) J) (/.f64 (/.f64 #s(literal 1/2 binary64) J) J))
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J) #s(literal 2 binary64))
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J))
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J)) #s(literal -2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 J (.f64 J #s(literal 4 binary64))))) (+.f64 #s(literal 0 binary64) (+.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 #s(literal 0 binary64) (/.f64 J #s(literal 1/2 binary64))))))
(pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1 binary64))
(pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal -1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (exp.f64 (log.f64 (/.f64 #s(literal -1/2 binary64) J))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 J #s(literal -1/2 binary64)))
(*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) J))
(*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) J) #s(literal -1 binary64)))
(*.f64 J #s(literal -2 binary64))
(.f64 J (/.f64 (.f64 J #s(literal -4 binary64)) (/.f64 J #s(literal 1/2 binary64))))
(*.f64 (/.f64 J #s(literal 1/2 binary64)) #s(literal -1 binary64))
(*.f64 #s(literal -2 binary64) J)
(.f64 (.f64 J #s(literal -4 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) (/.f64 #s(literal 1/2 binary64) J))
(.f64 #s(literal -1/2 binary64) (.f64 J #s(literal 4 binary64)))
(.f64 (/.f64 #s(literal -1/2 binary64) J) (.f64 J (*.f64 J #s(literal 4 binary64))))
(.f64 #s(literal 1/2 binary64) (.f64 J #s(literal -4 binary64)))
(.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (.f64 J #s(literal 4 binary64))) #s(literal -1 binary64)))
(.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 J (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal -1 binary64)))
(*.f64 #s(literal -1 binary64) (/.f64 J #s(literal 1/2 binary64)))
(.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(*.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 2 binary64))
(*.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1 binary64))
(.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(.f64 (.f64 J J) (/.f64 #s(literal -4 binary64) (/.f64 J #s(literal 1/2 binary64))))
(*.f64 (/.f64 J #s(literal 2 binary64)) #s(literal -4 binary64))
(.f64 (/.f64 J #s(literal 2 binary64)) (/.f64 (.f64 J #s(literal -4 binary64)) J))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) J) (/.f64 J #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J J) #s(literal 2 binary64)) (/.f64 #s(literal -4 binary64) J))
(.f64 (/.f64 (.f64 J J) J) #s(literal -2 binary64))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) J))
(*.f64 (pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1/2 binary64)) (pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1/2 binary64)))
(.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) J) (*.f64 J #s(literal -4 binary64)))
(.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J #s(literal -4 binary64))) J)
(.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J J)) #s(literal -4 binary64))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) J) #s(literal 1/2 binary64))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) (/.f64 J #s(literal 1/2 binary64))) J)
(.f64 (pow.f64 (/.f64 #s(literal 2 binary64) J) #s(literal -1 binary64)) (pow.f64 (/.f64 J (.f64 J #s(literal -4 binary64))) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 J (.f64 J #s(literal -4 binary64))) #s(literal -1 binary64)) (pow.f64 (/.f64 #s(literal 2 binary64) J) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (.f64 J J)) #s(literal -1 binary64)) (pow.f64 (/.f64 J #s(literal -4 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 J (.f64 J J)) #s(literal -1 binary64)) #s(literal -2 binary64))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) #s(literal 1 binary64)) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 J J))) #s(literal -4 binary64))
(*.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) J)) #s(literal 2 binary64))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) J) #s(literal -1/2 binary64))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) (/.f64 J #s(literal 1/2 binary64)))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64)))) (/.f64 J #s(literal -1/2 binary64)))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) J)) (/.f64 #s(literal -1/2 binary64) (.f64 J J)))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1/2 binary64) J)) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64))) J)
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) J)) #s(literal 2 binary64))
(*.f64 (/.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 #s(literal -1/2 binary64) J)) J)
(.f64 (/.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 #s(literal 2 binary64) J)) (.f64 J #s(literal -4 binary64)))
(.f64 (/.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 #s(literal 2 binary64) (.f64 J J))) #s(literal -4 binary64))
(.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 #s(literal 1 binary64) J)) (.f64 J #s(literal -4 binary64)))
(.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 #s(literal -1 binary64) (.f64 J #s(literal 4 binary64)))) J)
(.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 #s(literal 1 binary64) (.f64 J J))) #s(literal -4 binary64))
(-.f64 #s(literal 0 binary64) (/.f64 J #s(literal -1/2 binary64)))
(neg.f64 (/.f64 J #s(literal -1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) J))
(/.f64 J #s(literal 1/2 binary64))
(/.f64 (/.f64 J #s(literal 1/2 binary64)) #s(literal 1 binary64))
(/.f64 #s(literal -2 binary64) (/.f64 #s(literal -1 binary64) J))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (/.f64 J #s(literal -1/2 binary64)))
(/.f64 (/.f64 #s(literal -1/2 binary64) J) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 J #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 0 binary64) J) #s(literal -1/2 binary64))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1 binary64))
(/.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 (/.f64 #s(literal 1/2 binary64) J) J))
(/.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 #s(literal -1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))))
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) J))
(/.f64 (/.f64 #s(literal -1 binary64) J) (/.f64 #s(literal -1/2 binary64) (*.f64 J J)))
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J) #s(literal -2 binary64))
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64))) J)
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J)) #s(literal 2 binary64))
(pow.f64 (/.f64 J #s(literal 1/2 binary64)) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 J #s(literal 1/2 binary64)))
(*.f64 #s(literal 2 binary64) J)
(*.f64 J #s(literal 2 binary64))
(.f64 J (neg.f64 (/.f64 (.f64 J #s(literal -4 binary64)) (/.f64 J #s(literal 1/2 binary64)))))
(*.f64 (/.f64 J #s(literal 1/2 binary64)) #s(literal 1 binary64))
(*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) J))
(.f64 (.f64 J #s(literal -4 binary64)) #s(literal -1/2 binary64))
(.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) (/.f64 #s(literal -1/2 binary64) J))
(.f64 #s(literal -1/2 binary64) (.f64 J #s(literal -4 binary64)))
(.f64 (/.f64 #s(literal -1/2 binary64) J) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(.f64 #s(literal 1/2 binary64) (.f64 J #s(literal 4 binary64)))
(*.f64 #s(literal -1 binary64) (/.f64 J #s(literal -1/2 binary64)))
(.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1/2 binary64) J))
(*.f64 (-.f64 #s(literal 0 binary64) J) #s(literal -2 binary64))
(.f64 (-.f64 #s(literal 0 binary64) J) (/.f64 (.f64 J #s(literal -4 binary64)) (/.f64 J #s(literal 1/2 binary64))))
(*.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal -1 binary64))
(.f64 (/.f64 #s(literal 1 binary64) J) (neg.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64))))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 J (*.f64 J #s(literal 4 binary64))))
(.f64 (.f64 J J) (neg.f64 (/.f64 #s(literal -4 binary64) (/.f64 J #s(literal 1/2 binary64)))))
(.f64 (.f64 J #s(literal 4 binary64)) #s(literal 1/2 binary64))
(.f64 (/.f64 J #s(literal 2 binary64)) (neg.f64 (/.f64 (.f64 J #s(literal -4 binary64)) J)))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) J) (neg.f64 (/.f64 J #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 J J) #s(literal 2 binary64)) (neg.f64 (/.f64 #s(literal -4 binary64) J)))
(.f64 (/.f64 (.f64 J J) J) #s(literal 2 binary64))
(*.f64 (pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1/2 binary64)) (neg.f64 (pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1/2 binary64))))
(.f64 (-.f64 #s(literal 0 binary64) (.f64 J J)) (/.f64 #s(literal -4 binary64) (/.f64 J #s(literal 1/2 binary64))))
(.f64 (/.f64 #s(literal -1 binary64) J) (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) J) (*.f64 J #s(literal 4 binary64)))
(.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J #s(literal -4 binary64))) (-.f64 #s(literal 0 binary64) J))
(.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J J)) #s(literal 4 binary64))
(.f64 (neg.f64 (/.f64 J #s(literal 2 binary64))) (/.f64 (.f64 J #s(literal -4 binary64)) J))
(.f64 (neg.f64 (/.f64 (.f64 J #s(literal -4 binary64)) J)) (/.f64 J #s(literal 2 binary64)))
(.f64 (neg.f64 (/.f64 (.f64 J J) #s(literal 2 binary64))) (/.f64 #s(literal -4 binary64) J))
(.f64 (neg.f64 (/.f64 (.f64 J J) J)) #s(literal -2 binary64))
(*.f64 (neg.f64 (pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1/2 binary64))) (pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1/2 binary64)))
(.f64 (neg.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) J)) (*.f64 J #s(literal -4 binary64)))
(.f64 (neg.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J #s(literal -4 binary64)))) J)
(.f64 (neg.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J J))) #s(literal -4 binary64))
(*.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 2 binary64) J)) #s(literal -4 binary64))
(.f64 (/.f64 #s(literal -1 binary64) (/.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 J #s(literal -4 binary64)))) J)
(.f64 (/.f64 #s(literal -1 binary64) (/.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 J J))) #s(literal -4 binary64))
(exp.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J)))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (.f64 J (.f64 J #s(literal 4 binary64))))
(neg.f64 (.f64 J (.f64 J #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))))
(/.f64 (/.f64 J #s(literal 1/2 binary64)) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 1 binary64))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) #s(literal -1 binary64))
(pow.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(*.f64 #s(literal 2 binary64) (/.f64 J (/.f64 #s(literal -1/2 binary64) J)))
(.f64 J (.f64 J #s(literal -4 binary64)))
(.f64 J (neg.f64 (.f64 J #s(literal 4 binary64))))
(.f64 J (neg.f64 (.f64 #s(literal 2 binary64) (/.f64 J #s(literal 1/2 binary64)))))
(*.f64 (/.f64 J #s(literal 1/2 binary64)) (/.f64 J #s(literal -1/2 binary64)))
(.f64 #s(literal -2 binary64) (.f64 J (/.f64 J #s(literal 1/2 binary64))))
(.f64 #s(literal -4 binary64) (.f64 J J))
(.f64 (.f64 J #s(literal -4 binary64)) J)
(.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 1 binary64))
(.f64 #s(literal -1 binary64) (.f64 J (*.f64 J #s(literal 4 binary64))))
(.f64 (-.f64 #s(literal 0 binary64) J) (.f64 J #s(literal 4 binary64)))
(.f64 (-.f64 #s(literal 0 binary64) J) (.f64 #s(literal 2 binary64) (/.f64 J #s(literal 1/2 binary64))))
(*.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 J #s(literal 1/2 binary64)))
(.f64 (.f64 J J) #s(literal -4 binary64))
(.f64 #s(literal 4 binary64) (-.f64 #s(literal 0 binary64) (.f64 J J)))
(.f64 (.f64 (/.f64 J #s(literal 1/2 binary64)) J) #s(literal -2 binary64))
(.f64 (.f64 (/.f64 J #s(literal -1/2 binary64)) J) #s(literal 2 binary64))
(.f64 (.f64 J #s(literal 4 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (-.f64 #s(literal 0 binary64) (.f64 J J)) #s(literal 4 binary64))
(.f64 (.f64 (/.f64 J #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal -1/2 binary64)))
(.f64 (neg.f64 (.f64 J #s(literal 4 binary64))) J)
(.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (.f64 J J))) #s(literal -4 binary64))
(.f64 (neg.f64 (.f64 (/.f64 J #s(literal 1/2 binary64)) #s(literal 2 binary64))) J)
(+.f64 #s(literal 0 binary64) (/.f64 J #s(literal -1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -1/2 binary64) J)) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 J #s(literal 1/2 binary64)))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J)))) (/.f64 J #s(literal 1/2 binary64)))
(neg.f64 (/.f64 J #s(literal 1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) (*.f64 J J)) (/.f64 #s(literal 1 binary64) J)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (/.f64 #s(literal 1/2 binary64) J)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J)))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) J))
(/.f64 #s(literal 2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 J #s(literal 4 binary64))))
(/.f64 J #s(literal -1/2 binary64))
(/.f64 (/.f64 J #s(literal 1/2 binary64)) #s(literal -1 binary64))
(/.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 J (*.f64 J #s(literal 4 binary64)))))
(/.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) J))
(/.f64 #s(literal -2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 J #s(literal -4 binary64))))
(/.f64 (*.f64 J #s(literal -4 binary64)) #s(literal 2 binary64))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (/.f64 J #s(literal 1/2 binary64)))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (+.f64 #s(literal 0 binary64) (/.f64 J #s(literal 1/2 binary64))))
(/.f64 #s(literal -1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))) (-.f64 #s(literal 0 binary64) J)))
(/.f64 (/.f64 #s(literal -1/2 binary64) J) (/.f64 #s(literal -1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))))
(/.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))) J))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 J #s(literal -1/2 binary64)))
(/.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 1/2 binary64))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1 binary64))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) (.f64 #s(literal -4 binary64) (*.f64 J J))))
(/.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 #s(literal -1/2 binary64) (*.f64 J J)))
(/.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))))
(/.f64 (*.f64 J #s(literal 4 binary64)) #s(literal -2 binary64))
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)) J)
(/.f64 (/.f64 #s(literal -1 binary64) J) (/.f64 (/.f64 #s(literal 1/2 binary64) J) J))
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J) #s(literal 2 binary64))
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J))
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J)) #s(literal -2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 J (.f64 J #s(literal 4 binary64))))) (+.f64 #s(literal 0 binary64) (+.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 #s(literal 0 binary64) (/.f64 J #s(literal 1/2 binary64))))))
(pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1 binary64))
(pow.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal -1 binary64) (.f64 #s(literal -4 binary64) (.f64 J J))) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (exp.f64 (log.f64 (/.f64 #s(literal -1/2 binary64) J))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 J #s(literal -1/2 binary64)))
(*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) J))
(*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) J) #s(literal -1 binary64)))
(*.f64 J #s(literal -2 binary64))
(.f64 J (/.f64 (.f64 J #s(literal -4 binary64)) (/.f64 J #s(literal 1/2 binary64))))
(*.f64 (/.f64 J #s(literal 1/2 binary64)) #s(literal -1 binary64))
(*.f64 #s(literal -2 binary64) J)
(.f64 (.f64 J #s(literal -4 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) (/.f64 #s(literal 1/2 binary64) J))
(.f64 #s(literal -1/2 binary64) (.f64 J #s(literal 4 binary64)))
(.f64 (/.f64 #s(literal -1/2 binary64) J) (.f64 J (*.f64 J #s(literal 4 binary64))))
(.f64 #s(literal 1/2 binary64) (.f64 J #s(literal -4 binary64)))
(.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (.f64 J #s(literal 4 binary64))) #s(literal -1 binary64)))
(.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 J (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal -1 binary64)))
(*.f64 #s(literal -1 binary64) (/.f64 J #s(literal 1/2 binary64)))
(.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(*.f64 (-.f64 #s(literal 0 binary64) J) #s(literal 2 binary64))
(*.f64 (/.f64 J #s(literal -1/2 binary64)) #s(literal 1 binary64))
(.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)))
(.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(.f64 (.f64 J J) (/.f64 #s(literal -4 binary64) (/.f64 J #s(literal 1/2 binary64))))
(*.f64 (/.f64 J #s(literal 2 binary64)) #s(literal -4 binary64))
(.f64 (/.f64 J #s(literal 2 binary64)) (/.f64 (.f64 J #s(literal -4 binary64)) J))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) J) (/.f64 J #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 J J) #s(literal 2 binary64)) (/.f64 #s(literal -4 binary64) J))
(.f64 (/.f64 (.f64 J J) J) #s(literal -2 binary64))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) J))
(*.f64 (pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1/2 binary64)) (pow.f64 (/.f64 #s(literal -1/2 binary64) J) #s(literal -1/2 binary64)))
(.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) J) (*.f64 J #s(literal -4 binary64)))
(.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J #s(literal -4 binary64))) J)
(.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J J)) #s(literal -4 binary64))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) J) #s(literal 1/2 binary64))
(.f64 (/.f64 (.f64 J #s(literal -4 binary64)) (/.f64 J #s(literal 1/2 binary64))) J)
(.f64 (pow.f64 (/.f64 #s(literal 2 binary64) J) #s(literal -1 binary64)) (pow.f64 (/.f64 J (.f64 J #s(literal -4 binary64))) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 J (.f64 J #s(literal -4 binary64))) #s(literal -1 binary64)) (pow.f64 (/.f64 #s(literal 2 binary64) J) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (.f64 J J)) #s(literal -1 binary64)) (pow.f64 (/.f64 J #s(literal -4 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 J (.f64 J J)) #s(literal -1 binary64)) #s(literal -2 binary64))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) #s(literal 1 binary64)) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 J J))) #s(literal -4 binary64))
(*.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) J)) #s(literal 2 binary64))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) J) #s(literal -1/2 binary64))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) (/.f64 J #s(literal 1/2 binary64)))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64)))) (/.f64 J #s(literal -1/2 binary64)))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) J)) (/.f64 #s(literal -1/2 binary64) (.f64 J J)))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1/2 binary64) J)) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J))))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64))) J)
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) J)) #s(literal 2 binary64))
(*.f64 (/.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 #s(literal -1/2 binary64) J)) J)
(.f64 (/.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 #s(literal 2 binary64) J)) (.f64 J #s(literal -4 binary64)))
(.f64 (/.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 #s(literal 2 binary64) (.f64 J J))) #s(literal -4 binary64))
(.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 #s(literal 1 binary64) J)) (.f64 J #s(literal -4 binary64)))
(.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 #s(literal -1 binary64) (.f64 J #s(literal 4 binary64)))) J)
(.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 #s(literal 1 binary64) (.f64 J J))) #s(literal -4 binary64))
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64)))
(exp.f64 (-.f64 (.f64 (log.f64 (/.f64 #s(literal -1/2 binary64) J)) #s(literal -1 binary64)) (.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))))
(-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1/2 binary64) J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 (/.f64 J #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(neg.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(neg.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal 1/2 binary64))))
(neg.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(neg.f64 (/.f64 (/.f64 J #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(neg.f64 (*.f64 (/.f64 J #s(literal 1/2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(neg.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)) (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64))))
(neg.f64 (*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) J))
(neg.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))))
(neg.f64 (/.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal -1/2 binary64) J)))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 J (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) #s(literal 1/2 binary64))))
(/.f64 J (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(/.f64 (/.f64 J #s(literal 1/2 binary64)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (/.f64 #s(literal 2 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal 1/2 binary64))))
(/.f64 #s(literal 1/2 binary64) (/.f64 J (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J)))))
(/.f64 (.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal -1/2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 (-.f64 #s(literal 0 binary64) J) (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (/.f64 #s(literal 1 binary64) J) (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal -1/2 binary64) (.f64 J J))))
(/.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J)))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) (/.f64 J #s(literal 1/2 binary64)))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64)))) (/.f64 J #s(literal -1/2 binary64)))
(/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) J))
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)) (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) #s(literal 1/2 binary64)) J)
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J) (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(/.f64 (neg.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64))) (/.f64 #s(literal -1 binary64) J))
(/.f64 (neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) J))
(pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)))
(.f64 J (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 J (/.f64 (.f64 (*.f64 J #s(literal -4 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal 1/2 binary64))))
(*.f64 (/.f64 J #s(literal 1/2 binary64)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 #s(literal -2 binary64) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal -1/2 binary64)))
(.f64 (.f64 J #s(literal -4 binary64)) (*.f64 J (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal 1/2 binary64)))))
(.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal 1/2 binary64))))
(.f64 #s(literal -1/2 binary64) (/.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal 1/2 binary64)))
(*.f64 (/.f64 J #s(literal -1/2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1/2 binary64))
(.f64 (.f64 J J) (*.f64 #s(literal -4 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal 1/2 binary64)))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (/.f64 #s(literal 1/2 binary64) J))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)) #s(literal 1 binary64))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal 1/2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(.f64 (/.f64 J #s(literal 2 binary64)) (.f64 (/.f64 (*.f64 J #s(literal -4 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) J)
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(literal -2 binary64))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) J))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) J))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) #s(literal -1 binary64))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal -1/2 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64))))
(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal 1/2 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64))))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 J #s(literal -4 binary64)))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64)) (.f64 J #s(literal 4 binary64)))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) J)) #s(literal -4 binary64))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 J #s(literal -4 binary64)))) J)
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 J J))) #s(literal -4 binary64))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 J #s(literal 4 binary64)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -2 binary64)) (.f64 J #s(literal -4 binary64)))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) J)) #s(literal 2 binary64))
(*.f64 (/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 1 binary64)) J)
(*.f64 (/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) J))
(exp.f64 (*.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64)))
(exp.f64 (.f64 (.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64)) #s(literal -1 binary64)))
(exp.f64 (neg.f64 (*.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(cos.f64 (/.f64 K #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(neg.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 #s(literal -1 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(*.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) K)) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 K #s(literal -2 binary64)))
(neg.f64 (/.f64 K #s(literal -2 binary64)))
(neg.f64 (*.f64 #s(literal 1 binary64) (/.f64 K #s(literal -2 binary64))))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 2 binary64) K)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) K))
(/.f64 K #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -2 binary64) K))
(/.f64 (-.f64 #s(literal 0 binary64) K) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) K) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 K #s(literal 2 binary64)))
(*.f64 K #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) K))
(*.f64 #s(literal 1/2 binary64) K)
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) K) #s(literal -1 binary64)))
(*.f64 (/.f64 K #s(literal 2 binary64)) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 K #s(literal -2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) K) #s(literal -1/2 binary64))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) K) #s(literal -1/2 binary64)) (pow.f64 (/.f64 #s(literal 2 binary64) K) #s(literal -1/2 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(neg.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 J (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 J (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 #s(literal -4 binary64) (.f64 J J))))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 J (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))))))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 (-.f64 #s(literal 0 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J)
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64)))) (-.f64 #s(literal 0 binary64) J))
(/.f64 (neg.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64))))) J)
(pow.f64 (/.f64 J (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J)))) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 J (.f64 (/.f64 (*.f64 J #s(literal -4 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (/.f64 #s(literal 1 binary64) J) (.f64 #s(literal -4 binary64) (.f64 J J))))
(.f64 (.f64 J #s(literal -4 binary64)) (*.f64 J (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)))
(.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(.f64 #s(literal -1 binary64) (/.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)))
(.f64 (-.f64 #s(literal 0 binary64) J) (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (*.f64 J #s(literal 4 binary64))))
(.f64 (/.f64 #s(literal 1 binary64) J) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))))
(.f64 (.f64 J J) (/.f64 #s(literal -4 binary64) (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (.f64 (/.f64 (*.f64 J #s(literal -4 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J)
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (/.f64 #s(literal 1 binary64) J))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)) (.f64 J (*.f64 J #s(literal 4 binary64))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (.f64 J #s(literal 4 binary64)))) (/.f64 #s(literal -1 binary64) J))
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) J) (*.f64 J #s(literal -4 binary64)))
(.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (*.f64 J J)) #s(literal -4 binary64))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) (-.f64 #s(literal 0 binary64) J)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64)))
(exp.f64 (-.f64 (.f64 (log.f64 (/.f64 #s(literal -1/2 binary64) J)) #s(literal -1 binary64)) (.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))))
(-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1/2 binary64) J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 (/.f64 J #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(neg.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(neg.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal 1/2 binary64))))
(neg.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)))
(neg.f64 (/.f64 (/.f64 J #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(neg.f64 (*.f64 (/.f64 J #s(literal 1/2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(neg.f64 (.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)) (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64))))
(neg.f64 (*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) J))
(neg.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))))
(neg.f64 (/.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal -1/2 binary64) J)))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 J (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) #s(literal 1/2 binary64))))
(/.f64 J (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(/.f64 (/.f64 J #s(literal 1/2 binary64)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (/.f64 #s(literal 2 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)))
(/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal 1/2 binary64))))
(/.f64 #s(literal 1/2 binary64) (/.f64 J (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J)))))
(/.f64 (.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal -1/2 binary64) J) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal -1/2 binary64))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 (-.f64 #s(literal 0 binary64) J) (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (/.f64 #s(literal 1 binary64) J) (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal -1/2 binary64) (.f64 J J))))
(/.f64 (/.f64 #s(literal 1/2 binary64) J) (.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -4 binary64) (*.f64 J J)))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) (/.f64 J #s(literal 1/2 binary64)))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64)))) (/.f64 J #s(literal -1/2 binary64)))
(/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) J))
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)) (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) #s(literal 1/2 binary64)) J)
(/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J) (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(/.f64 (neg.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64))) (/.f64 #s(literal -1 binary64) J))
(/.f64 (neg.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) #s(literal 1/2 binary64))) (-.f64 #s(literal 0 binary64) J))
(pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)))
(.f64 J (.f64 #s(literal -2 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 J (/.f64 (.f64 (*.f64 J #s(literal -4 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal 1/2 binary64))))
(*.f64 (/.f64 J #s(literal 1/2 binary64)) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 #s(literal -2 binary64) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal -1/2 binary64)))
(.f64 (.f64 J #s(literal -4 binary64)) (*.f64 J (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal 1/2 binary64)))))
(.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal 1/2 binary64))))
(.f64 #s(literal -1/2 binary64) (/.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal 1/2 binary64)))
(*.f64 (/.f64 J #s(literal -1/2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1/2 binary64))
(.f64 (.f64 J J) (*.f64 #s(literal -4 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal 1/2 binary64)))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J))) (/.f64 #s(literal 1/2 binary64) J))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J)) #s(literal 1 binary64))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal 1/2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J)))
(.f64 (/.f64 J #s(literal 2 binary64)) (.f64 (/.f64 (*.f64 J #s(literal -4 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) J)
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(literal -2 binary64))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) J))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (.f64 J J)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) J))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) J)) #s(literal -1 binary64))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 J #s(literal -1/2 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64))))
(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 J #s(literal 1/2 binary64))) (.f64 J (*.f64 J #s(literal 4 binary64))))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 J #s(literal -4 binary64)))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -2 binary64)) (.f64 J #s(literal 4 binary64)))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) J)) #s(literal -4 binary64))
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 J #s(literal -4 binary64)))) J)
(.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (/.f64 J #s(literal 1/2 binary64)) (.f64 J J))) #s(literal -4 binary64))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 J #s(literal 4 binary64)))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -2 binary64)) (.f64 J #s(literal -4 binary64)))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) J)) #s(literal 2 binary64))
(*.f64 (/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 1 binary64)) J)
(*.f64 (/.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) J))
(.f64 #s(literal 1 binary64) (.f64 J #s(literal -4 binary64)))
(*.f64 J #s(literal -4 binary64))
(*.f64 #s(literal -4 binary64) J)
(.f64 (.f64 J #s(literal -4 binary64)) #s(literal 1 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(neg.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(neg.f64 (/.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64))
(pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64))
(pow.f64 (exp.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64)))
(exp.f64 (.f64 (.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64)) #s(literal -1 binary64)))
(exp.f64 (neg.f64 (*.f64 (log.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(cos.f64 (/.f64 K #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(neg.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 #s(literal -1 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(*.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)))
(-.f64 (/.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) J)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)))
(neg.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)))
(/.f64 #s(literal 1 binary64) (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)
(/.f64 #s(literal -1 binary64) (/.f64 (-.f64 #s(literal 0 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) J))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 J #s(literal -1 binary64)))
(/.f64 (/.f64 #s(literal 1 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(pow.f64 (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) J))
(*.f64 (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) J)))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 #s(literal -1 binary64) J))
(*.f64 (/.f64 #s(literal 1 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 (/.f64 #s(literal -1 binary64) J) (-.f64 #s(literal 0 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (pow.f64 (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)))

simplify348.0ms (3.4%)

Algorithm

1×	egg-herbie

Rules

5150×	`-lowering-.f32`
5150×	`-lowering-.f64`
4588×	`+-lowering-+.f64`
4588×	`+-lowering-+.f32`
1456×	`distribute-lft-in`

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	382	3257
1	1245	2962
2	4443	2891
0	8166	2891

Stop Event

1×	iter limit
1×	node limit

Counts

336 → 336

Calls

Call 1

Inputs
(* -2 (* J (cos (* 1/2 K))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) J)))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (+ (* -1/4 (/ (cos (* 1/2 K)) J)) (* 1/64 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 3))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (+ (* -1/4 (/ (cos (* 1/2 K)) J)) (* (pow U 2) (+ (* -1/512 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 5))) (* 1/64 (/ (cos (* 1/2 K)) (pow J 3))))))))
(* -1 (* U (cos (* 1/2 K))))
(* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (* -1 (cos (* 1/2 K)))))
(* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4))))))
(* U (+ (* -4 (/ (* (pow J 6) (cos (* 1/2 K))) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4)))))))
(* U (cos (* 1/2 K)))
(* -1 (* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (* -1 (cos (* 1/2 K))))))
(* -1 (* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4)))))))
(* -1 (* U (+ (* -4 (/ (* (pow J 6) (cos (* 1/2 K))) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4))))))))
(* -1 (* U (cos (* 1/2 K))))
(+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) U)) (* -1 (* U (cos (* 1/2 K)))))
(+ (* -1 (* U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -2 (/ (cos (* 1/2 K)) U)) (* 2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 3))))))
(+ (* -1 (* U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -2 (/ (cos (* 1/2 K)) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 5))) (* 2 (/ (cos (* 1/2 K)) (pow U 3))))))))
(* -2 (* J (cos (* 1/2 K))))
(* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2)))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (+ (* -1/512 (/ (* (pow U 6) (cos (* 1/2 K))) (pow J 6))) (* 1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4)))))))
(* -2 (* J (cos (* 1/2 K))))
(* -1 (* J (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K))))))
(* -1 (* J (+ (* -1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))) (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K)))))))
(* -1 (* J (+ (* -1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))) (+ (* 1/512 (/ (* (pow U 6) (cos (* 1/2 K))) (pow J 6))) (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K))))))))
(* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/4 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -1/192 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/4 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* 1/4 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -1/192 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/23040 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -2 J)
(+ (* -2 J) (* -1/4 (/ (pow U 2) J)))
(+ (* -2 J) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (pow J 3))) (* 1/4 (/ 1 J)))))
(+ (* -2 J) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (pow J 5))) (* 1/64 (/ 1 (pow J 3))))) (* 1/4 (/ 1 J)))))
(* -1 U)
(* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))
(* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1))
(* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1))
U
(* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1)))
(* -1 (* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1)))
(* -1 (* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1)))
(* -1 U)
(+ (* -2 (/ (pow J 2) U)) (* -1 U))
(+ (* -1 U) (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 3))) (* 2 (/ 1 U)))))
(+ (* -1 U) (* (pow J 2) (- (* (pow J 2) (+ (* -4 (/ (pow J 2) (pow U 5))) (* 2 (/ 1 (pow U 3))))) (* 2 (/ 1 U)))))
(* -2 J)
(* J (- (* -1/4 (/ (pow U 2) (pow J 2))) 2))
(* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (* 1/64 (/ (pow U 4) (pow J 4)))) 2))
(* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (+ (* -1/512 (/ (pow U 6) (pow J 6))) (* 1/64 (/ (pow U 4) (pow J 4))))) 2))
(* -2 J)
(* -1 (* J (+ 2 (* 1/4 (/ (pow U 2) (pow J 2))))))
(* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (* 1/4 (/ (pow U 2) (pow J 2)))))))
(* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (+ (* 1/512 (/ (pow U 6) (pow J 6))) (* 1/4 (/ (pow U 2) (pow J 2))))))))
1
(+ 1 (* 1/8 (/ (pow U 2) (pow J 2))))
(+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (pow J 4))) (* 1/8 (/ 1 (pow J 2))))))
(+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (pow J 6))) (* 1/128 (/ 1 (pow J 4))))) (* 1/8 (/ 1 (pow J 2))))))
(* 1/2 (/ U J))
(* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))
(* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))
(* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))
(* -1/2 (/ U J))
(* -1 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))
(* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))
(* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))
(* 1/2 (/ U J))
(/ (+ (* 1/2 U) (/ (pow J 2) U)) J)
(/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (pow J 2) (pow U 3))) (/ 1 U)))) J)
(/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 5))) (/ 1 (pow U 3)))) (/ 1 U)))) J)
1
(+ 1 (* 1/8 (/ (pow U 2) (pow J 2))))
(+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (* 1/8 (/ (pow U 2) (pow J 2)))))
(+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (+ (* 1/1024 (/ (pow U 6) (pow J 6))) (* 1/8 (/ (pow U 2) (pow J 2))))))
1
(+ 1 (* 1/8 (/ (pow U 2) (pow J 2))))
(+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (* 1/8 (/ (pow U 2) (pow J 2)))))
(+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (+ (* 1/1024 (/ (pow U 6) (pow J 6))) (* 1/8 (/ (pow U 2) (pow J 2))))))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* 1/2 (/ U J))
(* -1 U)
(* -1 U)
(* -1 U)
(* -1 U)
(* -1 U)
(* -1 U)
(* -1 U)
(* -1 U)
(* -1 U)
(* -1 U)
(* -1 U)
(* -1 U)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(/ -1/2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* 2 J)
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -4 (pow J 2))
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(* -2 J)
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
1
(+ 1 (* -1/8 (pow K 2)))
(+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))
(+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* 1/2 K)
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 J)
(+ (* -4 J) (* 1/2 (* J (pow K 2))))
(+ (* -4 J) (* (pow K 2) (+ (* -1/96 (* J (pow K 2))) (* 1/2 J))))
(+ (* -4 J) (* (pow K 2) (+ (* 1/2 J) (* (pow K 2) (+ (* -1/96 J) (* 1/11520 (* J (pow K 2))))))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -4 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 J)
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -2 (* J (cos (* 1/2 K))))
(* -4 J)
(* -4 J)
(* -4 J)
(* -4 J)
(* -4 J)
(* -4 J)
(* -4 J)
(* -4 J)
(* -4 J)
(* -4 J)
(* -4 J)
(* -4 J)
1
(+ 1 (* 1/8 (pow K 2)))
(+ 1 (* (pow K 2) (+ 1/8 (* 5/384 (pow K 2)))))
(+ 1 (* (pow K 2) (+ 1/8 (* (pow K 2) (+ 5/384 (* 61/46080 (pow K 2)))))))
(/ 1 (cos (* 1/2 K)))
(/ 1 (cos (* 1/2 K)))
(/ 1 (cos (* 1/2 K)))
(/ 1 (cos (* 1/2 K)))
(/ 1 (cos (* 1/2 K)))
(/ 1 (cos (* 1/2 K)))
(/ 1 (cos (* 1/2 K)))
(/ 1 (cos (* 1/2 K)))
1
(+ 1 (* -1/8 (pow K 2)))
(+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))
(+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(cos (* 1/2 K))
(/ 1 J)
(+ (* -1/8 (/ (pow K 2) J)) (/ 1 J))
(+ (* (pow K 2) (- (* 1/384 (/ (pow K 2) J)) (* 1/8 (/ 1 J)))) (/ 1 J))
(+ (* (pow K 2) (- (* (pow K 2) (+ (* -1/46080 (/ (pow K 2) J)) (* 1/384 (/ 1 J)))) (* 1/8 (/ 1 J)))) (/ 1 J))
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)
(/ (cos (* 1/2 K)) J)

Outputs
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) J)))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 #s(literal -2 binary64) J)) (/.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) J))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (+ (* -1/4 (/ (cos (* 1/2 K)) J)) (* 1/64 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 3))))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 #s(literal -2 binary64) J)) (.f64 (.f64 U U) (+.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal -1/4 binary64)) J) (/.f64 (.f64 (.f64 (.f64 U U) #s(literal 1/64 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 J (*.f64 J J))))))
(+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (+ (* -1/4 (/ (cos (* 1/2 K)) J)) (* (pow U 2) (+ (* -1/512 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 5))) (* 1/64 (/ (cos (* 1/2 K)) (pow J 3))))))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 #s(literal -2 binary64) J)) (.f64 (.f64 U U) (+.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal -1/4 binary64)) J) (.f64 (.f64 U U) (+.f64 (.f64 #s(literal -1/512 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 U U)) (pow.f64 J #s(literal 5 binary64)))) (.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J J)) (/.f64 #s(literal 1/64 binary64) J)))))))
(* -1 (* U (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 #s(literal 0 binary64) U))
(* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (* -1 (cos (* 1/2 K)))))
(.f64 U (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 (.f64 J J) U)) (/.f64 #s(literal -2 binary64) U)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))))
(* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4))))))
(.f64 U (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 (.f64 J J) U)) (/.f64 #s(literal -2 binary64) U)) (-.f64 (/.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 J J) (.f64 J J))) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (.f64 U U) (.f64 U U))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
(* U (+ (* -4 (/ (* (pow J 6) (cos (* 1/2 K))) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4)))))))
(.f64 U (+.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 (.f64 J J) U)) (/.f64 #s(literal -2 binary64) U)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (+.f64 (/.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 J J) (.f64 J J))) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (.f64 U U) (.f64 U U))) (.f64 (.f64 #s(literal -4 binary64) (pow.f64 J #s(literal 6 binary64))) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (pow.f64 U #s(literal 6 binary64)))))))
(* U (cos (* 1/2 K)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) U)
(* -1 (* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (* -1 (cos (* 1/2 K))))))
(.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 (.f64 J J) U)) (/.f64 #s(literal -2 binary64) U)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (-.f64 #s(literal 0 binary64) U))
(* -1 (* U (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4)))))))
(.f64 (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 (.f64 J J) U)) (/.f64 #s(literal -2 binary64) U)) (-.f64 (/.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 J J) (.f64 J J))) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (.f64 U U) (.f64 U U))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (-.f64 #s(literal 0 binary64) U))
(* -1 (* U (+ (* -4 (/ (* (pow J 6) (cos (* 1/2 K))) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 2))) (+ (* -1 (cos (* 1/2 K))) (* 2 (/ (* (pow J 4) (cos (* 1/2 K))) (pow U 4))))))))
(.f64 (+.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 (.f64 J J) U)) (/.f64 #s(literal -2 binary64) U)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (+.f64 (/.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 J J) (.f64 J J))) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (.f64 U U) (.f64 U U))) (.f64 (.f64 #s(literal -4 binary64) (pow.f64 J #s(literal 6 binary64))) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (pow.f64 U #s(literal 6 binary64)))))) (-.f64 #s(literal 0 binary64) U))
(* -1 (* U (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (-.f64 #s(literal 0 binary64) U))
(+ (* -2 (/ (* (pow J 2) (cos (* 1/2 K))) U)) (* -1 (* U (cos (* 1/2 K)))))
(-.f64 (.f64 (.f64 J J) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal -2 binary64) U))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) U))
(+ (* -1 (* U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -2 (/ (cos (* 1/2 K)) U)) (* 2 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 3))))))
(-.f64 (.f64 (.f64 J J) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal -2 binary64) U)) (/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 (.f64 J J) U)) (/.f64 #s(literal 2 binary64) U)) U))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) U))
(+ (* -1 (* U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -2 (/ (cos (* 1/2 K)) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (cos (* 1/2 K))) (pow U 5))) (* 2 (/ (cos (* 1/2 K)) (pow U 3))))))))
(-.f64 (.f64 (.f64 J J) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal -2 binary64) U)) (.f64 (.f64 J J) (+.f64 (/.f64 (.f64 (.f64 J (.f64 J #s(literal -4 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (pow.f64 U #s(literal 5 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 2 binary64) (.f64 U (.f64 U U)))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) U))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2)))))
(.f64 J (+.f64 (.f64 #s(literal -2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J J)))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))))))
(.f64 J (+.f64 (.f64 #s(literal -2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J J))) (/.f64 (.f64 (.f64 #s(literal 1/64 binary64) (.f64 (.f64 U U) (.f64 U U))) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (.f64 J J) (*.f64 J J))))))
(* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (+ (* -1/512 (/ (* (pow U 6) (cos (* 1/2 K))) (pow J 6))) (* 1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4)))))))
(.f64 J (+.f64 (+.f64 (+.f64 (.f64 #s(literal -2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J J)))) (.f64 (.f64 #s(literal -1/512 binary64) (pow.f64 U #s(literal 6 binary64))) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (pow.f64 J #s(literal 6 binary64))))) (/.f64 (.f64 (.f64 #s(literal 1/64 binary64) (.f64 (.f64 U U) (.f64 U U))) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (.f64 J J) (.f64 J J)))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -1 (* J (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K))))))
(.f64 J (+.f64 (.f64 #s(literal -2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J J)))))
(* -1 (* J (+ (* -1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))) (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K)))))))
(.f64 (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 J J)) (/.f64 (.f64 (.f64 (.f64 (.f64 U U) (.f64 U U)) #s(literal -1/64 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (.f64 J J) (*.f64 J J))))) (-.f64 #s(literal 0 binary64) J))
(* -1 (* J (+ (* -1/64 (/ (* (pow U 4) (cos (* 1/2 K))) (pow J 4))) (+ (* 1/512 (/ (* (pow U 6) (cos (* 1/2 K))) (pow J 6))) (+ (* 1/4 (/ (* (pow U 2) (cos (* 1/2 K))) (pow J 2))) (* 2 (cos (* 1/2 K))))))))
(.f64 (+.f64 (+.f64 (/.f64 (.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 J J)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 U U) (.f64 U U)) #s(literal -1/64 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (.f64 (.f64 J J) (.f64 J J))) (/.f64 (.f64 (.f64 (pow.f64 U #s(literal 6 binary64)) #s(literal 1/512 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (pow.f64 J #s(literal 6 binary64))))) (-.f64 #s(literal 0 binary64) J))
(* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (*.f64 #s(literal -2 binary64) J))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/4 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J (+.f64 #s(literal -2 binary64) (.f64 (*.f64 K K) #s(literal 1/4 binary64)))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -1/192 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/4 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))
(+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 #s(literal -2 binary64) J)) (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 (.f64 J (.f64 K K)) (+.f64 (.f64 #s(literal -1/192 binary64) (.f64 K K)) #s(literal 1/4 binary64)))))
(+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* 1/4 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -1/192 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/23040 (* (* J (pow K 2)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))
(+.f64 (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 J (+.f64 #s(literal -2 binary64) (.f64 (.f64 K K) #s(literal 1/4 binary64))))) (.f64 (.f64 K K) (.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (.f64 K (.f64 K (.f64 J (+.f64 #s(literal -1/192 binary64) (.f64 (.f64 K K) #s(literal 1/23040 binary64)))))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 #s(literal -2 binary64) (.f64 (.f64 J (cos.f64 (.f64 #s(literal 1/2 binary64) K))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(+ (* -2 J) (* -1/4 (/ (pow U 2) J)))
(+.f64 (.f64 #s(literal -2 binary64) J) (/.f64 (.f64 #s(literal -1/4 binary64) (*.f64 U U)) J))
(+ (* -2 J) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (pow J 3))) (* 1/4 (/ 1 J)))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 (.f64 U U) (+.f64 (/.f64 #s(literal -1/4 binary64) J) (/.f64 (.f64 (.f64 U U) #s(literal 1/64 binary64)) (.f64 J (*.f64 J J))))))
(+ (* -2 J) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (pow J 5))) (* 1/64 (/ 1 (pow J 3))))) (* 1/4 (/ 1 J)))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 (.f64 U U) (+.f64 (.f64 (.f64 U U) (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal -1/512 binary64)) (pow.f64 J #s(literal 5 binary64))) (/.f64 #s(literal 1/64 binary64) (.f64 J (*.f64 J J))))) (/.f64 #s(literal -1/4 binary64) J))))
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))
(.f64 U (+.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal -2 binary64) (/.f64 (*.f64 J J) U)) U)))
(* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1))
(.f64 U (+.f64 (+.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 J J) U)) U)) (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 J J) (.f64 J J))) (.f64 (.f64 U U) (.f64 U U)))))
(* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1))
(.f64 U (+.f64 (+.f64 (+.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 J J) U)) U)) (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 J J) (.f64 J J))) (.f64 (.f64 U U) (.f64 U U)))) (/.f64 (*.f64 #s(literal -4 binary64) (pow.f64 J #s(literal 6 binary64))) (pow.f64 U #s(literal 6 binary64)))))
U
(* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1)))
(-.f64 #s(literal 0 binary64) (.f64 U (+.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal -2 binary64) (/.f64 (*.f64 J J) U)) U))))
(* -1 (* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1)))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 (+.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 J J) U)) U)) (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 J J) (.f64 J J))) (.f64 (.f64 U U) (.f64 U U)))))
(* -1 (* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1)))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 (+.f64 (+.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 J J) U)) U)) (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 J J) (.f64 J J))) (.f64 (.f64 U U) (.f64 U U)))) (/.f64 (*.f64 #s(literal -4 binary64) (pow.f64 J #s(literal 6 binary64))) (pow.f64 U #s(literal 6 binary64)))))
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(+ (* -2 (/ (pow J 2) U)) (* -1 U))
(-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 J J) U)) U)
(+ (* -1 U) (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 3))) (* 2 (/ 1 U)))))
(-.f64 (.f64 (.f64 J J) (+.f64 (/.f64 #s(literal -2 binary64) U) (/.f64 (.f64 #s(literal 2 binary64) (.f64 J J)) (.f64 U (.f64 U U))))) U)
(+ (* -1 U) (* (pow J 2) (- (* (pow J 2) (+ (* -4 (/ (pow J 2) (pow U 5))) (* 2 (/ 1 (pow U 3))))) (* 2 (/ 1 U)))))
(-.f64 (.f64 (.f64 J J) (+.f64 (.f64 (.f64 J J) (+.f64 (/.f64 (.f64 J (.f64 J #s(literal -4 binary64))) (pow.f64 U #s(literal 5 binary64))) (/.f64 #s(literal 2 binary64) (.f64 U (.f64 U U))))) (/.f64 #s(literal -2 binary64) U))) U)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* J (- (* -1/4 (/ (pow U 2) (pow J 2))) 2))
(.f64 J (+.f64 #s(literal -2 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (/.f64 (*.f64 U U) J) J))))
(* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (* 1/64 (/ (pow U 4) (pow J 4)))) 2))
(.f64 J (+.f64 #s(literal -2 binary64) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (/.f64 (.f64 U U) J) J)) (/.f64 (.f64 #s(literal 1/64 binary64) (.f64 (.f64 U U) (.f64 U U))) (.f64 (.f64 J J) (.f64 J J))))))
(* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (+ (* -1/512 (/ (pow U 6) (pow J 6))) (* 1/64 (/ (pow U 4) (pow J 4))))) 2))
(.f64 J (+.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (/.f64 (.f64 U U) J) J)) (/.f64 (.f64 #s(literal 1/64 binary64) (.f64 (.f64 U U) (.f64 U U))) (.f64 (.f64 J J) (.f64 J J)))) (+.f64 (/.f64 (*.f64 #s(literal -1/512 binary64) (pow.f64 U #s(literal 6 binary64))) (pow.f64 J #s(literal 6 binary64))) #s(literal -2 binary64))))
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -1 (* J (+ 2 (* 1/4 (/ (pow U 2) (pow J 2))))))
(.f64 J (+.f64 #s(literal -2 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (/.f64 (*.f64 U U) J) J))))
(* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (* 1/4 (/ (pow U 2) (pow J 2)))))))
(.f64 (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)) (+.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 (.f64 U U) (.f64 U U)) #s(literal -1/64 binary64)) (.f64 (.f64 J J) (*.f64 J J))))) (-.f64 #s(literal 0 binary64) J))
(* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (+ (* 1/512 (/ (pow U 6) (pow J 6))) (* 1/4 (/ (pow U 2) (pow J 2))))))))
(.f64 (+.f64 (+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 (.f64 U U) (.f64 U U)) #s(literal -1/64 binary64)) (.f64 (.f64 J J) (.f64 J J)))) (/.f64 (.f64 (pow.f64 U #s(literal 6 binary64)) #s(literal 1/512 binary64)) (pow.f64 J #s(literal 6 binary64)))) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J))) (-.f64 #s(literal 0 binary64) J))
1
#s(literal 1 binary64)
(+ 1 (* 1/8 (/ (pow U 2) (pow J 2))))
(+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/8 binary64)) (*.f64 J J)))
(+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (pow J 4))) (* 1/8 (/ 1 (pow J 2))))))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 U U) (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal -1/128 binary64)) (.f64 (.f64 J J) (.f64 J J))) (/.f64 #s(literal 1/8 binary64) (.f64 J J)))))
(+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (pow J 6))) (* 1/128 (/ 1 (pow J 4))))) (* 1/8 (/ 1 (pow J 2))))))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 U U) (+.f64 (/.f64 #s(literal 1/8 binary64) (.f64 J J)) (.f64 U (.f64 U (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/1024 binary64)) (pow.f64 J #s(literal 6 binary64))) (/.f64 #s(literal -1/128 binary64) (.f64 (.f64 J J) (.f64 J J)))))))))
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))
(.f64 U (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (.f64 U U))))
(* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))
(.f64 U (-.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (.f64 U U))) (/.f64 (.f64 J (.f64 J J)) (.f64 (.f64 U U) (*.f64 U U)))))
(* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))
(.f64 U (+.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (.f64 U U))) (-.f64 (/.f64 (.f64 #s(literal 2 binary64) (pow.f64 J #s(literal 5 binary64))) (pow.f64 U #s(literal 6 binary64))) (/.f64 (.f64 J (.f64 J J)) (.f64 (.f64 U U) (.f64 U U))))))
(* -1/2 (/ U J))
(*.f64 (/.f64 U J) #s(literal -1/2 binary64))
(* -1 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (.f64 U U))))
(* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))
(.f64 (-.f64 #s(literal 0 binary64) U) (-.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (.f64 U U))) (/.f64 (.f64 J (.f64 J J)) (.f64 (.f64 U U) (*.f64 U U)))))
(* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))
(.f64 (-.f64 #s(literal 0 binary64) U) (+.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (.f64 U U))) (-.f64 (/.f64 (.f64 #s(literal 2 binary64) (pow.f64 J #s(literal 5 binary64))) (pow.f64 U #s(literal 6 binary64))) (/.f64 (.f64 J (.f64 J J)) (.f64 (.f64 U U) (.f64 U U))))))
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(/ (+ (* 1/2 U) (/ (pow J 2) U)) J)
(/.f64 (+.f64 (/.f64 (.f64 J J) U) (.f64 #s(literal 1/2 binary64) U)) J)
(/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (pow J 2) (pow U 3))) (/ 1 U)))) J)
(/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) U) (.f64 J (.f64 J (-.f64 (/.f64 #s(literal 1 binary64) U) (/.f64 (.f64 J J) (.f64 U (.f64 U U))))))) J)
(/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 5))) (/ 1 (pow U 3)))) (/ 1 U)))) J)
(/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) U) (.f64 (.f64 J J) (+.f64 (/.f64 #s(literal 1 binary64) U) (.f64 (.f64 J J) (+.f64 (/.f64 (.f64 #s(literal 2 binary64) (.f64 J J)) (pow.f64 U #s(literal 5 binary64))) (/.f64 #s(literal -1 binary64) (.f64 U (*.f64 U U)))))))) J)
1
#s(literal 1 binary64)
(+ 1 (* 1/8 (/ (pow U 2) (pow J 2))))
(+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/8 binary64)) (*.f64 J J)))
(+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (* 1/8 (/ (pow U 2) (pow J 2)))))
(+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/8 binary64)) (.f64 J J))) (/.f64 (.f64 (.f64 (.f64 U U) (.f64 U U)) #s(literal -1/128 binary64)) (.f64 (.f64 J J) (.f64 J J))))
(+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (+ (* 1/1024 (/ (pow U 6) (pow J 6))) (* 1/8 (/ (pow U 2) (pow J 2))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 U U) (.f64 U U)) #s(literal -1/128 binary64)) (.f64 (.f64 J J) (.f64 J J))) (+.f64 (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/8 binary64)) (.f64 J J)) (/.f64 (*.f64 (pow.f64 U #s(literal 6 binary64)) #s(literal 1/1024 binary64)) (pow.f64 J #s(literal 6 binary64)))) #s(literal 1 binary64)))
1
#s(literal 1 binary64)
(+ 1 (* 1/8 (/ (pow U 2) (pow J 2))))
(+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/8 binary64)) (*.f64 J J)))
(+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (* 1/8 (/ (pow U 2) (pow J 2)))))
(+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/8 binary64)) (.f64 J J))) (/.f64 (.f64 (.f64 (.f64 U U) (.f64 U U)) #s(literal -1/128 binary64)) (.f64 (.f64 J J) (.f64 J J))))
(+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (+ (* 1/1024 (/ (pow U 6) (pow J 6))) (* 1/8 (/ (pow U 2) (pow J 2))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 U U) (.f64 U U)) #s(literal -1/128 binary64)) (.f64 (.f64 J J) (.f64 J J))) (+.f64 (+.f64 (/.f64 (.f64 (.f64 U U) #s(literal 1/8 binary64)) (.f64 J J)) (/.f64 (*.f64 (pow.f64 U #s(literal 6 binary64)) #s(literal 1/1024 binary64)) (pow.f64 J #s(literal 6 binary64)))) #s(literal 1 binary64)))
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* 1/2 (/ U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(* -1 U)
(-.f64 #s(literal 0 binary64) U)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(/ -1/2 J)
(/.f64 #s(literal -1/2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* 2 J)
(*.f64 J #s(literal 2 binary64))
(* 2 J)
(*.f64 J #s(literal 2 binary64))
(* 2 J)
(*.f64 J #s(literal 2 binary64))
(* 2 J)
(*.f64 J #s(literal 2 binary64))
(* 2 J)
(*.f64 J #s(literal 2 binary64))
(* 2 J)
(*.f64 J #s(literal 2 binary64))
(* 2 J)
(*.f64 J #s(literal 2 binary64))
(* 2 J)
(*.f64 J #s(literal 2 binary64))
(* 2 J)
(*.f64 J #s(literal 2 binary64))
(* 2 J)
(*.f64 J #s(literal 2 binary64))
(* 2 J)
(*.f64 J #s(literal 2 binary64))
(* 2 J)
(*.f64 J #s(literal 2 binary64))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -4 (pow J 2))
(.f64 J (.f64 J #s(literal -4 binary64)))
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(.f64 J (+.f64 #s(literal -2 binary64) (.f64 (*.f64 K K) #s(literal 1/4 binary64))))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 (.f64 J (.f64 K K)) (+.f64 (.f64 #s(literal -1/192 binary64) (.f64 K K)) #s(literal 1/4 binary64))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal 1/4 binary64)) (.f64 K (.f64 K (.f64 J (+.f64 #s(literal -1/192 binary64) (.f64 (*.f64 K K) #s(literal 1/23040 binary64)))))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow K 2)))
(+.f64 #s(literal 1 binary64) (.f64 K (.f64 K #s(literal -1/8 binary64))))
(+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) (+.f64 #s(literal -1/8 binary64) (.f64 K (.f64 K #s(literal 1/384 binary64))))))
(+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) (+.f64 #s(literal -1/8 binary64) (.f64 K (.f64 K (+.f64 #s(literal 1/384 binary64) (.f64 (.f64 K K) #s(literal -1/46080 binary64))))))))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(* 1/2 K)
(*.f64 #s(literal 1/2 binary64) K)
(* 1/2 K)
(*.f64 #s(literal 1/2 binary64) K)
(* 1/2 K)
(*.f64 #s(literal 1/2 binary64) K)
(* 1/2 K)
(*.f64 #s(literal 1/2 binary64) K)
(* 1/2 K)
(*.f64 #s(literal 1/2 binary64) K)
(* 1/2 K)
(*.f64 #s(literal 1/2 binary64) K)
(* 1/2 K)
(*.f64 #s(literal 1/2 binary64) K)
(* 1/2 K)
(*.f64 #s(literal 1/2 binary64) K)
(* 1/2 K)
(*.f64 #s(literal 1/2 binary64) K)
(* 1/2 K)
(*.f64 #s(literal 1/2 binary64) K)
(* 1/2 K)
(*.f64 #s(literal 1/2 binary64) K)
(* 1/2 K)
(*.f64 #s(literal 1/2 binary64) K)
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 J)
(*.f64 J #s(literal -4 binary64))
(+ (* -4 J) (* 1/2 (* J (pow K 2))))
(.f64 J (+.f64 #s(literal -4 binary64) (.f64 (*.f64 K K) #s(literal 1/2 binary64))))
(+ (* -4 J) (* (pow K 2) (+ (* -1/96 (* J (pow K 2))) (* 1/2 J))))
(+.f64 (.f64 J #s(literal -4 binary64)) (.f64 (.f64 K K) (.f64 J (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 K K) #s(literal -1/96 binary64))))))
(+ (* -4 J) (* (pow K 2) (+ (* 1/2 J) (* (pow K 2) (+ (* -1/96 J) (* 1/11520 (* J (pow K 2))))))))
(+.f64 (.f64 J #s(literal -4 binary64)) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal 1/2 binary64)) (.f64 (.f64 K K) (.f64 J (+.f64 #s(literal -1/96 binary64) (.f64 #s(literal 1/11520 binary64) (*.f64 K K))))))))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -4 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -4 binary64)))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 J)
(*.f64 #s(literal -2 binary64) J)
(+ (* -2 J) (* 1/4 (* J (pow K 2))))
(.f64 J (+.f64 #s(literal -2 binary64) (.f64 (*.f64 K K) #s(literal 1/4 binary64))))
(+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 (.f64 J (.f64 K K)) (+.f64 (.f64 #s(literal -1/192 binary64) (.f64 K K)) #s(literal 1/4 binary64))))
(+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 (.f64 K K) (+.f64 (.f64 J #s(literal 1/4 binary64)) (.f64 K (.f64 K (.f64 J (+.f64 #s(literal -1/192 binary64) (.f64 (*.f64 K K) #s(literal 1/23040 binary64)))))))))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -2 (* J (cos (* 1/2 K))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))
(* -4 J)
(*.f64 J #s(literal -4 binary64))
(* -4 J)
(*.f64 J #s(literal -4 binary64))
(* -4 J)
(*.f64 J #s(literal -4 binary64))
(* -4 J)
(*.f64 J #s(literal -4 binary64))
(* -4 J)
(*.f64 J #s(literal -4 binary64))
(* -4 J)
(*.f64 J #s(literal -4 binary64))
(* -4 J)
(*.f64 J #s(literal -4 binary64))
(* -4 J)
(*.f64 J #s(literal -4 binary64))
(* -4 J)
(*.f64 J #s(literal -4 binary64))
(* -4 J)
(*.f64 J #s(literal -4 binary64))
(* -4 J)
(*.f64 J #s(literal -4 binary64))
(* -4 J)
(*.f64 J #s(literal -4 binary64))
1
#s(literal 1 binary64)
(+ 1 (* 1/8 (pow K 2)))
(+.f64 #s(literal 1 binary64) (.f64 K (.f64 K #s(literal 1/8 binary64))))
(+ 1 (* (pow K 2) (+ 1/8 (* 5/384 (pow K 2)))))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) (+.f64 #s(literal 1/8 binary64) (.f64 (.f64 K K) #s(literal 5/384 binary64)))))
(+ 1 (* (pow K 2) (+ 1/8 (* (pow K 2) (+ 5/384 (* 61/46080 (pow K 2)))))))
(+.f64 #s(literal 1 binary64) (.f64 K (.f64 K (+.f64 #s(literal 1/8 binary64) (.f64 K (.f64 K (+.f64 #s(literal 5/384 binary64) (.f64 (.f64 K K) #s(literal 61/46080 binary64)))))))))
(/ 1 (cos (* 1/2 K)))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
(/ 1 (cos (* 1/2 K)))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
(/ 1 (cos (* 1/2 K)))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
(/ 1 (cos (* 1/2 K)))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
(/ 1 (cos (* 1/2 K)))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
(/ 1 (cos (* 1/2 K)))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
(/ 1 (cos (* 1/2 K)))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
(/ 1 (cos (* 1/2 K)))
(/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow K 2)))
(+.f64 #s(literal 1 binary64) (.f64 K (.f64 K #s(literal -1/8 binary64))))
(+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) (+.f64 #s(literal -1/8 binary64) (.f64 K (.f64 K #s(literal 1/384 binary64))))))
(+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) (+.f64 #s(literal -1/8 binary64) (.f64 K (.f64 K (+.f64 #s(literal 1/384 binary64) (.f64 (.f64 K K) #s(literal -1/46080 binary64))))))))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos (* 1/2 K))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(/ 1 J)
(/.f64 #s(literal 1 binary64) J)
(+ (* -1/8 (/ (pow K 2) J)) (/ 1 J))
(+.f64 (/.f64 #s(literal 1 binary64) J) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 K K) J)))
(+ (* (pow K 2) (- (* 1/384 (/ (pow K 2) J)) (* 1/8 (/ 1 J)))) (/ 1 J))
(+.f64 (/.f64 #s(literal 1 binary64) J) (.f64 (.f64 K K) (.f64 (/.f64 #s(literal 1 binary64) J) (+.f64 #s(literal -1/8 binary64) (.f64 K (*.f64 K #s(literal 1/384 binary64)))))))
(+ (* (pow K 2) (- (* (pow K 2) (+ (* -1/46080 (/ (pow K 2) J)) (* 1/384 (/ 1 J)))) (* 1/8 (/ 1 J)))) (/ 1 J))
(+.f64 (/.f64 #s(literal 1 binary64) J) (.f64 (.f64 K K) (+.f64 (.f64 (/.f64 (.f64 K K) J) (+.f64 #s(literal 1/384 binary64) (.f64 (.f64 K K) #s(literal -1/46080 binary64)))) (/.f64 #s(literal -1/8 binary64) J))))
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)
(/ (cos (* 1/2 K)) J)
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)

eval172.0ms (1.7%)

Compiler: Compiled 21460 to 2658 computations (87.6% saved)

prune192.0ms (1.9%)

Pruning

28 alts after pruning (20 fresh and 8 done)

	Pruned	Kept	Total
New	1339	12	1351
Fresh	8	8	16
Picked	2	3	5
Done	1	5	6
Total	1350	28	1378

Accuracy

100.0%

Counts

1378 → 28

Alt Table

Click to see full alt table

Status	Accuracy	Program
	68.0%	(/.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
	15.0%	(/.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
✓	25.5%	(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
	31.6%	(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))
	46.5%	(/.f64 (/.f64 J #s(literal 1/2 binary64)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
	46.5%	(/.f64 (+.f64 (.f64 #s(literal -2 binary64) J) (/.f64 (.f64 #s(literal -1/4 binary64) (*.f64 U U)) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
	26.2%	(/.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
✓	68.1%	(/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))) (*.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
✓	25.5%	(/.f64 (.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal 2 binary64))
	46.4%	(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
	28.4%	(/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) J))
	9.9%	(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)) (.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) J)))
	46.3%	(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
	16.3%	(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal -1/2 binary64) (.f64 J J)) J))
	46.4%	(/.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
	46.6%	(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J #s(literal -2 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 U U) J)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))))
	9.4%	(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
	9.8%	(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) J)) (/.f64 #s(literal -1/2 binary64) (.f64 J J)))
	16.4%	(.f64 (/.f64 (.f64 J J) J) #s(literal -2 binary64))
	28.5%	(.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J #s(literal -4 binary64))) J)
✓	85.5%	(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
	56.8%	(.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 U J))))
✓	46.4%	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J)))
✓	46.5%	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
	26.2%	(.f64 J (+.f64 #s(literal -2 binary64) (.f64 (*.f64 K K) #s(literal 1/4 binary64))))
✓	28.5%	(*.f64 #s(literal -2 binary64) J)
	43.5%	(neg.f64 U)
✓	15.0%	U

Compiler

Compiled 1212 to 502 computations (58.6% saved)

regimes104.0ms (1%)

Counts

54 → 3

Calls

Call 1

Inputs
U
(neg.f64 U)
(*.f64 #s(literal -2 binary64) J)
(-.f64 #s(literal 0 binary64) U)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) J))
(.f64 (/.f64 (.f64 J J) J) #s(literal -2 binary64))
(.f64 J (+.f64 #s(literal -2 binary64) (.f64 (*.f64 K K) #s(literal 1/4 binary64))))
(.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J #s(literal -4 binary64))) J)
(.f64 (/.f64 (.f64 J J) #s(literal 2 binary64)) (/.f64 #s(literal -4 binary64) J))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal -1/2 binary64) (.f64 J J)) J))
(/.f64 (/.f64 (.f64 (.f64 J J) #s(literal -4 binary64)) J) #s(literal 2 binary64))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 K K) J)))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 J (.f64 #s(literal 1/4 binary64) (.f64 K K))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 J #s(literal 2 binary64)) (.f64 J (*.f64 J #s(literal -4 binary64)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))
(/.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) J)) (/.f64 #s(literal -1/2 binary64) (.f64 J J)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)) (.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) J)))
(/.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J)))
(/.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 J #s(literal 1/2 binary64)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 U J))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(/.f64 (.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal 2 binary64))
(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (*.f64 J #s(literal -2 binary64)))
(/.f64 (+.f64 (.f64 #s(literal -2 binary64) J) (/.f64 (.f64 #s(literal -1/4 binary64) (*.f64 U U)) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J))))
(/.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (.f64 U #s(literal 1/2 binary64)) J))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))) (*.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 U U) J)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) J)))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J #s(literal -2 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 U U) J)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))))
(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (.f64 (/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 #s(literal 4 binary64) J) J)) (+.f64 #s(literal 0 binary64) (.f64 #s(literal 2 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(.f64 (/.f64 (-.f64 #s(literal 0 binary64) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))) (.f64 (.f64 #s(literal 4 binary64) J) J))) (+.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) J)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (.f64 (/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (.f64 #s(literal 2 binary64) J) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (+.f64 (.f64 (.f64 #s(literal 4 binary64) J) J) (.f64 #s(literal 0 binary64) (.f64 #s(literal 2 binary64) J))))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal -2 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))) #s(literal 1/4 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (/.f64 U J) (.f64 #s(literal 4 binary64) (/.f64 J U))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 K))))) #s(literal 1/4 binary64)))

Outputs

(neg.f64 U)

(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))

Calls

6 calls:

19.0ms	K
18.0ms	(cos.f64 (/.f64 K #s(literal 2 binary64)))
17.0ms	(/.f64 K #s(literal 2 binary64))
17.0ms	U
15.0ms	J

Results

Accuracy	Segments	Branch
87.2%	2	`J`
85.5%	1	`K`
91.4%	2	`U`
99.8%	3	`(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))`
85.5%	1	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
85.5%	1	`(/.f64 K #s(literal 2 binary64))`

Compiler

Compiled 52 to 37 computations (28.8% saved)

regimes20.0ms (0.2%)

Counts

50 → 2

Calls

Call 1

Inputs
U
(neg.f64 U)
(*.f64 #s(literal -2 binary64) J)
(-.f64 #s(literal 0 binary64) U)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) J))
(.f64 (/.f64 (.f64 J J) J) #s(literal -2 binary64))
(.f64 J (+.f64 #s(literal -2 binary64) (.f64 (*.f64 K K) #s(literal 1/4 binary64))))
(.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J #s(literal -4 binary64))) J)
(.f64 (/.f64 (.f64 J J) #s(literal 2 binary64)) (/.f64 #s(literal -4 binary64) J))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal -1/2 binary64) (.f64 J J)) J))
(/.f64 (/.f64 (.f64 (.f64 J J) #s(literal -4 binary64)) J) #s(literal 2 binary64))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 K K) J)))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 J (.f64 #s(literal 1/4 binary64) (.f64 K K))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 J #s(literal 2 binary64)) (.f64 J (*.f64 J #s(literal -4 binary64)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))
(/.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) J)) (/.f64 #s(literal -1/2 binary64) (.f64 J J)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)) (.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) J)))
(/.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J)))
(/.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 J #s(literal 1/2 binary64)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 U J))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(/.f64 (.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal 2 binary64))
(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (*.f64 J #s(literal -2 binary64)))
(/.f64 (+.f64 (.f64 #s(literal -2 binary64) J) (/.f64 (.f64 #s(literal -1/4 binary64) (*.f64 U U)) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J))))
(/.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (.f64 U #s(literal 1/2 binary64)) J))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))) (*.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 U U) J)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) J)))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J #s(literal -2 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 U U) J)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))))
(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (.f64 (/.f64 (-.f64 #s(literal 0 binary64) (.f64 (.f64 #s(literal 4 binary64) J) J)) (+.f64 #s(literal 0 binary64) (.f64 #s(literal 2 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (pow.f64 (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1/2 binary64)))

Outputs

(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (*.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))

(neg.f64 U)

Calls

1 calls:

15.0ms

Results

Accuracy	Segments	Branch
91.4%	2	`U`

Compiler

Compiled 4 to 3 computations (25% saved)

regimes98.0ms (1%)

Counts

45 → 2

Calls

Call 1

Inputs
U
(neg.f64 U)
(*.f64 #s(literal -2 binary64) J)
(-.f64 #s(literal 0 binary64) U)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) J))
(.f64 (/.f64 (.f64 J J) J) #s(literal -2 binary64))
(.f64 J (+.f64 #s(literal -2 binary64) (.f64 (*.f64 K K) #s(literal 1/4 binary64))))
(.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J #s(literal -4 binary64))) J)
(.f64 (/.f64 (.f64 J J) #s(literal 2 binary64)) (/.f64 #s(literal -4 binary64) J))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal -1/2 binary64) (.f64 J J)) J))
(/.f64 (/.f64 (.f64 (.f64 J J) #s(literal -4 binary64)) J) #s(literal 2 binary64))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 K K) J)))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 J (.f64 #s(literal 1/4 binary64) (.f64 K K))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 J #s(literal 2 binary64)) (.f64 J (*.f64 J #s(literal -4 binary64)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))
(/.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) J)) (/.f64 #s(literal -1/2 binary64) (.f64 J J)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)) (.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) J)))
(/.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J)))
(/.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 J #s(literal 1/2 binary64)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 U J))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(/.f64 (.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal 2 binary64))
(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (*.f64 J #s(literal -2 binary64)))
(/.f64 (+.f64 (.f64 #s(literal -2 binary64) J) (/.f64 (.f64 #s(literal -1/4 binary64) (*.f64 U U)) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J))))
(/.f64 (hypot.f64 #s(literal 1 binary64) (*.f64 U (/.f64 #s(literal 1/2 binary64) J))) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal 1 binary64) (/.f64 (.f64 U #s(literal 1/2 binary64)) J))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (.f64 (hypot.f64 #s(literal 1 binary64) (/.f64 U (.f64 #s(literal 2 binary64) J))) (*.f64 #s(literal -2 binary64) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 U U) J)) (cos.f64 (.f64 #s(literal 1/2 binary64) K))))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 #s(literal -2 binary64) J)) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 U U)) (.f64 (cos.f64 (*.f64 K #s(literal 1/2 binary64))) J)))
(+.f64 (.f64 (cos.f64 (.f64 K #s(literal 1/2 binary64))) (.f64 J #s(literal -2 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 U U) J)) (cos.f64 (.f64 K #s(literal 1/2 binary64)))))

Outputs
(.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J))))
(neg.f64 U)

Calls

5 calls:

38.0ms	U
15.0ms	(cos.f64 (/.f64 K #s(literal 2 binary64)))
14.0ms	J
14.0ms	(/.f64 K #s(literal 2 binary64))
13.0ms	K

Results

Accuracy	Segments	Branch
75.6%	4	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
68.1%	1	`K`
68.1%	1	`(/.f64 K #s(literal 2 binary64))`
78.2%	2	`J`
79.6%	2	`U`

Compiler

Compiled 25 to 20 computations (20% saved)

regimes26.0ms (0.3%)

Counts

37 → 3

Calls

Call 1

Inputs
U
(neg.f64 U)
(*.f64 #s(literal -2 binary64) J)
(-.f64 #s(literal 0 binary64) U)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) J))
(.f64 (/.f64 (.f64 J J) J) #s(literal -2 binary64))
(.f64 J (+.f64 #s(literal -2 binary64) (.f64 (*.f64 K K) #s(literal 1/4 binary64))))
(.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J #s(literal -4 binary64))) J)
(.f64 (/.f64 (.f64 J J) #s(literal 2 binary64)) (/.f64 #s(literal -4 binary64) J))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal -1/2 binary64) (.f64 J J)) J))
(/.f64 (/.f64 (.f64 (.f64 J J) #s(literal -4 binary64)) J) #s(literal 2 binary64))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 K K) J)))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 J (.f64 #s(literal 1/4 binary64) (.f64 K K))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 J #s(literal 2 binary64)) (.f64 J (*.f64 J #s(literal -4 binary64)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))
(/.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) J)) (/.f64 #s(literal -1/2 binary64) (.f64 J J)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)) (.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) J)))
(/.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J)))
(/.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 J #s(literal 1/2 binary64)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 U J))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)))
(.f64 (/.f64 (.f64 #s(literal -4 binary64) (*.f64 J J)) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J))
(/.f64 (.f64 (.f64 J (*.f64 J #s(literal -4 binary64))) (/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) J)) #s(literal 2 binary64))
(/.f64 (/.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
(.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 U U) #s(literal 1/4 binary64)) (.f64 J J)))) (*.f64 J #s(literal -2 binary64)))
(/.f64 (+.f64 (.f64 #s(literal -2 binary64) J) (/.f64 (.f64 #s(literal -1/4 binary64) (*.f64 U U)) J)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))

Outputs

(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))

(*.f64 (*.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 U J))))

(neg.f64 U)

Calls

2 calls:

12.0ms	U
11.0ms	J

Results

Accuracy	Segments	Branch
71.2%	3	`J`
74.6%	3	`U`

Compiler

Compiled 8 to 6 computations (25% saved)

regimes50.0ms (0.5%)

Counts

29 → 2

Calls

Call 1

Inputs
U
(neg.f64 U)
(*.f64 #s(literal -2 binary64) J)
(-.f64 #s(literal 0 binary64) U)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) J))
(.f64 (/.f64 (.f64 J J) J) #s(literal -2 binary64))
(.f64 J (+.f64 #s(literal -2 binary64) (.f64 (*.f64 K K) #s(literal 1/4 binary64))))
(.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J #s(literal -4 binary64))) J)
(.f64 (/.f64 (.f64 J J) #s(literal 2 binary64)) (/.f64 #s(literal -4 binary64) J))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal -1/2 binary64) (.f64 J J)) J))
(/.f64 (/.f64 (.f64 (.f64 J J) #s(literal -4 binary64)) J) #s(literal 2 binary64))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 K K) J)))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 J (.f64 #s(literal 1/4 binary64) (.f64 K K))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 J #s(literal 2 binary64)) (.f64 J (*.f64 J #s(literal -4 binary64)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))
(/.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) J)) (/.f64 #s(literal -1/2 binary64) (.f64 J J)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)) (.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) J)))
(/.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal -1/2 binary64) J))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J)))
(/.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1/2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(/.f64 (*.f64 #s(literal -2 binary64) J) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 J #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 J #s(literal 1/2 binary64)) (/.f64 #s(literal -1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))

Outputs
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64)))
(neg.f64 U)

Calls

5 calls:

12.0ms	K
10.0ms	(/.f64 K #s(literal 2 binary64))
9.0ms	U
8.0ms	J
8.0ms	(cos.f64 (/.f64 K #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
68.1%	2	`J`
55.2%	4	`K`
55.2%	4	`(/.f64 K #s(literal 2 binary64))`
58.5%	3	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
69.5%	2	`U`

Compiler

Compiled 25 to 20 computations (20% saved)

regimes15.0ms (0.1%)

Counts

20 → 2

Calls

Call 1

Inputs
U
(neg.f64 U)
(*.f64 #s(literal -2 binary64) J)
(-.f64 #s(literal 0 binary64) U)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) J))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) J))
(.f64 (/.f64 (.f64 J J) J) #s(literal -2 binary64))
(.f64 J (+.f64 #s(literal -2 binary64) (.f64 (*.f64 K K) #s(literal 1/4 binary64))))
(.f64 (.f64 (/.f64 #s(literal 1/2 binary64) J) (*.f64 J #s(literal -4 binary64))) J)
(.f64 (/.f64 (.f64 J J) #s(literal 2 binary64)) (/.f64 #s(literal -4 binary64) J))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal -1/2 binary64) (.f64 J J)) J))
(/.f64 (/.f64 (.f64 (.f64 J J) #s(literal -4 binary64)) J) #s(literal 2 binary64))
(+.f64 (.f64 #s(literal -2 binary64) J) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 K K) J)))
(+.f64 (.f64 J #s(literal -2 binary64)) (.f64 J (.f64 #s(literal 1/4 binary64) (.f64 K K))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 J #s(literal 2 binary64)) (.f64 J (*.f64 J #s(literal -4 binary64)))))
(/.f64 (/.f64 (.f64 U #s(literal 1/2 binary64)) J) (/.f64 #s(literal 1 binary64) (.f64 #s(literal -2 binary64) J)))
(/.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) J)))
(.f64 (/.f64 (.f64 J (.f64 J #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) J)) (/.f64 #s(literal -1/2 binary64) (.f64 J J)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 #s(literal -4 binary64) (.f64 J J)) #s(literal 2 binary64)) (.f64 (.f64 J (*.f64 J #s(literal 4 binary64))) J)))
(/.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 K K) #s(literal -1/8 binary64))) (.f64 #s(literal -4 binary64) (*.f64 J J))) J) #s(literal 2 binary64))

Outputs
(*.f64 #s(literal -2 binary64) J)
(neg.f64 U)

Calls

2 calls:

8.0ms	U
6.0ms	J

Results

Accuracy	Segments	Branch
54.5%	2	`J`
56.4%	2	`U`

Compiler

Compiled 8 to 6 computations (25% saved)

regimes5.0ms (0.1%)

Counts

2 → 1

Calls

Call 1

Inputs
U
(neg.f64 U)

Outputs
(neg.f64 U)

Calls

3 calls:

2.0ms	J
2.0ms	K
2.0ms	U

Results

Accuracy	Segments	Branch
43.5%	1	`K`
43.5%	1	`J`
43.5%	1	`U`

Compiler

Compiled 12 to 9 computations (25% saved)

regimes6.0ms (0.1%)

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs
U

Outputs
U

Calls

3 calls:

3.0ms	U
1.0ms	J
1.0ms	K

Results

Accuracy	Segments	Branch
15.0%	1	`J`
15.0%	1	`U`
15.0%	1	`K`

Compiler

Compiled 12 to 9 computations (25% saved)

bsearch1.0ms (0%)

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.1035164461187643e+285	5.2825989023968475e+289
0.0ms	-inf	-5.9842708845749425e+298

Compiler

Compiled 33 to 22 computations (33.3% saved)

bsearch30.0ms (0.3%)

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
28.0ms	4.742830972250627e+109	1.739762738949016e+114

Results

22.0ms

128×

valid

Compiler

Compiled 281 to 190 computations (32.4% saved)

Precisions

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

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

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

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

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

ival-sqrt: 1.0ms (8.3% of total)

ival-pow: 1.0ms (8.3% of total)

const: 0.0ms (0% of total)

backward-pass: 0.0ms (0% of total)

bsearch26.0ms (0.2%)

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
23.0ms	4.742830972250627e+109	1.739762738949016e+114

Results

19.0ms

128×

valid

Compiler

Compiled 241 to 190 computations (21.2% saved)

Precisions

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

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

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

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

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

ival-sqrt: 1.0ms (7.4% of total)

ival-pow: 1.0ms (7.4% of total)

const: 0.0ms (0% of total)

backward-pass: 0.0ms (0% of total)

bsearch164.0ms (1.6%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
23.0ms	4.742830972250627e+109	1.739762738949016e+114
126.0ms	1.062021115621949e-152	3.537233699335365e-148

Results

140.0ms

256×

valid

Compiler

Compiled 417 to 334 computations (19.9% saved)

Precisions

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

ival-mult: 112.0ms (86.3% of total)

ival-div: 6.0ms (4.6% of total)

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

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

ival-sqrt: 2.0ms (1.5% of total)

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

const: 1.0ms (0.8% of total)

backward-pass: 0.0ms (0% of total)

bsearch18.0ms (0.2%)

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
16.0ms	1.8911898566337065e+28	2.203281965359898e+29

Results

13.0ms

96×

valid

Compiler

Compiled 141 to 112 computations (20.6% saved)

Precisions

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

ival-mult: 3.0ms (33.3% of total)

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

ival-div: 1.0ms (11.1% of total)

ival-sqrt: 1.0ms (11.1% of total)

ival-pow: 1.0ms (11.1% of total)

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

const: 0.0ms (0% of total)

backward-pass: 0.0ms (0% of total)

bsearch22.0ms (0.2%)

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
19.0ms	7.964197933560293e-155	1.062021115621949e-152

Results

15.0ms

112×

valid

Compiler

Compiled 124 to 99 computations (20.2% saved)

Precisions

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

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

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

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

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

ival-sqrt: 1.0ms (9.6% of total)

ival-pow: 1.0ms (9.6% of total)

const: 0.0ms (0% of total)

backward-pass: 0.0ms (0% of total)

simplify11.0ms (0.1%)

Algorithm

1×	egg-herbie

Rules

24×	`*-commutative_binary64`
4×	`+-commutative_binary64`
2×	`sub-neg_binary64`
2×	`1-exp_binary64`
2×	`neg-sub0_binary64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	57	185
1	75	185
2	77	185
3	78	185

Stop Event

1×

saturated

Calls

Call 1

Inputs
(if (<=.f64 (.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))) #s(literal -inf.0 binary64)) (neg.f64 U) (if (<=.f64 (.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))) #s(literal 1999999999999999960318315841040885700386219039705694423600051421123300719965076170448177232372292987688572298794442900745238641790877787395895304332910450668118745492827496294412886841783505081241175060724440547726013803102191981415396885683051819084945689177376162160752265237201158144 binary64)) (.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))) U))
(if (<=.f64 U #s(literal 1700000000000000026451007420093633141255942374765804436728609986732417427980084695550475162855580661049550677475328 binary64)) (.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (neg.f64 U))
(if (<=.f64 U #s(literal 200000000000000003111883225893368604853640279384212286673954116086166756232951140652997077983009489535241256173568 binary64)) (.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J)))) (neg.f64 U))
(if (<=.f64 U #s(literal 1259695862472095/3599131035634557106248430806148785487095757694641533306480604458089470064537190296255232548883112685719936728506816716098566612844395439751206812144692131084107776 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))) (if (<=.f64 U #s(literal 229999999999999996743507194830461631917616861549277362946392761957802905837360666719843517182411152892048766402560 binary64)) (.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J)))) (neg.f64 U)))
(if (<=.f64 U #s(literal 35999999999999999378840354816 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64))) (neg.f64 U))
(if (<=.f64 U #s(literal 1226537788067001/471745303102692669030194322623533611364615152552055053547025787530703020299018606510765840647207345942683546878845480612471323078740599079070179281429087005456174415872 binary64)) (*.f64 #s(literal -2 binary64) J) (neg.f64 U))
(neg.f64 U)
U

Outputs
(if (<=.f64 (.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))) #s(literal -inf.0 binary64)) (neg.f64 U) (if (<=.f64 (.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))) #s(literal 1999999999999999960318315841040885700386219039705694423600051421123300719965076170448177232372292987688572298794442900745238641790877787395895304332910450668118745492827496294412886841783505081241175060724440547726013803102191981415396885683051819084945689177376162160752265237201158144 binary64)) (.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))) U))
(if (<=.f64 (.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal 2 binary64)))) #s(literal 2 binary64))))) #s(literal -inf.0 binary64)) (-.f64 #s(literal 0 binary64) U) (if (<=.f64 (.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 J #s(literal 2 binary64)))) #s(literal 2 binary64))))) #s(literal 1999999999999999960318315841040885700386219039705694423600051421123300719965076170448177232372292987688572298794442900745238641790877787395895304332910450668118745492827496294412886841783505081241175060724440547726013803102191981415396885683051819084945689177376162160752265237201158144 binary64)) (.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal 2 binary64)))) #s(literal 2 binary64))))) U))
(if (<=.f64 U #s(literal 1700000000000000026451007420093633141255942374765804436728609986732417427980084695550475162855580661049550677475328 binary64)) (.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (neg.f64 U))
(if (<=.f64 U #s(literal 1700000000000000026451007420093633141255942374765804436728609986732417427980084695550475162855580661049550677475328 binary64)) (.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (.f64 J #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (-.f64 #s(literal 0 binary64) U))
(if (<=.f64 U #s(literal 200000000000000003111883225893368604853640279384212286673954116086166756232951140652997077983009489535241256173568 binary64)) (.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J)))) (neg.f64 U))
(if (<=.f64 U #s(literal 200000000000000003111883225893368604853640279384212286673954116086166756232951140652997077983009489535241256173568 binary64)) (.f64 (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J)))) (-.f64 #s(literal 0 binary64) U))
(if (<=.f64 U #s(literal 1259695862472095/3599131035634557106248430806148785487095757694641533306480604458089470064537190296255232548883112685719936728506816716098566612844395439751206812144692131084107776 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (.f64 J #s(literal -2 binary64))) (if (<=.f64 U #s(literal 229999999999999996743507194830461631917616861549277362946392761957802905837360666719843517182411152892048766402560 binary64)) (.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J)))) (neg.f64 U)))
(if (<=.f64 U #s(literal 1259695862472095/3599131035634557106248430806148785487095757694641533306480604458089470064537190296255232548883112685719936728506816716098566612844395439751206812144692131084107776 binary64)) (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (.f64 K #s(literal 1/2 binary64)))) (if (<=.f64 U #s(literal 229999999999999996743507194830461631917616861549277362946392761957802905837360666719843517182411152892048766402560 binary64)) (.f64 (.f64 #s(literal -2 binary64) J) (hypot.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 U J)))) (-.f64 #s(literal 0 binary64) U)))
(if (<=.f64 U #s(literal 35999999999999999378840354816 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) K)) (*.f64 J #s(literal -2 binary64))) (neg.f64 U))
(if (<=.f64 U #s(literal 35999999999999999378840354816 binary64)) (.f64 (.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 K #s(literal 1/2 binary64)))) (-.f64 #s(literal 0 binary64) U))
(if (<=.f64 U #s(literal 1226537788067001/471745303102692669030194322623533611364615152552055053547025787530703020299018606510765840647207345942683546878845480612471323078740599079070179281429087005456174415872 binary64)) (*.f64 #s(literal -2 binary64) J) (neg.f64 U))
(if (<=.f64 U #s(literal 1226537788067001/471745303102692669030194322623533611364615152552055053547025787530703020299018606510765840647207345942683546878845480612471323078740599079070179281429087005456174415872 binary64)) (*.f64 #s(literal -2 binary64) J) (-.f64 #s(literal 0 binary64) U))
(neg.f64 U)
(-.f64 #s(literal 0 binary64) U)
U

soundness1.0s (10.1%)

Rules

6680×	`-lowering-.f32`
6680×	`-lowering-.f64`
6318×	`-lowering-.f32`
6318×	`-lowering-.f64`
3910×	`-lowering-.f32`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	389	5504
1	1370	4713
2	5881	4506
0	8594	4506
0	390	5830
1	1374	5184
2	5725	5038
0	8206	5038
0	17	24
1	33	21
2	79	21
3	206	21
4	619	21
5	1133	21
6	1568	21
7	1630	21
8	1648	21
9	1666	21
10	1674	21
11	1676	21
12	1676	21
0	1676	21
0	36	132
1	187	109
2	1305	109
0	8643	109

Stop Event

1×	fuel
1×	iter limit
1×	node limit
1×	iter limit
1×	saturated
1×	iter limit
1×	node limit
1×	iter limit
1×	node limit

Compiler

Compiled 443 to 243 computations (45.1% saved)

preprocess175.0ms (1.7%)

Remove: (abs K)
Compiler: Compiled 2144 to 646 computations (69.9% saved)

analyze415.0ms (4%)

sample1.9s (18.9%)

preprocess109.0ms (1.1%)

explain245.0ms (2.4%)

eval0.0ms (0%)

prune1.0ms (0%)

simplify67.0ms (0.7%)

localize141.0ms (1.4%)

series44.0ms (0.4%)

rewrite230.0ms (2.2%)

simplify303.0ms (2.9%)

eval109.0ms (1.1%)

prune92.0ms (0.9%)

simplify185.0ms (1.8%)

localize233.0ms (2.3%)

series27.0ms (0.3%)

rewrite307.0ms (3%)

simplify288.0ms (2.8%)

eval218.0ms (2.1%)

prune187.0ms (1.8%)

simplify270.0ms (2.6%)

localize190.0ms (1.9%)

series15.0ms (0.1%)

rewrite543.0ms (5.3%)

simplify334.0ms (3.2%)

eval242.0ms (2.4%)

prune236.0ms (2.3%)

simplify196.0ms (1.9%)

localize236.0ms (2.3%)

series17.0ms (0.2%)

rewrite338.0ms (3.3%)

simplify348.0ms (3.4%)

eval172.0ms (1.7%)

prune192.0ms (1.9%)

regimes104.0ms (1%)

regimes20.0ms (0.2%)

regimes98.0ms (1%)

regimes26.0ms (0.3%)

regimes50.0ms (0.5%)

regimes15.0ms (0.1%)

regimes5.0ms (0.1%)

regimes6.0ms (0.1%)

bsearch1.0ms (0%)

bsearch30.0ms (0.3%)

bsearch26.0ms (0.2%)

bsearch164.0ms (1.6%)

bsearch18.0ms (0.2%)

bsearch22.0ms (0.2%)

simplify11.0ms (0.1%)

soundness1.0s (10.1%)

preprocess175.0ms (1.7%)

end0.0ms (0%)

Profiling