Metrics for Toniolo and Linder, Equation (10-)

start0.0ms (0%)

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

analyze821.0ms (3.8%)

Memory

-16.1MiB live, 992.0MiB allocated; 239ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.9%	0.1%	0%	0%	0%	0
0%	0%	99.9%	0.1%	0%	0%	0%	1
0%	0%	99.9%	0.1%	0%	0%	0%	2
0%	0%	99.9%	0.1%	0%	0%	0%	3
0%	0%	99.9%	0.1%	0%	0%	0%	4
0%	0%	99.9%	0.1%	0%	0%	0%	5
0%	0%	99.9%	0.1%	0%	0%	0%	6
0%	0%	99.9%	0.1%	0%	0%	0%	7
0%	0%	99.9%	0.1%	0%	0%	0%	8
0%	0%	99.9%	0.1%	0%	0%	0%	9
2%	2%	97.9%	0.1%	0%	0%	0%	10
2.9%	2.9%	96.9%	0.1%	0%	0%	0%	11
3.8%	3.8%	96.1%	0.1%	0%	0%	0%	12

Compiler

Compiled 27 to 21 computations (22.2% saved)

sample3.3s (15.2%)

Memory

18.0MiB live, 3 638.3MiB allocated; 1.5s collecting garbage

Samples

842.0ms	4 310×	0	valid
684.0ms	1 167×	1	valid
665.0ms	1 519×	2	valid
585.0ms	1 256×	3	valid
2.0ms	4×	4	valid

Precisions

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

adjust: 823.0ms (34.2% of total)

ival-mult: 289.0ms (12% of total)

ival-div: 279.0ms (11.6% of total)

ival-sin: 216.0ms (9% of total)

ival-tan: 199.0ms (8.3% of total)

ival-pow2: 192.0ms (8% of total)

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

ival-add: 151.0ms (6.3% of total)

ival-sub: 78.0ms (3.2% of total)

exact: 15.0ms (0.6% of total)

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

Bogosity

explain373.0ms (1.7%)

Memory

-3.6MiB live, 579.9MiB allocated; 69ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
80	-	2	(3.232024325399279e-80 1.661153165081509e-27 2.5682575911961785e-66)	`(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))`
67	-	1	(-1.1019375230853777e-49 4.448177169683431e-156 -2.156627450462613e+165)	`(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))`
57	-	0	-	`(-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))`
16	-	0	-	`(.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l)) (sin.f64 k)) (tan.f64 k))`
11	-	0	-	`(.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k))`
1	-	0	-	`(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))`
0	-	0	-	`k`
0	-	0	-	`(/.f64 k t)`
0	-	0	-	`t`
0	-	0	-	`#s(literal 1 binary64)`
0	-	0	-	`#s(literal 3 binary64)`
0	-	0	-	`(tan.f64 k)`
0	-	0	-	`(pow.f64 (/.f64 k t) #s(literal 2 binary64))`
0	-	0	-	`(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64)))`
0	-	0	-	`(*.f64 l l)`
0	-	0	-	`(sin.f64 k)`
0	-	0	-	`(pow.f64 t #s(literal 3 binary64))`
0	-	0	-	`#s(literal 2 binary64)`
0	-	0	-	`l`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`-.f64`	`(-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))`	cancellation	57	0
`*.f64`	`(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))`	*uo**	42	0
↳	`(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))`	underflow	85
↳	`(.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l)) (sin.f64 k)) (tan.f64 k))`	underflow	111
↳	`(.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k))`	underflow	101
↳	`(pow.f64 t #s(literal 3 binary64))`	underflow	90
↳	`(*.f64 l l)`	underflow	68
↳	`(/.f64 k t)`	overflow	33
↳	`(-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))`	overflow	63
↳	`(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64)))`	overflow	63
↳	`(pow.f64 (/.f64 k t) #s(literal 2 binary64))`	overflow	63
`/.f64`	`(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))`	u/u	23	0
↳	`(pow.f64 t #s(literal 3 binary64))`	underflow	90
↳	`(*.f64 l l)`	underflow	68
`*.f64`	`(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))`	*ou**	22	0
↳	`(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))`	overflow	86
↳	`(.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l)) (sin.f64 k)) (tan.f64 k))`	overflow	59
↳	`(.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k))`	overflow	75
↳	`(pow.f64 t #s(literal 3 binary64))`	overflow	78
↳	`(*.f64 l l)`	overflow	51
↳	`(/.f64 k t)`	underflow	32
↳	`(-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))`	underflow	65
↳	`(pow.f64 (/.f64 k t) #s(literal 2 binary64))`	underflow	65
`*.f64`	`(.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l)) (sin.f64 k)) (tan.f64 k))`	*no**	16	0
`/.f64`	`(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))`	o/o	13	0
↳	`(pow.f64 t #s(literal 3 binary64))`	overflow	78
↳	`(*.f64 l l)`	overflow	51
`*.f64`	`(.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k))`	*no**	11	0
`/.f64`	`(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))`	o/n	8	0
↳	`(pow.f64 t #s(literal 3 binary64))`	overflow	78
`/.f64`	`(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))`	n/o	8	0
↳	`(*.f64 l l)`	overflow	51
`*.f64`	`(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))`	*nu**	8	0
`/.f64`	`(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))`	n/u	7	0
↳	`(*.f64 l l)`	underflow	68
`/.f64`	`(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))`	u/n	7	0
↳	`(pow.f64 t #s(literal 3 binary64))`	underflow	90
`*.f64`	`(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))`	*no**	6	0
`/.f64`	`(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))`	n/o	1	0
↳	`(.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l)) (sin.f64 k)) (tan.f64 k))`	overflow	59
↳	`(.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k))`	overflow	75
↳	`(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))`	overflow	69
↳	`(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64)))`	overflow	63
↳	`(/.f64 k t)`	overflow	33
↳	`(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))`	overflow	86
↳	`(pow.f64 t #s(literal 3 binary64))`	overflow	78
↳	`(-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))`	overflow	63
↳	`(*.f64 l l)`	overflow	51
↳	`(pow.f64 (/.f64 k t) #s(literal 2 binary64))`	overflow	63

Confusion

	Predicted +	Predicted -
+	162	1
-	28	65

Precision

0.8526315789473684

Recall

0.9938650306748467

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	162	0	1
-	28	0	65

Precision?

0.8526315789473684

Recall?

0.9938650306748467

Freqs

test

number	freq
0	66
1	152
2	37
3	1

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

56.0ms	268×	0	valid
50.0ms	96×	2	valid
43.0ms	88×	3	valid
21.0ms	60×	1	valid

Compiler

Compiled 265 to 61 computations (77% saved)

Precisions

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

adjust: 36.0ms (28% of total)

ival-mult: 18.0ms (14% of total)

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

ival-pow2: 13.0ms (10.1% of total)

ival-tan: 11.0ms (8.5% of total)

ival-sin: 11.0ms (8.5% of total)

ival-pow: 10.0ms (7.8% of total)

ival-sub: 5.0ms (3.9% of total)

ival-add: 5.0ms (3.9% of total)

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

exact: 1.0ms (0.8% of total)

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

preprocess118.0ms (0.5%)

Memory

18.9MiB live, 165.4MiB allocated; 6ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	86	256
1	250	230
2	1176	210
3	7995	210
0	19	25
0	32	25
1	62	23
2	207	21
3	1441	21
0	8763	17

Stop Event

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

Calls

Call 1

Inputs

(/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))

Outputs

(/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))

(/.f64 (/.f64 #s(literal 2 binary64) (ratio-of-squares.f64 k t)) (*.f64 (tan.f64 k) (*.f64 (ratio-of-squares.f64 t l) (*.f64 (sin.f64 k) t))))

Symmetry

(abs l)

(abs k)

(negabs t)

Compiler

Compiled 25 to 19 computations (24% saved)

eval0.0ms (0%)

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

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	36.9%	(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))

Status

Accuracy

Program

▶

36.9%

(/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))

Compiler

Compiled 25 to 19 computations (24% saved)

series68.0ms (0.3%)

Memory

9.6MiB live, 112.0MiB allocated; 6ms collecting garbage

Counts

19 → 44

Calls

Call 1

Inputs
(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(literal 2 binary64)
(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))
(.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l)) (sin.f64 k)) (tan.f64 k))
(.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k))
(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))
(pow.f64 t #s(literal 3 binary64))
t
#s(literal 3 binary64)
(*.f64 l l)
l
(sin.f64 k)
k
(tan.f64 k)
(-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64)))
#s(literal 1 binary64)
(pow.f64 (/.f64 k t) #s(literal 2 binary64))
(/.f64 k t)

Outputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (/ (* (pow k 2) (* t (pow (sin k) 2))) (* (pow l 2) (cos k)))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (/ (* (pow t 3) (pow (sin k) 2)) (* (pow l 2) (cos k)))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (/ (* (pow t 3) (sin k)) (pow l 2))))
#s(approx (/ (pow t 3) (* l l)) #s(hole binary64 (/ (pow t 3) (pow l 2))))
#s(approx (pow t 3) #s(hole binary64 (pow t 3)))
#s(approx t #s(hole binary64 t))
#s(approx (- (+ 1 (pow (/ k t) 2)) 1) #s(hole binary64 (/ (pow k 2) (pow t 2))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (/ (pow k 2) (pow t 2))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (/ (+ (pow k 2) (pow t 2)) (pow t 2))))
#s(approx (pow (/ k t) 2) #s(hole binary64 (/ (pow k 2) (pow t 2))))
#s(approx (/ k t) #s(hole binary64 (/ k t)))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 1))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (+ 1 (/ (pow k 2) (pow t 2)))))
#s(approx (* l l) #s(hole binary64 (pow l 2)))
#s(approx l #s(hole binary64 l))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* -1/3 (/ (* (pow k 2) (pow l 2)) t)) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* -2 (* (pow k 2) (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t))))) (* -1/3 (/ (pow l 2) t))))) (pow k 4))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* -1/3 (/ (pow l 2) t)) (* (pow k 2) (+ (* -2 (* (pow k 2) (+ (* -1/6 (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t)))) (+ (* -31/2160 (/ (pow l 2) t)) (* 173/5040 (/ (pow l 2) t)))))) (* -2 (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t))))))))) (pow k 4))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (/ (* (pow k 4) t) (pow l 2))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* 1/6 (/ (* (pow k 2) t) (pow l 2))) (/ t (pow l 2))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) t) (pow l 2))) (* 1/6 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 1/6 (/ t (pow l 2))) (* (pow k 2) (+ (* 173/5040 (/ (* (pow k 2) t) (pow l 2))) (* 31/360 (/ t (pow l 2))))))) (/ t (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (/ (* (pow k 2) (pow t 3)) (pow l 2))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* 1/6 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (* 1/6 (/ (pow t 3) (pow l 2))))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (+ (* 1/6 (/ (pow t 3) (pow l 2))) (* (pow k 2) (+ (* 173/5040 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (* 31/360 (/ (pow t 3) (pow l 2))))))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (/ (* k (pow t 3)) (pow l 2))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (* k (+ (* -1/6 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (* k (+ (* (pow k 2) (+ (* -1/6 (/ (pow t 3) (pow l 2))) (* 1/120 (/ (* (pow k 2) (pow t 3)) (pow l 2))))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (* k (+ (* (pow k 2) (+ (* -1/6 (/ (pow t 3) (pow l 2))) (* (pow k 2) (+ (* -1/5040 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (* 1/120 (/ (pow t 3) (pow l 2))))))) (/ (pow t 3) (pow l 2))))))
#s(approx (sin k) #s(hole binary64 k))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* -1/6 (pow k 2))))))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* 1/120 (pow k 2)) 1/6))))))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 1/120 (* -1/5040 (pow k 2)))) 1/6))))))
#s(approx k #s(hole binary64 k))
#s(approx (tan k) #s(hole binary64 k))
#s(approx (tan k) #s(hole binary64 (* k (+ 1 (* 1/3 (pow k 2))))))
#s(approx (tan k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (+ 1/3 (* 2/15 (pow k 2))))))))
#s(approx (tan k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (+ 1/3 (* (pow k 2) (+ 2/15 (* 17/315 (pow k 2))))))))))
#s(approx (sin k) #s(hole binary64 (sin k)))
#s(approx (tan k) #s(hole binary64 (/ (sin k) (cos k))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (* (pow k 2) (+ (/ 1 (pow k 2)) (/ 1 (pow t 2))))))

Calls

9 calls:

Time	Variable		Point	Expression
20.0ms	k	@	0	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (* (/ (pow t 3) (* l l)) (sin k)) (/ (pow t 3) (* l l)) (pow t 3) t 3 (* l l) l (sin k) k (tan k) (- (+ 1 (pow (/ k t) 2)) 1) (+ 1 (pow (/ k t) 2)) 1 (pow (/ k t) 2) (/ k t))
8.0ms	t	@	0	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (* (/ (pow t 3) (* l l)) (sin k)) (/ (pow t 3) (* l l)) (pow t 3) t 3 (* l l) l (sin k) k (tan k) (- (+ 1 (pow (/ k t) 2)) 1) (+ 1 (pow (/ k t) 2)) 1 (pow (/ k t) 2) (/ k t))
8.0ms	t	@	-inf	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (* (/ (pow t 3) (* l l)) (sin k)) (/ (pow t 3) (* l l)) (pow t 3) t 3 (* l l) l (sin k) k (tan k) (- (+ 1 (pow (/ k t) 2)) 1) (+ 1 (pow (/ k t) 2)) 1 (pow (/ k t) 2) (/ k t))
6.0ms	k	@	inf	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (* (/ (pow t 3) (* l l)) (sin k)) (/ (pow t 3) (* l l)) (pow t 3) t 3 (* l l) l (sin k) k (tan k) (- (+ 1 (pow (/ k t) 2)) 1) (+ 1 (pow (/ k t) 2)) 1 (pow (/ k t) 2) (/ k t))
6.0ms	t	@	inf	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (* (/ (pow t 3) (* l l)) (sin k)) (/ (pow t 3) (* l l)) (pow t 3) t 3 (* l l) l (sin k) k (tan k) (- (+ 1 (pow (/ k t) 2)) 1) (+ 1 (pow (/ k t) 2)) 1 (pow (/ k t) 2) (/ k t))

rewrite146.0ms (0.7%)

Memory

-13.0MiB live, 174.8MiB allocated; 19ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	239	1361
0	261	1320
1	1367	1264
0	8110	1126

Stop Event

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

Counts

63 → 225

Calls

Call 1

Inputs
(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(literal 2 binary64)
(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))
(.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l)) (sin.f64 k)) (tan.f64 k))
(.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k))
(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))
(pow.f64 t #s(literal 3 binary64))
t
#s(literal 3 binary64)
(*.f64 l l)
l
(sin.f64 k)
k
(tan.f64 k)
(-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64)))
#s(literal 1 binary64)
(pow.f64 (/.f64 k t) #s(literal 2 binary64))
(/.f64 k t)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (/ (* (pow k 2) (* t (pow (sin k) 2))) (* (pow l 2) (cos k)))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (/ (* (pow t 3) (pow (sin k) 2)) (* (pow l 2) (cos k)))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (/ (* (pow t 3) (sin k)) (pow l 2))))
#s(approx (/ (pow t 3) (* l l)) #s(hole binary64 (/ (pow t 3) (pow l 2))))
#s(approx (pow t 3) #s(hole binary64 (pow t 3)))
#s(approx t #s(hole binary64 t))
#s(approx (- (+ 1 (pow (/ k t) 2)) 1) #s(hole binary64 (/ (pow k 2) (pow t 2))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (/ (pow k 2) (pow t 2))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (/ (+ (pow k 2) (pow t 2)) (pow t 2))))
#s(approx (pow (/ k t) 2) #s(hole binary64 (/ (pow k 2) (pow t 2))))
#s(approx (/ k t) #s(hole binary64 (/ k t)))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 1))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (+ 1 (/ (pow k 2) (pow t 2)))))
#s(approx (* l l) #s(hole binary64 (pow l 2)))
#s(approx l #s(hole binary64 l))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* -1/3 (/ (* (pow k 2) (pow l 2)) t)) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* -2 (* (pow k 2) (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t))))) (* -1/3 (/ (pow l 2) t))))) (pow k 4))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* -1/3 (/ (pow l 2) t)) (* (pow k 2) (+ (* -2 (* (pow k 2) (+ (* -1/6 (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t)))) (+ (* -31/2160 (/ (pow l 2) t)) (* 173/5040 (/ (pow l 2) t)))))) (* -2 (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t))))))))) (pow k 4))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (/ (* (pow k 4) t) (pow l 2))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* 1/6 (/ (* (pow k 2) t) (pow l 2))) (/ t (pow l 2))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) t) (pow l 2))) (* 1/6 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 1/6 (/ t (pow l 2))) (* (pow k 2) (+ (* 173/5040 (/ (* (pow k 2) t) (pow l 2))) (* 31/360 (/ t (pow l 2))))))) (/ t (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (/ (* (pow k 2) (pow t 3)) (pow l 2))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* 1/6 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (* 1/6 (/ (pow t 3) (pow l 2))))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (+ (* 1/6 (/ (pow t 3) (pow l 2))) (* (pow k 2) (+ (* 173/5040 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (* 31/360 (/ (pow t 3) (pow l 2))))))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (/ (* k (pow t 3)) (pow l 2))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (* k (+ (* -1/6 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (* k (+ (* (pow k 2) (+ (* -1/6 (/ (pow t 3) (pow l 2))) (* 1/120 (/ (* (pow k 2) (pow t 3)) (pow l 2))))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (* k (+ (* (pow k 2) (+ (* -1/6 (/ (pow t 3) (pow l 2))) (* (pow k 2) (+ (* -1/5040 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (* 1/120 (/ (pow t 3) (pow l 2))))))) (/ (pow t 3) (pow l 2))))))
#s(approx (sin k) #s(hole binary64 k))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* -1/6 (pow k 2))))))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* 1/120 (pow k 2)) 1/6))))))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 1/120 (* -1/5040 (pow k 2)))) 1/6))))))
#s(approx k #s(hole binary64 k))
#s(approx (tan k) #s(hole binary64 k))
#s(approx (tan k) #s(hole binary64 (* k (+ 1 (* 1/3 (pow k 2))))))
#s(approx (tan k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (+ 1/3 (* 2/15 (pow k 2))))))))
#s(approx (tan k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (+ 1/3 (* (pow k 2) (+ 2/15 (* 17/315 (pow k 2))))))))))
#s(approx (sin k) #s(hole binary64 (sin k)))
#s(approx (tan k) #s(hole binary64 (/ (sin k) (cos k))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (* (pow k 2) (+ (/ 1 (pow k 2)) (/ 1 (pow t 2))))))

Outputs
(/.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 (sin.f64 k) (tan.f64 k))))) (neg.f64 (-.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (/.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 (sin.f64 k) (tan.f64 k)))) (-.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64)))
(/.f64 #s(literal -2 binary64) (neg.f64 (.f64 (-.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (*.f64 (sin.f64 k) (tan.f64 k))))))
(/.f64 #s(literal 2 binary64) (neg.f64 (neg.f64 (.f64 (-.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (*.f64 (sin.f64 k) (tan.f64 k)))))))
(/.f64 #s(literal 2 binary64) (.f64 (-.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (*.f64 (sin.f64 k) (tan.f64 k)))))
(+.f64 (/.f64 #s(literal 1 binary64) (.f64 (-.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 (sin.f64 k) (tan.f64 k))))) (/.f64 #s(literal 1 binary64) (.f64 (-.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 (sin.f64 k) (tan.f64 k))))))
#s(literal 2 binary64)
(.f64 (-.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (*.f64 (sin.f64 k) (tan.f64 k))))
(.f64 (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (*.f64 (sin.f64 k) (tan.f64 k))) (-.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64)))
(.f64 (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (sin.f64 k)) (*.f64 (tan.f64 k) (-.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64))))
(.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 (sin.f64 k) (tan.f64 k)))
(.f64 (tan.f64 k) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (sin.f64 k)))
(.f64 (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (sin.f64 k)) (tan.f64 k))
(/.f64 (.f64 (neg.f64 (sin.f64 k)) (neg.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64))))) (.f64 (neg.f64 (cos.f64 k)) (neg.f64 (.f64 l l))))
(/.f64 (.f64 (neg.f64 (sin.f64 k)) (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64)))) (.f64 (neg.f64 (cos.f64 k)) (.f64 l l)))
(/.f64 (.f64 (sin.f64 k) (neg.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64))))) (.f64 (cos.f64 k) (neg.f64 (.f64 l l))))
(/.f64 (.f64 (sin.f64 k) (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64)))) (.f64 (cos.f64 k) (.f64 l l)))
(/.f64 (.f64 (neg.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64)))) (neg.f64 (sin.f64 k))) (.f64 (neg.f64 (.f64 l l)) (neg.f64 (cos.f64 k))))
(/.f64 (.f64 (neg.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64)))) (sin.f64 k)) (.f64 (neg.f64 (.f64 l l)) (cos.f64 k)))
(/.f64 (.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64))) (neg.f64 (sin.f64 k))) (.f64 (.f64 l l) (neg.f64 (cos.f64 k))))
(/.f64 (.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64))) (sin.f64 k)) (.f64 (cos.f64 k) (.f64 l l)))
(*.f64 (/.f64 (sin.f64 k) (neg.f64 l)) (/.f64 (pow.f64 t #s(literal 3 binary64)) (neg.f64 l)))
(*.f64 (/.f64 (sin.f64 k) (fabs.f64 l)) (/.f64 (pow.f64 t #s(literal 3 binary64)) (fabs.f64 l)))
(*.f64 (/.f64 (sin.f64 k) l) (/.f64 (pow.f64 t #s(literal 3 binary64)) l))
(*.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (neg.f64 l)) (/.f64 (sin.f64 k) (neg.f64 l)))
(*.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (fabs.f64 l)) (/.f64 (sin.f64 k) (fabs.f64 l)))
(*.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) l) (/.f64 (sin.f64 k) l))
(*.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (sin.f64 k))
(*.f64 (sin.f64 k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))
(*.f64 (pow.f64 t #s(literal 3 binary64)) (ratio-of-squares.f64 (pow.f64 (sin.f64 k) #s(literal 1/2 binary64)) l))
(/.f64 (neg.f64 (neg.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64))))) (neg.f64 (neg.f64 (.f64 l l))))
(/.f64 (neg.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64)))) (neg.f64 (.f64 l l)))
(/.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64))) (.f64 l l))
(*.f64 (/.f64 (pow.f64 t #s(literal 3/2 binary64)) (neg.f64 l)) (/.f64 (pow.f64 t #s(literal 3/2 binary64)) (neg.f64 l)))
(*.f64 (/.f64 (pow.f64 t #s(literal 3/2 binary64)) (fabs.f64 l)) (/.f64 (pow.f64 t #s(literal 3/2 binary64)) (fabs.f64 l)))
(*.f64 (/.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (/.f64 (pow.f64 t #s(literal 3/2 binary64)) l))
(.f64 (/.f64 (.f64 t t) (neg.f64 l)) (/.f64 t (neg.f64 l)))
(.f64 (/.f64 t (neg.f64 l)) (/.f64 (.f64 t t) (neg.f64 l)))
(.f64 (/.f64 (.f64 t t) (fabs.f64 l)) (/.f64 t (fabs.f64 l)))
(.f64 (/.f64 t (fabs.f64 l)) (/.f64 (.f64 t t) (fabs.f64 l)))
(.f64 (/.f64 (.f64 t t) l) (/.f64 t l))
(.f64 (/.f64 t l) (/.f64 (.f64 t t) l))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (neg.f64 l))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (fabs.f64 l))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) l)
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (neg.f64 l))
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (fabs.f64 l))
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) l)
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) (neg.f64 l))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) (fabs.f64 l))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)
(/.f64 (neg.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) l)) (neg.f64 l))
(/.f64 (neg.f64 (pow.f64 (neg.f64 t) #s(literal 3 binary64))) (neg.f64 (neg.f64 (*.f64 l l))))
(/.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) l) l)
(/.f64 (pow.f64 (neg.f64 t) #s(literal 3 binary64)) (neg.f64 (*.f64 l l)))
(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))
(exp.f64 (-.f64 (.f64 (log.f64 t) #s(literal 3 binary64)) (.f64 (log.f64 l) #s(literal 2 binary64))))
(*.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (neg.f64 (pow.f64 t #s(literal 3/2 binary64))))
(*.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))))
(*.f64 (pow.f64 t #s(literal 3/2 binary64)) (pow.f64 t #s(literal 3/2 binary64)))
(.f64 (.f64 t t) t)
(.f64 t (.f64 t t))
(pow.f64 (exp.f64 (log.f64 t)) #s(literal 3 binary64))
(pow.f64 (pow.f64 t #s(literal 3/2 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 t t) #s(literal 3/2 binary64))
(pow.f64 t #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 t) #s(literal 3 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 t) #s(literal 3 binary64))) (sinh.f64 (.f64 (log.f64 t) #s(literal 3 binary64))))
t
#s(literal 3 binary64)
(*.f64 (neg.f64 (neg.f64 l)) (neg.f64 (neg.f64 l)))
(*.f64 (neg.f64 (fabs.f64 l)) (neg.f64 (fabs.f64 l)))
(*.f64 (fabs.f64 (fabs.f64 l)) (fabs.f64 (fabs.f64 l)))
(*.f64 (exp.f64 (log.f64 l)) (exp.f64 (log.f64 l)))
(*.f64 (neg.f64 l) (neg.f64 l))
(*.f64 (fabs.f64 l) (fabs.f64 l))
(*.f64 l l)
(pow.f64 (exp.f64 (log.f64 l)) #s(literal 2 binary64))
(pow.f64 (neg.f64 l) #s(literal 2 binary64))
(pow.f64 (fabs.f64 l) #s(literal 2 binary64))
(pow.f64 (*.f64 l l) #s(literal 1 binary64))
(pow.f64 l #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 l #s(literal -2 binary64)))
(fabs.f64 (*.f64 l l))
(exp.f64 (*.f64 (log.f64 l) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 l) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 l) #s(literal 2 binary64))))
l
(*.f64 (pow.f64 (sin.f64 k) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 k) #s(literal 1/2 binary64)))
(pow.f64 (sin.f64 k) #s(literal 1 binary64))
(sin.f64 k)
(exp.f64 (*.f64 (log.f64 (sin.f64 k)) #s(literal 1 binary64)))
k
(/.f64 (neg.f64 (neg.f64 (sin.f64 k))) (neg.f64 (neg.f64 (cos.f64 k))))
(/.f64 (+.f64 (tan.f64 k) (tan.f64 (PI.f64))) (-.f64 #s(literal 1 binary64) (*.f64 (tan.f64 k) (tan.f64 (PI.f64)))))
(/.f64 (neg.f64 (sin.f64 k)) (neg.f64 (cos.f64 k)))
(/.f64 (sin.f64 k) (cos.f64 k))
(tan.f64 (+.f64 (+.f64 k (PI.f64)) (PI.f64)))
(tan.f64 (+.f64 k (PI.f64)))
(tan.f64 k)
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) (-.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)))) (-.f64 #s(literal 1 binary64) (-.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) (-.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64))) (.f64 #s(literal 1 binary64) (-.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (+.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 3 binary64)) #s(literal 1 binary64))) (neg.f64 (+.f64 (pow.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (ratio-of-squares.f64 k t) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (ratio-of-squares.f64 k t)) #s(literal 2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (ratio-of-squares.f64 k t)) #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (ratio-of-squares.f64 k t) #s(literal 3 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (ratio-of-squares.f64 k t) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (ratio-of-squares.f64 k t)))) #s(literal 2 binary64))) (.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (ratio-of-squares.f64 k t) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (ratio-of-squares.f64 k t)))) #s(literal 2 binary64)))
(/.f64 (-.f64 (pow.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64)) (+.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64)))))
(-.f64 (ratio-square-sum.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64))))
(-.f64 (/.f64 (pow.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 3 binary64)) (+.f64 (pow.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64))))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64))))))
(-.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (-.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 (ratio-of-squares.f64 k t) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)))
(/.f64 (+.f64 (pow.f64 (ratio-of-squares.f64 k t) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (ratio-of-squares.f64 k t) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)))))
(/.f64 (neg.f64 (neg.f64 (+.f64 (.f64 t t) (.f64 k k)))) (neg.f64 (neg.f64 (*.f64 t t))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (ratio-of-squares.f64 k t) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (ratio-of-squares.f64 k t))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (ratio-of-squares.f64 k t) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (ratio-of-squares.f64 k t) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (ratio-of-squares.f64 k t))))))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 k k)) (.f64 t t)) (.f64 (neg.f64 (.f64 t t)) (.f64 t t))) (.f64 (neg.f64 (.f64 t t)) (*.f64 t t)))
(/.f64 (+.f64 (pow.f64 (*.f64 k t) #s(literal 2 binary64)) (pow.f64 t #s(literal 4 binary64))) (pow.f64 t #s(literal 4 binary64)))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 k k)) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 t t)) #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 t t)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (.f64 k k) #s(literal 2 binary64)) (.f64 (.f64 t t) #s(literal 2 binary64))) (.f64 (.f64 t t) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 #s(literal 2 binary64) (neg.f64 (.f64 t t))) (.f64 #s(literal 2 binary64) (neg.f64 (.f64 k k)))) (.f64 #s(literal 2 binary64) (neg.f64 (.f64 t t))))
(/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 t t)) (.f64 #s(literal 2 binary64) (.f64 k k))) (.f64 #s(literal 2 binary64) (.f64 t t)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (ratio-of-squares.f64 k t) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (ratio-of-squares.f64 k t)))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (ratio-of-squares.f64 k t) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (ratio-of-squares.f64 k t) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (ratio-of-squares.f64 k t)))))
(/.f64 (neg.f64 (+.f64 (.f64 t t) (.f64 k k))) (neg.f64 (*.f64 t t)))
(/.f64 (+.f64 (.f64 t t) (.f64 k k)) (*.f64 t t))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (ratio-of-squares.f64 k t))) (/.f64 (pow.f64 (ratio-of-squares.f64 k t) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (ratio-of-squares.f64 k t))))
(+.f64 (ratio-square-sum.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (ratio-of-squares.f64 k t) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (ratio-of-squares.f64 k t)))) (/.f64 (pow.f64 (ratio-of-squares.f64 k t) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (ratio-of-squares.f64 k t) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (ratio-of-squares.f64 k t))))))
(+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (ratio-of-squares.f64 k t))
#s(literal 1 binary64)
(*.f64 (neg.f64 (/.f64 k t)) (neg.f64 (/.f64 k t)))
(*.f64 (fabs.f64 (/.f64 k t)) (fabs.f64 (/.f64 k t)))
(*.f64 (exp.f64 (log.f64 (/.f64 k t))) (exp.f64 (log.f64 (/.f64 k t))))
(*.f64 (/.f64 k t) (/.f64 k t))
(ratio-of-squares.f64 (fabs.f64 k) (fabs.f64 t))
(ratio-of-squares.f64 (fabs.f64 k) (exp.f64 (log.f64 t)))
(ratio-of-squares.f64 (fabs.f64 k) (neg.f64 t))
(ratio-of-squares.f64 (fabs.f64 k) t)
(ratio-of-squares.f64 (exp.f64 (log.f64 k)) (fabs.f64 t))
(ratio-of-squares.f64 (exp.f64 (log.f64 k)) (exp.f64 (log.f64 t)))
(ratio-of-squares.f64 (exp.f64 (log.f64 k)) (neg.f64 t))
(ratio-of-squares.f64 (exp.f64 (log.f64 k)) t)
(ratio-of-squares.f64 (neg.f64 k) (fabs.f64 t))
(ratio-of-squares.f64 (neg.f64 k) (exp.f64 (log.f64 t)))
(ratio-of-squares.f64 (neg.f64 k) (neg.f64 t))
(ratio-of-squares.f64 (neg.f64 k) t)
(ratio-of-squares.f64 k (fabs.f64 t))
(ratio-of-squares.f64 k (exp.f64 (log.f64 t)))
(ratio-of-squares.f64 k (neg.f64 t))
(ratio-of-squares.f64 k t)
(pow.f64 (exp.f64 (log.f64 (/.f64 k t))) #s(literal 2 binary64))
(pow.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64))
(pow.f64 (/.f64 k t) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 (.f64 k k))) (neg.f64 (neg.f64 (.f64 t t))))
(/.f64 (.f64 (neg.f64 k) k) (.f64 (neg.f64 t) t))
(/.f64 (.f64 k (neg.f64 k)) (.f64 t (neg.f64 t)))
(/.f64 (neg.f64 (.f64 k k)) (neg.f64 (.f64 t t)))
(/.f64 (.f64 k k) (.f64 t t))
(/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal -2 binary64)))
(exp.f64 (-.f64 (.f64 (log.f64 k) #s(literal 2 binary64)) (.f64 (log.f64 t) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (/.f64 k t)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (/.f64 k t)) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (/.f64 k t)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (/.f64 k t) #s(literal 1/2 binary64)) (pow.f64 (/.f64 k t) #s(literal 1/2 binary64)))
(pow.f64 (/.f64 k t) #s(literal 1 binary64))
(/.f64 (neg.f64 (neg.f64 k)) (neg.f64 (neg.f64 t)))
(/.f64 (neg.f64 k) (neg.f64 t))
(/.f64 k t)
(exp.f64 (*.f64 (log.f64 (/.f64 k t)) #s(literal 1 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l)))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (*.f64 (ratio-of-squares.f64 (sin.f64 k) l) (/.f64 (pow.f64 t #s(literal 3 binary64)) (cos.f64 k))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) (*.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (sin.f64 k)))
#s(approx (/ (pow t 3) (* l l)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))
#s(approx (pow t 3) (pow.f64 t #s(literal 3 binary64)))
#s(approx t t)
#s(approx (- (+ 1 (pow (/ k t) 2)) 1) (ratio-of-squares.f64 k t))
#s(approx (+ 1 (pow (/ k t) 2)) (ratio-of-squares.f64 k t))
#s(approx (+ 1 (pow (/ k t) 2)) (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)))
#s(approx (pow (/ k t) 2) (ratio-of-squares.f64 k t))
#s(approx (/ k t) (/.f64 k t))
#s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64))
#s(approx (+ 1 (pow (/ k t) 2)) (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)))
#s(approx (* l l) (*.f64 l l))
#s(approx l l)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 l l)) (.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 l k) #s(literal 2 binary64)))) t) (pow.f64 k #s(literal 4 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64))) (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (.f64 (/.f64 (*.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -2 binary64) (+.f64 (.f64 (+.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal 151/7560 binary64)) (.f64 #s(literal -1/6 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64)))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64)))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/3 binary64))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (*.f64 (/.f64 (pow.f64 k #s(literal 4 binary64)) l) (/.f64 t l)))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (+.f64 t (.f64 #s(literal 1/6 binary64) (.f64 (.f64 k k) t))) (*.f64 l l)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 31/360 binary64) t) (.f64 #s(literal 173/5040 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64))) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (+.f64 (.f64 (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) #s(literal 1/6 binary64)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) (*.f64 k k)))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) (.f64 (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) #s(literal 31/360 binary64))) (.f64 k k)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) (.f64 k k)))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 31/360 binary64) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) (.f64 (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) #s(literal 173/5040 binary64))) (.f64 k k)) (.f64 #s(literal 1/6 binary64) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (.f64 k k)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) (*.f64 k k)))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) (*.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) (.f64 (+.f64 (.f64 (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) #s(literal -1/6 binary64)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) k))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) (.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/120 binary64) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (.f64 #s(literal -1/6 binary64) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (*.f64 k k)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) k))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/120 binary64) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) (.f64 #s(literal -1/5040 binary64) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))) (.f64 k k)) (.f64 #s(literal -1/6 binary64) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (.f64 k k)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) k))
#s(approx (sin k) k)
#s(approx (sin k) (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (*.f64 k k)) #s(literal 1 binary64)) k))
#s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k))
#s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 k k)) #s(literal 1/120 binary64)) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k))
#s(approx k k)
#s(approx (tan k) k)
#s(approx (tan k) (.f64 (+.f64 (.f64 #s(literal 1/3 binary64) (*.f64 k k)) #s(literal 1 binary64)) k))
#s(approx (tan k) (.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 2/15 binary64) (.f64 k k)) #s(literal 1/3 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k))
#s(approx (tan k) (.f64 (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 17/315 binary64) (.f64 k k)) #s(literal 2/15 binary64)) (.f64 k k)) #s(literal 1/3 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k))
#s(approx (sin k) (sin.f64 k))
#s(approx (tan k) (tan.f64 k))
#s(approx (+ 1 (pow (/ k t) 2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 t #s(literal -2 binary64)) (.f64 k k))))

eval695.0ms (3.2%)

Memory

-23.7MiB live, 945.0MiB allocated; 104ms collecting garbage

Samples

425.0ms	9 841×	0	valid
75.0ms	1 167×	0	invalid

Compiler

Compiled 7 159 to 1 297 computations (81.9% saved)

Precisions

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

ival-mult: 151.0ms (65.8% of total)

ival-div: 63.0ms (27.4% of total)

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

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

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

adjust: 3.0ms (1.3% of total)

prune222.0ms (1%)

Memory

-1.2MiB live, 235.4MiB allocated; 27ms collecting garbage

Pruning

14 alts after pruning (14 fresh and 0 done)

	Pruned	Kept	Total
New	220	14	234
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	221	14	235

Accuracy

88.7%

Counts

235 → 14

Alt Table

Click to see full alt table

Status	Accuracy	Program
	47.1%	(/.f64 #s(literal 2 binary64) (.f64 (-.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (*.f64 (sin.f64 k) (tan.f64 k)))))
▶	26.8%	(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
	47.9%	(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (/.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))
	45.7%	(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (.f64 (/.f64 (*.f64 t t) l) (/.f64 t l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))
	49.2%	(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (exp.f64 (-.f64 (.f64 (log.f64 t) #s(literal 3 binary64)) (*.f64 (log.f64 l) #s(literal 2 binary64)))) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))
	42.8%	(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))
	70.0%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (*.f64 (/.f64 (pow.f64 k #s(literal 4 binary64)) l) (/.f64 t l))))
	61.0%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (+.f64 t (.f64 #s(literal 1/6 binary64) (.f64 (.f64 k k) t))) (*.f64 l l)) (pow.f64 k #s(literal 4 binary64)))))
▶	82.6%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))))
▶	61.0%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
	61.1%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 31/360 binary64) t) (.f64 #s(literal 173/5040 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64))) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
	32.6%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64))) (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (.f64 (/.f64 (*.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
▶	31.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
▶	82.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))

Samples

141.0ms	2 640×	0	valid
16.0ms	432×	0	invalid

Compiler

Compiled 1 090 to 754 computations (30.8% saved)

Precisions

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

ival-mult: 57.0ms (73.5% of total)

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

ival-true: 2.0ms (2.6% of total)

adjust: 1.0ms (1.3% of total)

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

series121.0ms (0.6%)

Memory

6.9MiB live, 161.2MiB allocated; 16ms collecting garbage

Counts

48 → 129

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64))
(.f64 (/.f64 (cos.f64 k) (.f64 (*.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k)))
(/.f64 (cos.f64 k) (.f64 (.f64 k k) t))
(cos.f64 k)
k
(.f64 (.f64 k k) t)
(*.f64 k k)
t
(ratio-of-squares.f64 l (sin.f64 k))
l
(sin.f64 k)
#s(literal 2 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
(.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k)))
(/.f64 #s(literal 2 binary64) t)
(ratio-of-squares.f64 l (*.f64 k k))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
(.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))
(+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (.f64 l l)))
(.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (*.f64 k k))
(/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (*.f64 l l))
(+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t)))
(*.f64 #s(literal 1/6 binary64) t)
#s(literal 1/6 binary64)
(.f64 #s(literal 31/360 binary64) (.f64 (*.f64 k k) t))
#s(literal 31/360 binary64)
(*.f64 l l)
(/.f64 t (*.f64 l l))
(pow.f64 k #s(literal 4 binary64))
#s(literal 4 binary64)
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l)))
(.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))
(/.f64 (.f64 (.f64 k k) t) (cos.f64 k))
(ratio-of-squares.f64 (sin.f64 k) l)
(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)))
(.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l)) (sin.f64 k)) (tan.f64 k))
(.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k))
(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))
(pow.f64 t #s(literal 3 binary64))
#s(literal 3 binary64)
(tan.f64 k)
(-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))
#s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64))
#s(literal 1 binary64)

Outputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2))))))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ (cos k) (* (pow k 2) t))))
#s(approx (* (* k k) t) #s(hole binary64 (* (pow k 2) t)))
#s(approx t #s(hole binary64 t))
#s(approx (* (/ 2 t) (/ (* l l) (* (* k k) (* k k)))) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (/ 2 t) #s(hole binary64 (/ 2 t)))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (/ (* (pow k 2) (* t (pow (sin k) 2))) (* (pow l 2) (cos k)))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (* (pow k 4) (* t (+ (/ 1 (pow l 2)) (/ (* (pow k 2) (+ 1/6 (* 31/360 (pow k 2)))) (pow l 2)))))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (* t (+ (/ 1 (pow l 2)) (/ (* (pow k 2) (+ 1/6 (* 31/360 (pow k 2)))) (pow l 2))))))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) #s(hole binary64 (/ (* (pow k 2) (* t (+ 1/6 (* 31/360 (pow k 2))))) (pow l 2))))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) #s(hole binary64 (/ (* t (+ 1/6 (* 31/360 (pow k 2)))) (pow l 2))))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) #s(hole binary64 (* t (+ 1/6 (* 31/360 (pow k 2))))))
#s(approx (* 1/6 t) #s(hole binary64 (* 1/6 t)))
#s(approx (* 31/360 (* (* k k) t)) #s(hole binary64 (* 31/360 (* (pow k 2) t))))
#s(approx (/ t (* l l)) #s(hole binary64 (/ t (pow l 2))))
#s(approx (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (/ (* (pow k 2) (* t (pow (sin k) 2))) (* (pow l 2) (cos k)))))
#s(approx (/ (* (* k k) t) (cos k)) #s(hole binary64 (/ (* (pow k 2) t) (cos k))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (/ (* (pow t 3) (pow (sin k) 2)) (* (pow l 2) (cos k)))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (/ (* (pow t 3) (sin k)) (pow l 2))))
#s(approx (/ (pow t 3) (* l l)) #s(hole binary64 (/ (pow t 3) (pow l 2))))
#s(approx (pow t 3) #s(hole binary64 (pow t 3)))
#s(approx (- (+ 1 (pow (/ k t) 2)) 1) #s(hole binary64 (/ (pow k 2) (pow t 2))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (/ (pow k 2) (pow t 2))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (/ (+ (pow k 2) (pow t 2)) (pow t 2))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 1))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (+ 1 (/ (pow k 2) (pow t 2)))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (* -1 (* (pow k 4) (* t (- (/ (* (pow k 2) (- (* -31/360 (pow k 2)) 1/6)) (pow l 2)) (/ 1 (pow l 2))))))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (* -1 (* t (- (/ (* (pow k 2) (- (* -31/360 (pow k 2)) 1/6)) (pow l 2)) (/ 1 (pow l 2)))))))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) #s(hole binary64 (* -1 (/ (* (pow k 2) (* t (- (* -31/360 (pow k 2)) 1/6))) (pow l 2)))))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) #s(hole binary64 (* -1 (/ (* t (- (* -31/360 (pow k 2)) 1/6)) (pow l 2)))))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) #s(hole binary64 (* -1 (* t (- (* -31/360 (pow k 2)) 1/6)))))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (pow l 2) (pow (sin k) 2))))
#s(approx l #s(hole binary64 l))
#s(approx (/ (* l l) (* (* k k) (* k k))) #s(hole binary64 (/ (pow l 2) (pow k 4))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (/ (* (pow k 4) (+ t (* (pow k 2) (+ (* 31/360 (* (pow k 2) t)) (* 1/6 t))))) (pow l 2))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (/ (+ t (* (pow k 2) (+ (* 31/360 (* (pow k 2) t)) (* 1/6 t)))) (pow l 2))))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) #s(hole binary64 (/ (* (pow k 2) (+ (* 31/360 (* (pow k 2) t)) (* 1/6 t))) (pow l 2))))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) #s(hole binary64 (/ (+ (* 31/360 (* (pow k 2) t)) (* 1/6 t)) (pow l 2))))
#s(approx (* l l) #s(hole binary64 (pow l 2)))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (/ (pow (sin k) 2) (pow l 2))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* -1/3 (/ (* (pow k 2) (pow l 2)) t)) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* -2 (* (pow k 2) (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t))))) (* -1/3 (/ (pow l 2) t))))) (pow k 4))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* -1/3 (/ (pow l 2) t)) (* (pow k 2) (+ (* -2 (* (pow k 2) (+ (* -1/6 (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t)))) (+ (* -31/2160 (/ (pow l 2) t)) (* 173/5040 (/ (pow l 2) t)))))) (* -2 (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t))))))))) (pow k 4))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))) (pow k 4))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (* 2 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))))))) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (pow l 2) (* (pow k 4) t))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (+ (* 1/24 (/ (pow l 2) t)) (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ 1 (* (pow k 2) t))))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ (+ (* -1/2 (/ (pow k 2) t)) (/ 1 t)) (pow k 2))))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (* 1/24 (/ (pow k 2) t)) (* 1/2 (/ 1 t)))) (/ 1 t)) (pow k 2))))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (* (pow k 2) (+ (* -1/720 (/ (pow k 2) t)) (* 1/24 (/ 1 t)))) (* 1/2 (/ 1 t)))) (/ 1 t)) (pow k 2))))
#s(approx (cos k) #s(hole binary64 1))
#s(approx (cos k) #s(hole binary64 (+ 1 (* -1/2 (pow k 2)))))
#s(approx (cos k) #s(hole binary64 (+ 1 (* (pow k 2) (- (* 1/24 (pow k 2)) 1/2)))))
#s(approx (cos k) #s(hole binary64 (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 1/24 (* -1/720 (pow k 2)))) 1/2)))))
#s(approx k #s(hole binary64 k))
#s(approx (* k k) #s(hole binary64 (pow k 2)))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (pow l 2) (pow k 2))))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (+ (* 1/3 (* (pow k 2) (pow l 2))) (pow l 2)) (pow k 2))))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (+ (* (pow k 2) (- (* -1 (* (pow k 2) (+ (* -1/9 (pow l 2)) (* 2/45 (pow l 2))))) (* -1/3 (pow l 2)))) (pow l 2)) (pow k 2))))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (+ (* (pow k 2) (- (* (pow k 2) (- (* -1 (* (pow k 2) (+ (* -1/315 (pow l 2)) (+ (* 2/135 (pow l 2)) (* 1/3 (+ (* -1/9 (pow l 2)) (* 2/45 (pow l 2)))))))) (+ (* -1/9 (pow l 2)) (* 2/45 (pow l 2))))) (* -1/3 (pow l 2)))) (pow l 2)) (pow k 2))))
#s(approx (sin k) #s(hole binary64 k))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* -1/6 (pow k 2))))))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* 1/120 (pow k 2)) 1/6))))))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 1/120 (* -1/5040 (pow k 2)))) 1/6))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (/ (* (pow k 4) t) (pow l 2))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* 1/6 (/ (* (pow k 2) t) (pow l 2))) (/ t (pow l 2))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) t) (pow l 2))) (* 1/6 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 1/6 (/ t (pow l 2))) (* (pow k 2) (+ (* 173/5040 (/ (* (pow k 2) t) (pow l 2))) (* 31/360 (/ t (pow l 2))))))) (/ t (pow l 2))))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (/ (* (pow k 4) t) (pow l 2))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (* (pow k 4) (+ (* 1/6 (/ (* (pow k 2) t) (pow l 2))) (/ t (pow l 2))))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) t) (pow l 2))) (* 1/6 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (/ t (pow l 2))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (+ (* 1/6 (/ (* (pow k 2) t) (pow l 2))) (/ t (pow l 2)))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) t) (pow l 2))) (* 1/6 (/ t (pow l 2))))) (/ t (pow l 2)))))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) #s(hole binary64 (* 1/6 (/ (* (pow k 2) t) (pow l 2)))))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) #s(hole binary64 (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) t) (pow l 2))) (* 1/6 (/ t (pow l 2)))))))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) #s(hole binary64 (* 1/6 (/ t (pow l 2)))))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) #s(hole binary64 (+ (* 31/360 (/ (* (pow k 2) t) (pow l 2))) (* 1/6 (/ t (pow l 2))))))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) #s(hole binary64 (* 1/6 t)))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) #s(hole binary64 (+ (* 31/360 (* (pow k 2) t)) (* 1/6 t))))
#s(approx (pow k 4) #s(hole binary64 (pow k 4)))
#s(approx (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (/ (* (pow k 4) t) (pow l 2))))
#s(approx (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (- (+ (* -1/3 (/ t (pow l 2))) (* (pow k 2) (- (* 2/45 (/ t (pow l 2))) (+ (* -1/2 (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2))))) (* 1/24 (/ t (pow l 2))))))) (* -1/2 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (- (+ (* -1/3 (/ t (pow l 2))) (* (pow k 2) (- (+ (* 2/45 (/ t (pow l 2))) (* (pow k 2) (- (* -1/315 (/ t (pow l 2))) (+ (* -1/2 (- (* 2/45 (/ t (pow l 2))) (+ (* -1/2 (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2))))) (* 1/24 (/ t (pow l 2)))))) (+ (* -1/720 (/ t (pow l 2))) (* 1/24 (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2)))))))))) (+ (* -1/2 (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2))))) (* 1/24 (/ t (pow l 2))))))) (* -1/2 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (/ (* (* k k) t) (cos k)) #s(hole binary64 (* (pow k 2) t)))
#s(approx (/ (* (* k k) t) (cos k)) #s(hole binary64 (* (pow k 2) (+ t (* 1/2 (* (pow k 2) t))))))
#s(approx (/ (* (* k k) t) (cos k)) #s(hole binary64 (* (pow k 2) (+ t (* (pow k 2) (- (* -1 (* (pow k 2) (+ (* -1/4 t) (* 1/24 t)))) (* -1/2 t)))))))
#s(approx (/ (* (* k k) t) (cos k)) #s(hole binary64 (* (pow k 2) (+ t (* (pow k 2) (- (* (pow k 2) (- (* -1 (* (pow k 2) (+ (* -1/720 t) (+ (* 1/48 t) (* 1/2 (+ (* -1/4 t) (* 1/24 t))))))) (+ (* -1/4 t) (* 1/24 t)))) (* -1/2 t)))))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (/ (pow k 2) (pow l 2))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (* (pow k 2) (+ (* -1/3 (/ (pow k 2) (pow l 2))) (/ 1 (pow l 2))))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (- (* 2/45 (/ (pow k 2) (pow l 2))) (* 1/3 (/ 1 (pow l 2))))) (/ 1 (pow l 2))))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (- (* (pow k 2) (+ (* -1/315 (/ (pow k 2) (pow l 2))) (* 2/45 (/ 1 (pow l 2))))) (* 1/3 (/ 1 (pow l 2))))) (/ 1 (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (/ (* (pow k 2) (pow t 3)) (pow l 2))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* 1/6 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (* 1/6 (/ (pow t 3) (pow l 2))))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (+ (* 1/6 (/ (pow t 3) (pow l 2))) (* (pow k 2) (+ (* 173/5040 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (* 31/360 (/ (pow t 3) (pow l 2))))))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (/ (* k (pow t 3)) (pow l 2))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (* k (+ (* -1/6 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (* k (+ (* (pow k 2) (+ (* -1/6 (/ (pow t 3) (pow l 2))) (* 1/120 (/ (* (pow k 2) (pow t 3)) (pow l 2))))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (* k (+ (* (pow k 2) (+ (* -1/6 (/ (pow t 3) (pow l 2))) (* (pow k 2) (+ (* -1/5040 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (* 1/120 (/ (pow t 3) (pow l 2))))))) (/ (pow t 3) (pow l 2))))))
#s(approx (tan k) #s(hole binary64 k))
#s(approx (tan k) #s(hole binary64 (* k (+ 1 (* 1/3 (pow k 2))))))
#s(approx (tan k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (+ 1/3 (* 2/15 (pow k 2))))))))
#s(approx (tan k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (+ 1/3 (* (pow k 2) (+ 2/15 (* 17/315 (pow k 2))))))))))
#s(approx (cos k) #s(hole binary64 (cos k)))
#s(approx (sin k) #s(hole binary64 (sin k)))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (* 31/360 (/ (* (pow k 8) t) (pow l 2)))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (* (pow k 8) (+ (* 31/360 (/ t (pow l 2))) (* 1/6 (/ t (* (pow k 2) (pow l 2))))))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (* (pow k 8) (+ (* 31/360 (/ t (pow l 2))) (+ (* 1/6 (/ t (* (pow k 2) (pow l 2)))) (/ t (* (pow k 4) (pow l 2))))))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (* 31/360 (/ (* (pow k 4) t) (pow l 2)))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (* (pow k 4) (+ (* 31/360 (/ t (pow l 2))) (* 1/6 (/ t (* (pow k 2) (pow l 2))))))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (* (pow k 4) (+ (* 31/360 (/ t (pow l 2))) (+ (* 1/6 (/ t (* (pow k 2) (pow l 2)))) (/ t (* (pow k 4) (pow l 2))))))))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) #s(hole binary64 (* 31/360 (/ (* (pow k 4) t) (pow l 2)))))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) #s(hole binary64 (* (pow k 4) (+ (* 31/360 (/ t (pow l 2))) (* 1/6 (/ t (* (pow k 2) (pow l 2))))))))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) #s(hole binary64 (* 31/360 (/ (* (pow k 2) t) (pow l 2)))))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) #s(hole binary64 (* (pow k 2) (+ (* 31/360 (/ t (pow l 2))) (* 1/6 (/ t (* (pow k 2) (pow l 2))))))))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) #s(hole binary64 (* 31/360 (* (pow k 2) t))))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) #s(hole binary64 (* (pow k 2) (+ (* 31/360 t) (* 1/6 (/ t (pow k 2)))))))
#s(approx (tan k) #s(hole binary64 (/ (sin k) (cos k))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (* (pow k 2) (+ (/ 1 (pow k 2)) (/ 1 (pow t 2))))))

Calls

9 calls:

Time	Variable		Point	Expression
22.0ms	k	@	-inf	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (cos k) (* (* k k) t)) (cos k) k (* (* k k) t) (* k k) t (/ (* l l) (* (sin k) (sin k))) l (sin k) 2 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (/ 2 t) (/ (* l l) (* (* k k) (* k k)))) (/ 2 t) (/ (* l l) (* (* k k) (* k k))) (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* 1/6 t) 1/6 (* 31/360 (* (* k k) t)) 31/360 (* l l) (/ t (* l l)) (pow k 4) 4 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l)) (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (* (/ (pow t 3) (* l l)) (sin k)) (/ (pow t 3) (* l l)) (pow t 3) 3 (tan k) (- (+ 1 (pow (/ k t) 2)) 1) (+ 1 (pow (/ k t) 2)) 1)
19.0ms	t	@	0	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (cos k) (* (* k k) t)) (cos k) k (* (* k k) t) (* k k) t (/ (* l l) (* (sin k) (sin k))) l (sin k) 2 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (/ 2 t) (/ (* l l) (* (* k k) (* k k)))) (/ 2 t) (/ (* l l) (* (* k k) (* k k))) (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* 1/6 t) 1/6 (* 31/360 (* (* k k) t)) 31/360 (* l l) (/ t (* l l)) (pow k 4) 4 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l)) (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (* (/ (pow t 3) (* l l)) (sin k)) (/ (pow t 3) (* l l)) (pow t 3) 3 (tan k) (- (+ 1 (pow (/ k t) 2)) 1) (+ 1 (pow (/ k t) 2)) 1)
12.0ms	t	@	-inf	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (cos k) (* (* k k) t)) (cos k) k (* (* k k) t) (* k k) t (/ (* l l) (* (sin k) (sin k))) l (sin k) 2 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (/ 2 t) (/ (* l l) (* (* k k) (* k k)))) (/ 2 t) (/ (* l l) (* (* k k) (* k k))) (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* 1/6 t) 1/6 (* 31/360 (* (* k k) t)) 31/360 (* l l) (/ t (* l l)) (pow k 4) 4 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l)) (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (* (/ (pow t 3) (* l l)) (sin k)) (/ (pow t 3) (* l l)) (pow t 3) 3 (tan k) (- (+ 1 (pow (/ k t) 2)) 1) (+ 1 (pow (/ k t) 2)) 1)
12.0ms	l	@	inf	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (cos k) (* (* k k) t)) (cos k) k (* (* k k) t) (* k k) t (/ (* l l) (* (sin k) (sin k))) l (sin k) 2 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (/ 2 t) (/ (* l l) (* (* k k) (* k k)))) (/ 2 t) (/ (* l l) (* (* k k) (* k k))) (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* 1/6 t) 1/6 (* 31/360 (* (* k k) t)) 31/360 (* l l) (/ t (* l l)) (pow k 4) 4 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l)) (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (* (/ (pow t 3) (* l l)) (sin k)) (/ (pow t 3) (* l l)) (pow t 3) 3 (tan k) (- (+ 1 (pow (/ k t) 2)) 1) (+ 1 (pow (/ k t) 2)) 1)
11.0ms	t	@	inf	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (cos k) (* (* k k) t)) (cos k) k (* (* k k) t) (* k k) t (/ (* l l) (* (sin k) (sin k))) l (sin k) 2 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (/ 2 t) (/ (* l l) (* (* k k) (* k k)))) (/ 2 t) (/ (* l l) (* (* k k) (* k k))) (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* 1/6 t) 1/6 (* 31/360 (* (* k k) t)) 31/360 (* l l) (/ t (* l l)) (pow k 4) 4 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l)) (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (* (/ (pow t 3) (* l l)) (sin k)) (/ (pow t 3) (* l l)) (pow t 3) 3 (tan k) (- (+ 1 (pow (/ k t) 2)) 1) (+ 1 (pow (/ k t) 2)) 1)

rewrite265.0ms (1.2%)

Memory

35.6MiB live, 334.8MiB allocated; 93ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	633	5080
0	701	4540
1	3604	4516
0	8437	4334

Stop Event

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

Counts

177 → 617

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64))
(.f64 (/.f64 (cos.f64 k) (.f64 (*.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k)))
(/.f64 (cos.f64 k) (.f64 (.f64 k k) t))
(cos.f64 k)
k
(.f64 (.f64 k k) t)
(*.f64 k k)
t
(ratio-of-squares.f64 l (sin.f64 k))
l
(sin.f64 k)
#s(literal 2 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
(.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k)))
(/.f64 #s(literal 2 binary64) t)
(ratio-of-squares.f64 l (*.f64 k k))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
(.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))
(+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (.f64 l l)))
(.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (*.f64 k k))
(/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (*.f64 l l))
(+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t)))
(*.f64 #s(literal 1/6 binary64) t)
#s(literal 1/6 binary64)
(.f64 #s(literal 31/360 binary64) (.f64 (*.f64 k k) t))
#s(literal 31/360 binary64)
(*.f64 l l)
(/.f64 t (*.f64 l l))
(pow.f64 k #s(literal 4 binary64))
#s(literal 4 binary64)
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l)))
(.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))
(/.f64 (.f64 (.f64 k k) t) (cos.f64 k))
(ratio-of-squares.f64 (sin.f64 k) l)
(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)))
(.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l)) (sin.f64 k)) (tan.f64 k))
(.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k))
(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))
(pow.f64 t #s(literal 3 binary64))
#s(literal 3 binary64)
(tan.f64 k)
(-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))
#s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64))
#s(literal 1 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2))))))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ (cos k) (* (pow k 2) t))))
#s(approx (* (* k k) t) #s(hole binary64 (* (pow k 2) t)))
#s(approx t #s(hole binary64 t))
#s(approx (* (/ 2 t) (/ (* l l) (* (* k k) (* k k)))) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (/ 2 t) #s(hole binary64 (/ 2 t)))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (/ (* (pow k 2) (* t (pow (sin k) 2))) (* (pow l 2) (cos k)))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (* (pow k 4) (* t (+ (/ 1 (pow l 2)) (/ (* (pow k 2) (+ 1/6 (* 31/360 (pow k 2)))) (pow l 2)))))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (* t (+ (/ 1 (pow l 2)) (/ (* (pow k 2) (+ 1/6 (* 31/360 (pow k 2)))) (pow l 2))))))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) #s(hole binary64 (/ (* (pow k 2) (* t (+ 1/6 (* 31/360 (pow k 2))))) (pow l 2))))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) #s(hole binary64 (/ (* t (+ 1/6 (* 31/360 (pow k 2)))) (pow l 2))))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) #s(hole binary64 (* t (+ 1/6 (* 31/360 (pow k 2))))))
#s(approx (* 1/6 t) #s(hole binary64 (* 1/6 t)))
#s(approx (* 31/360 (* (* k k) t)) #s(hole binary64 (* 31/360 (* (pow k 2) t))))
#s(approx (/ t (* l l)) #s(hole binary64 (/ t (pow l 2))))
#s(approx (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (/ (* (pow k 2) (* t (pow (sin k) 2))) (* (pow l 2) (cos k)))))
#s(approx (/ (* (* k k) t) (cos k)) #s(hole binary64 (/ (* (pow k 2) t) (cos k))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (/ (* (pow t 3) (pow (sin k) 2)) (* (pow l 2) (cos k)))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (/ (* (pow t 3) (sin k)) (pow l 2))))
#s(approx (/ (pow t 3) (* l l)) #s(hole binary64 (/ (pow t 3) (pow l 2))))
#s(approx (pow t 3) #s(hole binary64 (pow t 3)))
#s(approx (- (+ 1 (pow (/ k t) 2)) 1) #s(hole binary64 (/ (pow k 2) (pow t 2))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (/ (pow k 2) (pow t 2))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (/ (+ (pow k 2) (pow t 2)) (pow t 2))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 1))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (+ 1 (/ (pow k 2) (pow t 2)))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (* -1 (* (pow k 4) (* t (- (/ (* (pow k 2) (- (* -31/360 (pow k 2)) 1/6)) (pow l 2)) (/ 1 (pow l 2))))))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (* -1 (* t (- (/ (* (pow k 2) (- (* -31/360 (pow k 2)) 1/6)) (pow l 2)) (/ 1 (pow l 2)))))))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) #s(hole binary64 (* -1 (/ (* (pow k 2) (* t (- (* -31/360 (pow k 2)) 1/6))) (pow l 2)))))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) #s(hole binary64 (* -1 (/ (* t (- (* -31/360 (pow k 2)) 1/6)) (pow l 2)))))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) #s(hole binary64 (* -1 (* t (- (* -31/360 (pow k 2)) 1/6)))))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (pow l 2) (pow (sin k) 2))))
#s(approx l #s(hole binary64 l))
#s(approx (/ (* l l) (* (* k k) (* k k))) #s(hole binary64 (/ (pow l 2) (pow k 4))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (/ (* (pow k 4) (+ t (* (pow k 2) (+ (* 31/360 (* (pow k 2) t)) (* 1/6 t))))) (pow l 2))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (/ (+ t (* (pow k 2) (+ (* 31/360 (* (pow k 2) t)) (* 1/6 t)))) (pow l 2))))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) #s(hole binary64 (/ (* (pow k 2) (+ (* 31/360 (* (pow k 2) t)) (* 1/6 t))) (pow l 2))))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) #s(hole binary64 (/ (+ (* 31/360 (* (pow k 2) t)) (* 1/6 t)) (pow l 2))))
#s(approx (* l l) #s(hole binary64 (pow l 2)))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (/ (pow (sin k) 2) (pow l 2))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* -1/3 (/ (* (pow k 2) (pow l 2)) t)) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* -2 (* (pow k 2) (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t))))) (* -1/3 (/ (pow l 2) t))))) (pow k 4))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* -1/3 (/ (pow l 2) t)) (* (pow k 2) (+ (* -2 (* (pow k 2) (+ (* -1/6 (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t)))) (+ (* -31/2160 (/ (pow l 2) t)) (* 173/5040 (/ (pow l 2) t)))))) (* -2 (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t))))))))) (pow k 4))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))) (pow k 4))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (* 2 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))))))) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (pow l 2) (* (pow k 4) t))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (+ (* 1/24 (/ (pow l 2) t)) (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ 1 (* (pow k 2) t))))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ (+ (* -1/2 (/ (pow k 2) t)) (/ 1 t)) (pow k 2))))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (* 1/24 (/ (pow k 2) t)) (* 1/2 (/ 1 t)))) (/ 1 t)) (pow k 2))))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (* (pow k 2) (+ (* -1/720 (/ (pow k 2) t)) (* 1/24 (/ 1 t)))) (* 1/2 (/ 1 t)))) (/ 1 t)) (pow k 2))))
#s(approx (cos k) #s(hole binary64 1))
#s(approx (cos k) #s(hole binary64 (+ 1 (* -1/2 (pow k 2)))))
#s(approx (cos k) #s(hole binary64 (+ 1 (* (pow k 2) (- (* 1/24 (pow k 2)) 1/2)))))
#s(approx (cos k) #s(hole binary64 (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 1/24 (* -1/720 (pow k 2)))) 1/2)))))
#s(approx k #s(hole binary64 k))
#s(approx (* k k) #s(hole binary64 (pow k 2)))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (pow l 2) (pow k 2))))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (+ (* 1/3 (* (pow k 2) (pow l 2))) (pow l 2)) (pow k 2))))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (+ (* (pow k 2) (- (* -1 (* (pow k 2) (+ (* -1/9 (pow l 2)) (* 2/45 (pow l 2))))) (* -1/3 (pow l 2)))) (pow l 2)) (pow k 2))))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (+ (* (pow k 2) (- (* (pow k 2) (- (* -1 (* (pow k 2) (+ (* -1/315 (pow l 2)) (+ (* 2/135 (pow l 2)) (* 1/3 (+ (* -1/9 (pow l 2)) (* 2/45 (pow l 2)))))))) (+ (* -1/9 (pow l 2)) (* 2/45 (pow l 2))))) (* -1/3 (pow l 2)))) (pow l 2)) (pow k 2))))
#s(approx (sin k) #s(hole binary64 k))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* -1/6 (pow k 2))))))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* 1/120 (pow k 2)) 1/6))))))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 1/120 (* -1/5040 (pow k 2)))) 1/6))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (/ (* (pow k 4) t) (pow l 2))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* 1/6 (/ (* (pow k 2) t) (pow l 2))) (/ t (pow l 2))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) t) (pow l 2))) (* 1/6 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 1/6 (/ t (pow l 2))) (* (pow k 2) (+ (* 173/5040 (/ (* (pow k 2) t) (pow l 2))) (* 31/360 (/ t (pow l 2))))))) (/ t (pow l 2))))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (/ (* (pow k 4) t) (pow l 2))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (* (pow k 4) (+ (* 1/6 (/ (* (pow k 2) t) (pow l 2))) (/ t (pow l 2))))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) t) (pow l 2))) (* 1/6 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (/ t (pow l 2))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (+ (* 1/6 (/ (* (pow k 2) t) (pow l 2))) (/ t (pow l 2)))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) t) (pow l 2))) (* 1/6 (/ t (pow l 2))))) (/ t (pow l 2)))))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) #s(hole binary64 (* 1/6 (/ (* (pow k 2) t) (pow l 2)))))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) #s(hole binary64 (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) t) (pow l 2))) (* 1/6 (/ t (pow l 2)))))))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) #s(hole binary64 (* 1/6 (/ t (pow l 2)))))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) #s(hole binary64 (+ (* 31/360 (/ (* (pow k 2) t) (pow l 2))) (* 1/6 (/ t (pow l 2))))))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) #s(hole binary64 (* 1/6 t)))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) #s(hole binary64 (+ (* 31/360 (* (pow k 2) t)) (* 1/6 t))))
#s(approx (pow k 4) #s(hole binary64 (pow k 4)))
#s(approx (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (/ (* (pow k 4) t) (pow l 2))))
#s(approx (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (- (+ (* -1/3 (/ t (pow l 2))) (* (pow k 2) (- (* 2/45 (/ t (pow l 2))) (+ (* -1/2 (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2))))) (* 1/24 (/ t (pow l 2))))))) (* -1/2 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (- (+ (* -1/3 (/ t (pow l 2))) (* (pow k 2) (- (+ (* 2/45 (/ t (pow l 2))) (* (pow k 2) (- (* -1/315 (/ t (pow l 2))) (+ (* -1/2 (- (* 2/45 (/ t (pow l 2))) (+ (* -1/2 (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2))))) (* 1/24 (/ t (pow l 2)))))) (+ (* -1/720 (/ t (pow l 2))) (* 1/24 (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2)))))))))) (+ (* -1/2 (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2))))) (* 1/24 (/ t (pow l 2))))))) (* -1/2 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (/ (* (* k k) t) (cos k)) #s(hole binary64 (* (pow k 2) t)))
#s(approx (/ (* (* k k) t) (cos k)) #s(hole binary64 (* (pow k 2) (+ t (* 1/2 (* (pow k 2) t))))))
#s(approx (/ (* (* k k) t) (cos k)) #s(hole binary64 (* (pow k 2) (+ t (* (pow k 2) (- (* -1 (* (pow k 2) (+ (* -1/4 t) (* 1/24 t)))) (* -1/2 t)))))))
#s(approx (/ (* (* k k) t) (cos k)) #s(hole binary64 (* (pow k 2) (+ t (* (pow k 2) (- (* (pow k 2) (- (* -1 (* (pow k 2) (+ (* -1/720 t) (+ (* 1/48 t) (* 1/2 (+ (* -1/4 t) (* 1/24 t))))))) (+ (* -1/4 t) (* 1/24 t)))) (* -1/2 t)))))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (/ (pow k 2) (pow l 2))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (* (pow k 2) (+ (* -1/3 (/ (pow k 2) (pow l 2))) (/ 1 (pow l 2))))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (- (* 2/45 (/ (pow k 2) (pow l 2))) (* 1/3 (/ 1 (pow l 2))))) (/ 1 (pow l 2))))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (- (* (pow k 2) (+ (* -1/315 (/ (pow k 2) (pow l 2))) (* 2/45 (/ 1 (pow l 2))))) (* 1/3 (/ 1 (pow l 2))))) (/ 1 (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (/ (* (pow k 2) (pow t 3)) (pow l 2))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* 1/6 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (* 1/6 (/ (pow t 3) (pow l 2))))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (+ (* 1/6 (/ (pow t 3) (pow l 2))) (* (pow k 2) (+ (* 173/5040 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (* 31/360 (/ (pow t 3) (pow l 2))))))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (/ (* k (pow t 3)) (pow l 2))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (* k (+ (* -1/6 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (* k (+ (* (pow k 2) (+ (* -1/6 (/ (pow t 3) (pow l 2))) (* 1/120 (/ (* (pow k 2) (pow t 3)) (pow l 2))))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) #s(hole binary64 (* k (+ (* (pow k 2) (+ (* -1/6 (/ (pow t 3) (pow l 2))) (* (pow k 2) (+ (* -1/5040 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (* 1/120 (/ (pow t 3) (pow l 2))))))) (/ (pow t 3) (pow l 2))))))
#s(approx (tan k) #s(hole binary64 k))
#s(approx (tan k) #s(hole binary64 (* k (+ 1 (* 1/3 (pow k 2))))))
#s(approx (tan k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (+ 1/3 (* 2/15 (pow k 2))))))))
#s(approx (tan k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (+ 1/3 (* (pow k 2) (+ 2/15 (* 17/315 (pow k 2))))))))))
#s(approx (cos k) #s(hole binary64 (cos k)))
#s(approx (sin k) #s(hole binary64 (sin k)))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (* 31/360 (/ (* (pow k 8) t) (pow l 2)))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (* (pow k 8) (+ (* 31/360 (/ t (pow l 2))) (* 1/6 (/ t (* (pow k 2) (pow l 2))))))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) #s(hole binary64 (* (pow k 8) (+ (* 31/360 (/ t (pow l 2))) (+ (* 1/6 (/ t (* (pow k 2) (pow l 2)))) (/ t (* (pow k 4) (pow l 2))))))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (* 31/360 (/ (* (pow k 4) t) (pow l 2)))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (* (pow k 4) (+ (* 31/360 (/ t (pow l 2))) (* 1/6 (/ t (* (pow k 2) (pow l 2))))))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) #s(hole binary64 (* (pow k 4) (+ (* 31/360 (/ t (pow l 2))) (+ (* 1/6 (/ t (* (pow k 2) (pow l 2)))) (/ t (* (pow k 4) (pow l 2))))))))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) #s(hole binary64 (* 31/360 (/ (* (pow k 4) t) (pow l 2)))))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) #s(hole binary64 (* (pow k 4) (+ (* 31/360 (/ t (pow l 2))) (* 1/6 (/ t (* (pow k 2) (pow l 2))))))))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) #s(hole binary64 (* 31/360 (/ (* (pow k 2) t) (pow l 2)))))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) #s(hole binary64 (* (pow k 2) (+ (* 31/360 (/ t (pow l 2))) (* 1/6 (/ t (* (pow k 2) (pow l 2))))))))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) #s(hole binary64 (* 31/360 (* (pow k 2) t))))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) #s(hole binary64 (* (pow k 2) (+ (* 31/360 t) (* 1/6 (/ t (pow k 2)))))))
#s(approx (tan k) #s(hole binary64 (/ (sin k) (cos k))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (* (pow k 2) (+ (/ 1 (pow k 2)) (/ 1 (pow t 2))))))

Outputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 (ratio-of-squares.f64 l (sin.f64 k)) #s(literal 2 binary64))))
(.f64 (.f64 (ratio-of-squares.f64 l (sin.f64 k)) (/.f64 (cos.f64 k) (.f64 (.f64 k k) t))) #s(literal 2 binary64))
(.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 (ratio-of-squares.f64 l (sin.f64 k)) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 l (sin.f64 k)) (/.f64 (cos.f64 k) (.f64 (.f64 k k) t))))
(/.f64 (.f64 (/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 k k)) #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 4 binary64)) (.f64 (.f64 (*.f64 k k) t) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 (.f64 (cos.f64 k) (.f64 l l))) #s(literal 4 binary64)) (.f64 (neg.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (cos.f64 k) (.f64 l l)) #s(literal 4 binary64)) (.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 4 binary64) (/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 k k))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (.f64 #s(literal 4 binary64) (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k)))) (.f64 #s(literal 2 binary64) (.f64 (*.f64 k k) t)))
(/.f64 (.f64 #s(literal 4 binary64) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l))) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (.f64 #s(literal 4 binary64) (neg.f64 (.f64 (cos.f64 k) (.f64 l l)))) (.f64 #s(literal 2 binary64) (neg.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))))
(/.f64 (.f64 #s(literal 4 binary64) (.f64 (cos.f64 k) (.f64 l l))) (.f64 #s(literal 2 binary64) (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 (/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 k k)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 k k)))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (+.f64 (.f64 (/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 k k)) (.f64 (.f64 k k) t)) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (.f64 (*.f64 k k) t)))
(/.f64 (+.f64 (.f64 (/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 k k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (+.f64 (.f64 (/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 k k)) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (neg.f64 (.f64 (cos.f64 k) (.f64 l l))))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))))
(/.f64 (+.f64 (.f64 (/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 k k)) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (.f64 (cos.f64 k) (.f64 l l)))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (.f64 (.f64 k k) t) (/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 k k)))) (.f64 (.f64 (.f64 k k) t) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (.f64 k k) t)) (.f64 (.f64 (.f64 k k) t) (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))))) (.f64 (.f64 (.f64 k k) t) (.f64 (*.f64 k k) t)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (.f64 (.f64 k k) t) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)))) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (.f64 (.f64 k k) t) (neg.f64 (.f64 (cos.f64 k) (.f64 l l))))) (.f64 (.f64 (.f64 k k) t) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 k k) t) (.f64 (cos.f64 k) (.f64 l l)))) (.f64 (.f64 (.f64 k k) t) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 k k)))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (+.f64 (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) (.f64 (.f64 k k) t)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (.f64 k k) t)))
(/.f64 (+.f64 (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)))) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (+.f64 (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (neg.f64 (.f64 (cos.f64 k) (.f64 l l))))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))))
(/.f64 (+.f64 (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (cos.f64 k) (.f64 l l)))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (cos.f64 k) (.f64 l l))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 k k)))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (cos.f64 k) (.f64 l l))) (.f64 (.f64 k k) t)) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (.f64 k k) t)))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (cos.f64 k) (.f64 l l))) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)))) (.f64 (neg.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (cos.f64 k) (.f64 l l))) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (neg.f64 (.f64 (cos.f64 k) (.f64 l l))))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (neg.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (cos.f64 k) (.f64 l l))) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (cos.f64 k) (.f64 l l)))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 k k)))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 (.f64 k k) t)) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (.f64 k k) t)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (.f64 l l)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)))) (.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (.f64 l l)) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (neg.f64 (.f64 (cos.f64 k) (.f64 l l))))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (neg.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (cos.f64 k) (.f64 l l)))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 k) (.f64 l l))) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(+.f64 (.f64 (ratio-of-squares.f64 l (sin.f64 k)) (/.f64 (cos.f64 k) (.f64 (.f64 k k) t))) (.f64 (ratio-of-squares.f64 l (sin.f64 k)) (/.f64 (cos.f64 k) (.f64 (.f64 k k) t))))
(.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(.f64 (ratio-of-squares.f64 l (sin.f64 k)) (/.f64 (cos.f64 k) (.f64 (*.f64 k k) t)))
(.f64 (/.f64 (cos.f64 k) (.f64 (*.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k)))
(.f64 (.f64 l l) (/.f64 (cos.f64 k) (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (.f64 (/.f64 (.f64 l l) (sin.f64 k)) (/.f64 (cos.f64 k) (.f64 k k))) (.f64 (sin.f64 k) t))
(/.f64 (.f64 (/.f64 (.f64 l l) (sin.f64 k)) (neg.f64 (cos.f64 k))) (.f64 (sin.f64 k) (neg.f64 (.f64 (*.f64 k k) t))))
(/.f64 (.f64 (/.f64 (.f64 l l) (sin.f64 k)) (cos.f64 k)) (.f64 (sin.f64 k) (.f64 (*.f64 k k) t)))
(/.f64 (.f64 (neg.f64 (.f64 l l)) (/.f64 (cos.f64 k) (.f64 k k))) (.f64 (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64))) t))
(/.f64 (.f64 (neg.f64 (.f64 l l)) (neg.f64 (cos.f64 k))) (.f64 (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (neg.f64 (.f64 (*.f64 k k) t))))
(/.f64 (.f64 (neg.f64 (.f64 l l)) (cos.f64 k)) (.f64 (neg.f64 (.f64 k k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (.f64 (neg.f64 (.f64 l l)) (cos.f64 k)) (.f64 (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (*.f64 k k) t)))
(/.f64 (.f64 (.f64 l l) (/.f64 (cos.f64 k) (.f64 k k))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
(/.f64 (.f64 (.f64 l l) (neg.f64 (cos.f64 k))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (neg.f64 (.f64 (*.f64 k k) t))))
(/.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k k)) (/.f64 (.f64 l l) (sin.f64 k))) (.f64 t (sin.f64 k)))
(/.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k k)) (neg.f64 (.f64 l l))) (.f64 t (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k k)) (.f64 l l)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
(/.f64 (.f64 (neg.f64 (cos.f64 k)) (/.f64 (.f64 l l) (sin.f64 k))) (.f64 (neg.f64 (.f64 (*.f64 k k) t)) (sin.f64 k)))
(/.f64 (.f64 (neg.f64 (cos.f64 k)) (neg.f64 (.f64 l l))) (.f64 (neg.f64 (.f64 (*.f64 k k) t)) (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (.f64 (neg.f64 (cos.f64 k)) (.f64 l l)) (.f64 (neg.f64 (.f64 (*.f64 k k) t)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (.f64 (cos.f64 k) (/.f64 (.f64 l l) (sin.f64 k))) (.f64 (.f64 (*.f64 k k) t) (sin.f64 k)))
(/.f64 (.f64 (cos.f64 k) (neg.f64 (.f64 l l))) (.f64 (.f64 (*.f64 k k) t) (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 k k)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
(/.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (*.f64 k k) t))
(/.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))
(/.f64 (neg.f64 (.f64 (cos.f64 k) (.f64 l l))) (neg.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t)))
(/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (/.f64 (cos.f64 k) (*.f64 k k)) t)
(/.f64 (neg.f64 (cos.f64 k)) (neg.f64 (.f64 (.f64 k k) t)))
(/.f64 (cos.f64 k) (.f64 (.f64 k k) t))
(sin.f64 (+.f64 (neg.f64 k) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 k (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 k)))
(cos.f64 (neg.f64 k))
(cos.f64 k)
(+.f64 (.f64 (sin.f64 k) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 k) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
k
(.f64 (.f64 k k) t)
(.f64 k (.f64 k t))
(.f64 t (.f64 k k))
(*.f64 (neg.f64 (fabs.f64 k)) (neg.f64 (fabs.f64 k)))
(*.f64 (fabs.f64 (fabs.f64 k)) (fabs.f64 (fabs.f64 k)))
(*.f64 (exp.f64 (log.f64 k)) (exp.f64 (log.f64 k)))
(*.f64 (neg.f64 (neg.f64 k)) (neg.f64 (neg.f64 k)))
(*.f64 (fabs.f64 k) (fabs.f64 k))
(*.f64 (neg.f64 k) (neg.f64 k))
(*.f64 k k)
(pow.f64 (exp.f64 (log.f64 k)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 k) #s(literal 2 binary64))
(pow.f64 (neg.f64 k) #s(literal 2 binary64))
(pow.f64 (*.f64 k k) #s(literal 1 binary64))
(pow.f64 k #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 k #s(literal -2 binary64)))
(sqrt.f64 (pow.f64 k #s(literal 4 binary64)))
(fabs.f64 (neg.f64 (*.f64 k k)))
(fabs.f64 (*.f64 k k))
(exp.f64 (*.f64 (log.f64 k) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 k) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 k) #s(literal 2 binary64))))
t
(*.f64 (neg.f64 (/.f64 l (sin.f64 k))) (neg.f64 (/.f64 l (sin.f64 k))))
(*.f64 (fabs.f64 (/.f64 l (sin.f64 k))) (fabs.f64 (/.f64 l (sin.f64 k))))
(*.f64 (/.f64 l (sin.f64 k)) (/.f64 l (sin.f64 k)))
(*.f64 l (/.f64 l (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (neg.f64 (neg.f64 (sin.f64 k))))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (neg.f64 (fabs.f64 (sin.f64 k))))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (fabs.f64 (fabs.f64 (sin.f64 k))))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (exp.f64 (log.f64 (sin.f64 k))))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (neg.f64 (sin.f64 k)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (fabs.f64 (sin.f64 k)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (sin.f64 k))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (neg.f64 (neg.f64 (sin.f64 k))))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (neg.f64 (fabs.f64 (sin.f64 k))))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (fabs.f64 (fabs.f64 (sin.f64 k))))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (exp.f64 (log.f64 (sin.f64 k))))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (neg.f64 (sin.f64 k)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (fabs.f64 (sin.f64 k)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (sin.f64 k))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (neg.f64 (neg.f64 (sin.f64 k))))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (neg.f64 (fabs.f64 (sin.f64 k))))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (fabs.f64 (fabs.f64 (sin.f64 k))))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (exp.f64 (log.f64 (sin.f64 k))))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (neg.f64 (sin.f64 k)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (fabs.f64 (sin.f64 k)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (sin.f64 k))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (neg.f64 (neg.f64 (sin.f64 k))))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (neg.f64 (fabs.f64 (sin.f64 k))))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (fabs.f64 (fabs.f64 (sin.f64 k))))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (exp.f64 (log.f64 (sin.f64 k))))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (neg.f64 (sin.f64 k)))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (fabs.f64 (sin.f64 k)))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (sin.f64 k))
(ratio-of-squares.f64 (neg.f64 l) (neg.f64 (neg.f64 (sin.f64 k))))
(ratio-of-squares.f64 (neg.f64 l) (neg.f64 (fabs.f64 (sin.f64 k))))
(ratio-of-squares.f64 (neg.f64 l) (fabs.f64 (fabs.f64 (sin.f64 k))))
(ratio-of-squares.f64 (neg.f64 l) (exp.f64 (log.f64 (sin.f64 k))))
(ratio-of-squares.f64 (neg.f64 l) (neg.f64 (sin.f64 k)))
(ratio-of-squares.f64 (neg.f64 l) (fabs.f64 (sin.f64 k)))
(ratio-of-squares.f64 (neg.f64 l) (sin.f64 k))
(ratio-of-squares.f64 (fabs.f64 l) (neg.f64 (neg.f64 (sin.f64 k))))
(ratio-of-squares.f64 (fabs.f64 l) (neg.f64 (fabs.f64 (sin.f64 k))))
(ratio-of-squares.f64 (fabs.f64 l) (fabs.f64 (fabs.f64 (sin.f64 k))))
(ratio-of-squares.f64 (fabs.f64 l) (exp.f64 (log.f64 (sin.f64 k))))
(ratio-of-squares.f64 (fabs.f64 l) (neg.f64 (sin.f64 k)))
(ratio-of-squares.f64 (fabs.f64 l) (fabs.f64 (sin.f64 k)))
(ratio-of-squares.f64 (fabs.f64 l) (sin.f64 k))
(ratio-of-squares.f64 l (neg.f64 (neg.f64 (sin.f64 k))))
(ratio-of-squares.f64 l (neg.f64 (fabs.f64 (sin.f64 k))))
(ratio-of-squares.f64 l (fabs.f64 (fabs.f64 (sin.f64 k))))
(ratio-of-squares.f64 l (exp.f64 (log.f64 (sin.f64 k))))
(ratio-of-squares.f64 l (neg.f64 (sin.f64 k)))
(ratio-of-squares.f64 l (fabs.f64 (sin.f64 k)))
(ratio-of-squares.f64 l (sin.f64 k))
(pow.f64 (/.f64 l (sin.f64 k)) #s(literal 2 binary64))
(/.f64 (/.f64 (*.f64 l l) (sin.f64 k)) (sin.f64 k))
(/.f64 (neg.f64 (*.f64 l l)) (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (*.f64 l l) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))
(exp.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 (sin.f64 k)) #s(literal 2 binary64))))
l
(pow.f64 (sin.f64 k) #s(literal 1 binary64))
(sin.f64 k)
(exp.f64 (*.f64 (log.f64 (sin.f64 k)) #s(literal 1 binary64)))
#s(literal 2 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t) #s(literal 2 binary64)))
(.f64 (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t) #s(literal 2 binary64))
(.f64 (ratio-of-squares.f64 l (.f64 k k)) (/.f64 #s(literal 2 binary64) t))
(.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k)))
(.f64 #s(literal 2 binary64) (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t))
(/.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) #s(literal 4 binary64)) (*.f64 t #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 (.f64 l l)) #s(literal -2 binary64)) (*.f64 (neg.f64 (pow.f64 k #s(literal 4 binary64))) (neg.f64 t)))
(/.f64 (.f64 (neg.f64 (.f64 l l)) #s(literal 2 binary64)) (*.f64 (neg.f64 (pow.f64 k #s(literal 4 binary64))) t))
(/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal -2 binary64)) (.f64 (*.f64 k k) (neg.f64 t)))
(/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t))
(/.f64 (.f64 (.f64 l l) #s(literal -2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) (neg.f64 t)))
(/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t))
(/.f64 (.f64 #s(literal -2 binary64) (neg.f64 (.f64 l l))) (*.f64 (neg.f64 t) (neg.f64 (pow.f64 k #s(literal 4 binary64)))))
(/.f64 (.f64 #s(literal -2 binary64) (ratio-of-squares.f64 l k)) (.f64 (neg.f64 t) (*.f64 k k)))
(/.f64 (.f64 #s(literal -2 binary64) (.f64 l l)) (*.f64 (neg.f64 t) (pow.f64 k #s(literal 4 binary64))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (.f64 l l))) (*.f64 t (neg.f64 (pow.f64 k #s(literal 4 binary64)))))
(/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l k)) (.f64 (*.f64 k k) t))
(/.f64 (.f64 #s(literal 4 binary64) (ratio-of-squares.f64 l (.f64 k k))) (*.f64 #s(literal 2 binary64) t))
(/.f64 (.f64 (neg.f64 (.f64 l l)) #s(literal 4 binary64)) (.f64 (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t)) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 l l) #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 4 binary64) (neg.f64 (.f64 l l))) (.f64 #s(literal 2 binary64) (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t))))
(/.f64 (.f64 #s(literal 4 binary64) (.f64 l l)) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 l l)) (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t))) (.f64 (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (neg.f64 (.f64 l l)))) (.f64 (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (neg.f64 (*.f64 (pow.f64 k #s(literal 4 binary64)) t))))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 l l)) t) (.f64 (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (ratio-of-squares.f64 l (.f64 k k)))) (.f64 (neg.f64 (*.f64 (pow.f64 k #s(literal 4 binary64)) t)) t))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 l l)) (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (.f64 (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (.f64 l l))) (.f64 (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t))) (.f64 t (neg.f64 (.f64 l l)))) (.f64 t (neg.f64 (*.f64 (pow.f64 k #s(literal 4 binary64)) t))))
(/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (.f64 t (ratio-of-squares.f64 l (.f64 k k)))) (*.f64 t t))
(/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (.f64 t (.f64 l l))) (.f64 t (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 (+.f64 (.f64 (.f64 l l) (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t))) (.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t) (neg.f64 (.f64 l l)))) (.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t) (neg.f64 (*.f64 (pow.f64 k #s(literal 4 binary64)) t))))
(/.f64 (+.f64 (.f64 (.f64 l l) t) (.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t) (ratio-of-squares.f64 l (.f64 k k)))) (.f64 (*.f64 (pow.f64 k #s(literal 4 binary64)) t) t))
(/.f64 (+.f64 (.f64 (.f64 l l) (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t) (.f64 l l))) (.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t)
(/.f64 (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 l l)) (pow.f64 k #s(literal 4 binary64)))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 l l)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t))
(+.f64 (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t))
(/.f64 #s(literal -2 binary64) (neg.f64 t))
(/.f64 #s(literal 2 binary64) t)
(.f64 (neg.f64 (/.f64 l (.f64 k k))) (neg.f64 (/.f64 l (*.f64 k k))))
(.f64 (fabs.f64 (/.f64 l (.f64 k k))) (fabs.f64 (/.f64 l (*.f64 k k))))
(.f64 (/.f64 l (.f64 k k)) (/.f64 l (*.f64 k k)))
(*.f64 l (/.f64 l (pow.f64 k #s(literal 4 binary64))))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (neg.f64 (neg.f64 (*.f64 k k))))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (neg.f64 (*.f64 k k)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (*.f64 k k))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (neg.f64 (neg.f64 (*.f64 k k))))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (neg.f64 (*.f64 k k)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (*.f64 k k))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (neg.f64 (neg.f64 (*.f64 k k))))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (neg.f64 (*.f64 k k)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (*.f64 k k))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (neg.f64 (neg.f64 (*.f64 k k))))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (neg.f64 (*.f64 k k)))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (*.f64 k k))
(ratio-of-squares.f64 (neg.f64 l) (neg.f64 (neg.f64 (*.f64 k k))))
(ratio-of-squares.f64 (neg.f64 l) (neg.f64 (*.f64 k k)))
(ratio-of-squares.f64 (neg.f64 l) (*.f64 k k))
(ratio-of-squares.f64 (fabs.f64 l) (neg.f64 (neg.f64 (*.f64 k k))))
(ratio-of-squares.f64 (fabs.f64 l) (neg.f64 (*.f64 k k)))
(ratio-of-squares.f64 (fabs.f64 l) (*.f64 k k))
(ratio-of-squares.f64 l (neg.f64 (neg.f64 (*.f64 k k))))
(ratio-of-squares.f64 l (neg.f64 (*.f64 k k)))
(ratio-of-squares.f64 l (*.f64 k k))
(pow.f64 (/.f64 l (*.f64 k k)) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 l l)) (neg.f64 (pow.f64 k #s(literal 4 binary64))))
(/.f64 (ratio-of-squares.f64 l k) (*.f64 k k))
(/.f64 (*.f64 l l) (pow.f64 k #s(literal 4 binary64)))
(exp.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64))))
(/.f64 #s(literal -2 binary64) (neg.f64 #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (+.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) t) (*.f64 l l)) (pow.f64 k #s(literal 4 binary64))))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (+.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) t) (*.f64 l l)) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (+.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) t) (*.f64 l l)) (pow.f64 k #s(literal 4 binary64))))
(.f64 (/.f64 (+.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) t) (*.f64 l l)) (pow.f64 k #s(literal 4 binary64)))
(.f64 (pow.f64 k #s(literal 4 binary64)) (/.f64 (+.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) t) (*.f64 l l)))
(/.f64 (neg.f64 (.f64 (+.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) t) (pow.f64 k #s(literal 4 binary64)))) (neg.f64 (*.f64 l l)))
(/.f64 (.f64 (+.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) t) (pow.f64 k #s(literal 4 binary64))) (*.f64 l l))
(+.f64 (.f64 (.f64 (/.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 l l)) (.f64 k k)) (pow.f64 k #s(literal 4 binary64))) (.f64 (/.f64 t (*.f64 l l)) (pow.f64 k #s(literal 4 binary64))))
(+.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) (.f64 (/.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 l l)) (.f64 k k))) (.f64 (pow.f64 k #s(literal 4 binary64)) (/.f64 t (*.f64 l l))))
(/.f64 (+.f64 (.f64 (/.f64 t l) (neg.f64 (.f64 l l))) (.f64 l (neg.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k))))) (.f64 l (neg.f64 (.f64 l l))))
(/.f64 (+.f64 (.f64 (/.f64 t l) (.f64 l l)) (.f64 l (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)))) (.f64 l (.f64 l l)))
(/.f64 (+.f64 (.f64 (neg.f64 t) (neg.f64 (.f64 l l))) (.f64 (neg.f64 (.f64 l l)) (neg.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (*.f64 k k))))) (pow.f64 l #s(literal 4 binary64)))
(/.f64 (+.f64 (.f64 (neg.f64 t) (.f64 l l)) (.f64 (neg.f64 (.f64 l l)) (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)))) (.f64 (neg.f64 (.f64 l l)) (.f64 l l)))
(/.f64 (+.f64 (.f64 t (neg.f64 (.f64 l l))) (.f64 (.f64 l l) (neg.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k))))) (.f64 (.f64 l l) (neg.f64 (.f64 l l))))
(/.f64 (+.f64 (.f64 t (.f64 l l)) (.f64 (.f64 l l) (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (*.f64 k k)))) (pow.f64 l #s(literal 4 binary64)))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k))) l) (.f64 (neg.f64 (.f64 l l)) (/.f64 t l))) (.f64 (neg.f64 (.f64 l l)) l))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k))) (neg.f64 (.f64 l l))) (.f64 (neg.f64 (*.f64 l l)) (neg.f64 t))) (pow.f64 l #s(literal 4 binary64)))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k))) (.f64 l l)) (.f64 (neg.f64 (.f64 l l)) t)) (.f64 (neg.f64 (.f64 l l)) (.f64 l l)))
(/.f64 (+.f64 (.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) l) (.f64 (.f64 l l) (/.f64 t l))) (.f64 (.f64 l l) l))
(/.f64 (+.f64 (.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) (neg.f64 (.f64 l l))) (.f64 (.f64 l l) (neg.f64 t))) (.f64 (.f64 l l) (neg.f64 (.f64 l l))))
(/.f64 (+.f64 (.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) (.f64 l l)) (.f64 (*.f64 l l) t)) (pow.f64 l #s(literal 4 binary64)))
(/.f64 (-.f64 (ratio-of-squares.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) (.f64 l l)) (ratio-of-squares.f64 t (.f64 l l))) (/.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) t) (*.f64 l l)))
(/.f64 (+.f64 (pow.f64 (.f64 (/.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 l l)) (.f64 k k)) #s(literal 3 binary64)) (pow.f64 (/.f64 t (.f64 l l)) #s(literal 3 binary64))) (+.f64 (ratio-of-squares.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) (.f64 l l)) (-.f64 (ratio-of-squares.f64 t (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) t) (pow.f64 l #s(literal 4 binary64))))))
(/.f64 (neg.f64 (+.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) t)) (neg.f64 (.f64 l l)))
(/.f64 (+.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) t) (.f64 l l))
(+.f64 (/.f64 t (.f64 l l)) (.f64 (/.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 l l)) (*.f64 k k)))
(+.f64 (.f64 (/.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 l l)) (.f64 k k)) (/.f64 t (*.f64 l l)))
(.f64 (.f64 (/.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 l l)) k) k)
(.f64 (/.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 l l)) (.f64 k k))
(.f64 (.f64 k k) (/.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 l l)))
(/.f64 (neg.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k))) (neg.f64 (.f64 l l)))
(/.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) (.f64 l l))
(+.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (.f64 l l)) (.f64 k k)) (.f64 (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64)) (.f64 k k)))
(+.f64 (.f64 (.f64 k k) (/.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (.f64 l l))) (.f64 (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64)) (.f64 k k)))
(.f64 t (/.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) (.f64 l l)))
(/.f64 (+.f64 (.f64 (-.f64 (ratio-of-squares.f64 (.f64 #s(literal -1/3 binary64) t) (.f64 l l)) (ratio-of-squares.f64 (.f64 #s(literal -1/2 binary64) t) (.f64 l l))) (.f64 l l)) (.f64 (+.f64 (.f64 #s(literal -1/3 binary64) (/.f64 t (.f64 l l))) (.f64 #s(literal -1/2 binary64) (/.f64 t (.f64 l l)))) (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t))) (.f64 (+.f64 (.f64 #s(literal -1/3 binary64) (/.f64 t (.f64 l l))) (.f64 #s(literal -1/2 binary64) (/.f64 t (.f64 l l)))) (.f64 l l)))
(/.f64 (+.f64 (.f64 (-.f64 (pow.f64 (.f64 #s(literal -1/3 binary64) (/.f64 t (.f64 l l))) #s(literal 3 binary64)) (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 t (.f64 l l)) #s(literal 3 binary64)))) (.f64 l l)) (.f64 (+.f64 (ratio-of-squares.f64 (.f64 #s(literal -1/3 binary64) t) (.f64 l l)) (+.f64 (ratio-of-squares.f64 (.f64 #s(literal -1/2 binary64) t) (.f64 l l)) (/.f64 (.f64 (.f64 #s(literal -1/3 binary64) t) (.f64 #s(literal -1/2 binary64) t)) (pow.f64 l #s(literal 4 binary64))))) (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t))) (.f64 (+.f64 (ratio-of-squares.f64 (.f64 #s(literal -1/3 binary64) t) (.f64 l l)) (+.f64 (ratio-of-squares.f64 (.f64 #s(literal -1/2 binary64) t) (.f64 l l)) (/.f64 (.f64 (.f64 #s(literal -1/3 binary64) t) (.f64 #s(literal -1/2 binary64) t)) (pow.f64 l #s(literal 4 binary64))))) (.f64 l l)))
(/.f64 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 l l)) (.f64 (.f64 l l) (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t))) (pow.f64 l #s(literal 4 binary64)))
(/.f64 (+.f64 (.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (+.f64 (.f64 #s(literal -1/3 binary64) (/.f64 t (.f64 l l))) (.f64 #s(literal -1/2 binary64) (/.f64 t (.f64 l l))))) (.f64 (.f64 l l) (-.f64 (ratio-of-squares.f64 (.f64 #s(literal -1/3 binary64) t) (.f64 l l)) (ratio-of-squares.f64 (.f64 #s(literal -1/2 binary64) t) (.f64 l l))))) (.f64 (.f64 l l) (+.f64 (.f64 #s(literal -1/3 binary64) (/.f64 t (.f64 l l))) (.f64 #s(literal -1/2 binary64) (/.f64 t (.f64 l l))))))
(/.f64 (+.f64 (.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (+.f64 (ratio-of-squares.f64 (.f64 #s(literal -1/3 binary64) t) (.f64 l l)) (+.f64 (ratio-of-squares.f64 (.f64 #s(literal -1/2 binary64) t) (.f64 l l)) (/.f64 (.f64 (.f64 #s(literal -1/3 binary64) t) (.f64 #s(literal -1/2 binary64) t)) (pow.f64 l #s(literal 4 binary64)))))) (.f64 (.f64 l l) (-.f64 (pow.f64 (.f64 #s(literal -1/3 binary64) (/.f64 t (.f64 l l))) #s(literal 3 binary64)) (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 t (.f64 l l)) #s(literal 3 binary64)))))) (.f64 (.f64 l l) (+.f64 (ratio-of-squares.f64 (.f64 #s(literal -1/3 binary64) t) (.f64 l l)) (+.f64 (ratio-of-squares.f64 (.f64 #s(literal -1/2 binary64) t) (.f64 l l)) (/.f64 (.f64 (.f64 #s(literal -1/3 binary64) t) (.f64 #s(literal -1/2 binary64) t)) (pow.f64 l #s(literal 4 binary64)))))))
(/.f64 (+.f64 (.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (.f64 l l)) (.f64 (.f64 l l) (.f64 #s(literal 1/6 binary64) t))) (pow.f64 l #s(literal 4 binary64)))
(/.f64 (/.f64 (.f64 (+.f64 (.f64 (*.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) l) l)
(/.f64 (-.f64 (ratio-of-squares.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (.f64 l l)) (ratio-of-squares.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 l l))) (/.f64 (-.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (.f64 #s(literal 1/6 binary64) t)) (*.f64 l l)))
(/.f64 (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) #s(literal 3 binary64)) (pow.f64 l #s(literal 6 binary64))) (.f64 #s(literal 1/216 binary64) (pow.f64 (/.f64 t (.f64 l l)) #s(literal 3 binary64)))) (+.f64 (ratio-of-squares.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (.f64 l l)) (-.f64 (ratio-of-squares.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (.f64 #s(literal 1/6 binary64) t)) (pow.f64 l #s(literal 4 binary64))))))
(/.f64 (neg.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t)) (neg.f64 (.f64 l l)))
(/.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 l l))
(-.f64 (/.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (.f64 l l)) (.f64 #s(literal -1/6 binary64) (/.f64 t (.f64 l l))))
(+.f64 (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64)) (/.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (.f64 l l)))
(+.f64 (/.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (.f64 l l)) (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64)))
(.f64 (+.f64 (.f64 (*.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t)
(.f64 t (+.f64 (.f64 (*.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) #s(literal 2 binary64)) (pow.f64 (.f64 #s(literal 1/6 binary64) t) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (.f64 #s(literal 1/6 binary64) t)))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/6 binary64) t) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) #s(literal 2 binary64))) (-.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t)))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) #s(literal 3 binary64)) (.f64 #s(literal 1/216 binary64) (pow.f64 t #s(literal 3 binary64)))) (+.f64 (pow.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 #s(literal 1/6 binary64) t) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (*.f64 #s(literal 1/6 binary64) t)))))
(/.f64 (+.f64 (.f64 #s(literal 1/216 binary64) (pow.f64 t #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 #s(literal 1/6 binary64) t) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 (.f64 (*.f64 k k) #s(literal 31/360 binary64)) t)))))
(-.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (.f64 #s(literal -1/6 binary64) t))
(-.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal -31/360 binary64) (.f64 (.f64 k k) t)))
(+.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (.f64 #s(literal 1/6 binary64) t))
(+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 t (.f64 (.f64 k k) #s(literal 31/360 binary64))))
(+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t))
(*.f64 #s(literal 1/6 binary64) t)
(*.f64 t #s(literal 1/6 binary64))
#s(literal 1/6 binary64)
(.f64 (.f64 (*.f64 k k) #s(literal 31/360 binary64)) t)
(.f64 (.f64 (*.f64 k k) t) #s(literal 31/360 binary64))
(.f64 #s(literal 31/360 binary64) (.f64 (*.f64 k k) t))
#s(literal 31/360 binary64)
(*.f64 (neg.f64 (neg.f64 l)) (neg.f64 (neg.f64 l)))
(*.f64 (neg.f64 (fabs.f64 l)) (neg.f64 (fabs.f64 l)))
(*.f64 (fabs.f64 (fabs.f64 l)) (fabs.f64 (fabs.f64 l)))
(*.f64 (exp.f64 (log.f64 l)) (exp.f64 (log.f64 l)))
(*.f64 (neg.f64 l) (neg.f64 l))
(*.f64 (fabs.f64 l) (fabs.f64 l))
(*.f64 l l)
(pow.f64 (exp.f64 (log.f64 l)) #s(literal 2 binary64))
(pow.f64 (neg.f64 l) #s(literal 2 binary64))
(pow.f64 (fabs.f64 l) #s(literal 2 binary64))
(pow.f64 (*.f64 l l) #s(literal 1 binary64))
(pow.f64 l #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 l #s(literal -2 binary64)))
(fabs.f64 (*.f64 l l))
(exp.f64 (*.f64 (log.f64 l) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 l) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 l) #s(literal 2 binary64))))
(/.f64 (/.f64 t l) l)
(/.f64 (neg.f64 t) (neg.f64 (*.f64 l l)))
(/.f64 t (*.f64 l l))
(.f64 (neg.f64 (neg.f64 (.f64 k k))) (neg.f64 (neg.f64 (*.f64 k k))))
(*.f64 (pow.f64 k #s(literal 3 binary64)) k)
(.f64 (neg.f64 (.f64 k k)) (neg.f64 (*.f64 k k)))
(.f64 (.f64 k k) (*.f64 k k))
(*.f64 k (pow.f64 k #s(literal 3 binary64)))
(pow.f64 (exp.f64 (log.f64 k)) #s(literal 4 binary64))
(pow.f64 (neg.f64 (*.f64 k k)) #s(literal 2 binary64))
(pow.f64 (*.f64 k k) #s(literal 2 binary64))
(pow.f64 k #s(literal 4 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 k #s(literal -4 binary64)))
(fabs.f64 (pow.f64 k #s(literal 4 binary64)))
(exp.f64 (+.f64 (.f64 (log.f64 k) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 2 binary64))))
(exp.f64 (.f64 (.f64 (log.f64 k) #s(literal 2 binary64)) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 k k)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 k) #s(literal 4 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 k) #s(literal 4 binary64))) (sinh.f64 (.f64 (log.f64 k) #s(literal 4 binary64))))
#s(literal 4 binary64)
(/.f64 #s(literal -2 binary64) (neg.f64 #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (ratio-of-squares.f64 (sin.f64 k) l) (.f64 (*.f64 k k) (/.f64 t (cos.f64 k)))))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (ratio-of-squares.f64 (sin.f64 k) l) (.f64 (*.f64 k k) (/.f64 t (cos.f64 k))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (ratio-of-squares.f64 (sin.f64 k) l) (.f64 (*.f64 k k) (/.f64 t (cos.f64 k)))))
(.f64 (ratio-of-squares.f64 k l) (/.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (cos.f64 k)))
(.f64 (ratio-of-squares.f64 (sin.f64 k) l) (.f64 (*.f64 k k) (/.f64 t (cos.f64 k))))
(.f64 (.f64 (*.f64 k k) (/.f64 t (cos.f64 k))) (ratio-of-squares.f64 (sin.f64 k) l))
(.f64 (.f64 k k) (/.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (.f64 (cos.f64 k) (*.f64 l l))))
(/.f64 (.f64 (/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) l) (neg.f64 (.f64 (.f64 k k) t))) (.f64 l (neg.f64 (cos.f64 k))))
(/.f64 (.f64 (/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) l) (.f64 (.f64 k k) t)) (.f64 l (cos.f64 k)))
(/.f64 (.f64 (neg.f64 (.f64 (.f64 k k) t)) (/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) l)) (.f64 (neg.f64 (cos.f64 k)) l))
(/.f64 (.f64 (.f64 (.f64 k k) t) (/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) l)) (.f64 (cos.f64 k) l))
(/.f64 (.f64 (neg.f64 (.f64 k k)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (neg.f64 (*.f64 l l)) (cos.f64 k)))
(/.f64 (.f64 (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (neg.f64 (.f64 (.f64 k k) t))) (.f64 (neg.f64 (*.f64 l l)) (neg.f64 (cos.f64 k))))
(/.f64 (.f64 (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (.f64 k k) t)) (.f64 (neg.f64 (*.f64 l l)) (cos.f64 k)))
(/.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 k k) t))) (.f64 (*.f64 l l) (neg.f64 (cos.f64 k))))
(/.f64 (.f64 (neg.f64 (.f64 (.f64 k k) t)) (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 k)) (neg.f64 (*.f64 l l))))
(/.f64 (.f64 (neg.f64 (.f64 (.f64 k k) t)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (neg.f64 (cos.f64 k)) (*.f64 l l)))
(/.f64 (.f64 (.f64 (.f64 k k) t) (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (cos.f64 k) (neg.f64 (*.f64 l l))))
(/.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (.f64 k k) t)) (.f64 (cos.f64 k) (*.f64 l l)))
(/.f64 (/.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 l l)) (cos.f64 k))
(/.f64 (.f64 (.f64 (*.f64 k k) t) (ratio-of-squares.f64 (sin.f64 k) l)) (cos.f64 k))
(/.f64 (.f64 (.f64 (.f64 k k) (/.f64 t (cos.f64 k))) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 l l))
(/.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (neg.f64 (.f64 (cos.f64 k) (*.f64 l l))))
(/.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (cos.f64 k) (*.f64 l l)))
(.f64 (.f64 k k) (/.f64 t (cos.f64 k)))
(/.f64 (neg.f64 (.f64 (.f64 k k) t)) (neg.f64 (cos.f64 k)))
(/.f64 (.f64 (.f64 k k) t) (cos.f64 k))
(*.f64 (neg.f64 (/.f64 (sin.f64 k) l)) (neg.f64 (/.f64 (sin.f64 k) l)))
(*.f64 (fabs.f64 (/.f64 (sin.f64 k) l)) (fabs.f64 (/.f64 (sin.f64 k) l)))
(*.f64 (/.f64 (sin.f64 k) l) (/.f64 (sin.f64 k) l))
(.f64 (sin.f64 k) (/.f64 (sin.f64 k) (.f64 l l)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 (sin.f64 k))) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 (sin.f64 k))) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 (sin.f64 k))) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 (sin.f64 k))) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 (sin.f64 k))) (neg.f64 l))
(ratio-of-squares.f64 (neg.f64 (neg.f64 (sin.f64 k))) (fabs.f64 l))
(ratio-of-squares.f64 (neg.f64 (neg.f64 (sin.f64 k))) l)
(ratio-of-squares.f64 (neg.f64 (fabs.f64 (sin.f64 k))) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 (sin.f64 k))) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 (sin.f64 k))) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 (sin.f64 k))) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 (sin.f64 k))) (neg.f64 l))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 (sin.f64 k))) (fabs.f64 l))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 (sin.f64 k))) l)
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 (sin.f64 k))) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 (sin.f64 k))) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 (sin.f64 k))) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 (sin.f64 k))) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 (sin.f64 k))) (neg.f64 l))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 (sin.f64 k))) (fabs.f64 l))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 (sin.f64 k))) l)
(ratio-of-squares.f64 (exp.f64 (log.f64 (sin.f64 k))) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (exp.f64 (log.f64 (sin.f64 k))) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (exp.f64 (log.f64 (sin.f64 k))) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (exp.f64 (log.f64 (sin.f64 k))) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (exp.f64 (log.f64 (sin.f64 k))) (neg.f64 l))
(ratio-of-squares.f64 (exp.f64 (log.f64 (sin.f64 k))) (fabs.f64 l))
(ratio-of-squares.f64 (exp.f64 (log.f64 (sin.f64 k))) l)
(ratio-of-squares.f64 (neg.f64 (sin.f64 k)) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (neg.f64 (sin.f64 k)) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (neg.f64 (sin.f64 k)) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (neg.f64 (sin.f64 k)) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (neg.f64 (sin.f64 k)) (neg.f64 l))
(ratio-of-squares.f64 (neg.f64 (sin.f64 k)) (fabs.f64 l))
(ratio-of-squares.f64 (neg.f64 (sin.f64 k)) l)
(ratio-of-squares.f64 (fabs.f64 (sin.f64 k)) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (sin.f64 k)) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (sin.f64 k)) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (sin.f64 k)) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (sin.f64 k)) (neg.f64 l))
(ratio-of-squares.f64 (fabs.f64 (sin.f64 k)) (fabs.f64 l))
(ratio-of-squares.f64 (fabs.f64 (sin.f64 k)) l)
(ratio-of-squares.f64 (sin.f64 k) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (sin.f64 k) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (sin.f64 k) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (sin.f64 k) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (sin.f64 k) (neg.f64 l))
(ratio-of-squares.f64 (sin.f64 k) (fabs.f64 l))
(ratio-of-squares.f64 (sin.f64 k) l)
(pow.f64 (/.f64 (sin.f64 k) l) #s(literal 2 binary64))
(/.f64 (/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) l) l)
(/.f64 (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (neg.f64 (*.f64 l l)))
(/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (*.f64 l l))
(exp.f64 (-.f64 (.f64 (log.f64 (sin.f64 k)) #s(literal 2 binary64)) (.f64 (log.f64 l) #s(literal 2 binary64))))
(/.f64 (/.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 (sin.f64 k) (tan.f64 k)))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)))
(/.f64 #s(literal -2 binary64) (neg.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (sin.f64 k)) (*.f64 (tan.f64 k) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))))
(/.f64 #s(literal 2 binary64) (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (sin.f64 k)) (*.f64 (tan.f64 k) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)))))
(.f64 (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (*.f64 (sin.f64 k) (tan.f64 k))))
(.f64 (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (*.f64 (sin.f64 k) (tan.f64 k))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)))
(.f64 (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (sin.f64 k)) (*.f64 (tan.f64 k) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 (sin.f64 k) (tan.f64 k)))
(.f64 (tan.f64 k) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (sin.f64 k)))
(.f64 (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (sin.f64 k)) (tan.f64 k))
(/.f64 (.f64 (neg.f64 (sin.f64 k)) (neg.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64))))) (.f64 (neg.f64 (cos.f64 k)) (neg.f64 (.f64 l l))))
(/.f64 (.f64 (neg.f64 (sin.f64 k)) (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64)))) (.f64 (neg.f64 (cos.f64 k)) (.f64 l l)))
(/.f64 (.f64 (sin.f64 k) (neg.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64))))) (.f64 (cos.f64 k) (neg.f64 (.f64 l l))))
(/.f64 (.f64 (sin.f64 k) (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64)))) (.f64 (cos.f64 k) (.f64 l l)))
(/.f64 (.f64 (neg.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64)))) (neg.f64 (sin.f64 k))) (.f64 (neg.f64 (.f64 l l)) (neg.f64 (cos.f64 k))))
(/.f64 (.f64 (neg.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64)))) (sin.f64 k)) (.f64 (neg.f64 (.f64 l l)) (cos.f64 k)))
(/.f64 (.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64))) (neg.f64 (sin.f64 k))) (.f64 (.f64 l l) (neg.f64 (cos.f64 k))))
(/.f64 (.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64))) (sin.f64 k)) (.f64 (cos.f64 k) (.f64 l l)))
(*.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (sin.f64 k))
(*.f64 (sin.f64 k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))
(.f64 (pow.f64 t #s(literal 3 binary64)) (/.f64 (sin.f64 k) (.f64 l l)))
(/.f64 (neg.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64)))) (neg.f64 (.f64 l l)))
(/.f64 (.f64 (sin.f64 k) (pow.f64 t #s(literal 3 binary64))) (.f64 l l))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (neg.f64 l))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (fabs.f64 l))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) l)
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (neg.f64 l))
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (fabs.f64 l))
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) l)
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) (neg.f64 l))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) (fabs.f64 l))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)
(/.f64 (pow.f64 (neg.f64 t) #s(literal 3 binary64)) (neg.f64 (*.f64 l l)))
(/.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) l) l)
(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))
(exp.f64 (-.f64 (.f64 (log.f64 t) #s(literal 3 binary64)) (.f64 (log.f64 l) #s(literal 2 binary64))))
(*.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (neg.f64 (pow.f64 t #s(literal 3/2 binary64))))
(*.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))))
(*.f64 (pow.f64 t #s(literal 3/2 binary64)) (pow.f64 t #s(literal 3/2 binary64)))
(.f64 (.f64 t t) t)
(.f64 t (.f64 t t))
(pow.f64 (exp.f64 (log.f64 t)) #s(literal 3 binary64))
(pow.f64 (pow.f64 t #s(literal 3/2 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 t t) #s(literal 3/2 binary64))
(pow.f64 t #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 t) #s(literal 3 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 t) #s(literal 3 binary64))) (sinh.f64 (.f64 (log.f64 t) #s(literal 3 binary64))))
#s(literal 3 binary64)
(/.f64 (+.f64 (tan.f64 k) (tan.f64 (PI.f64))) (-.f64 #s(literal 1 binary64) (*.f64 (tan.f64 k) (tan.f64 (PI.f64)))))
(/.f64 (neg.f64 (sin.f64 k)) (neg.f64 (cos.f64 k)))
(/.f64 (sin.f64 k) (cos.f64 k))
(tan.f64 (+.f64 (+.f64 k (PI.f64)) (PI.f64)))
(tan.f64 (+.f64 k (PI.f64)))
(tan.f64 k)
(/.f64 (-.f64 (pow.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64)) (+.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)))))
(-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))
#s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64))
#s(literal 1 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 (ratio-of-squares.f64 l (sin.f64 k)) #s(literal 2 binary64))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 (ratio-of-squares.f64 l (sin.f64 k)) #s(literal 2 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (.f64 (ratio-of-squares.f64 l (sin.f64 k)) (/.f64 (cos.f64 k) (.f64 (*.f64 k k) t))))
#s(approx (/ (cos k) (* (* k k) t)) (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)))
#s(approx (* (* k k) t) (.f64 (.f64 k k) t))
#s(approx t t)
#s(approx (* (/ 2 t) (/ (* l l) (* (* k k) (* k k)))) (.f64 (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t) #s(literal 2 binary64)))
#s(approx (/ 2 t) (/.f64 #s(literal 2 binary64) t))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (ratio-of-squares.f64 (sin.f64 k) l) (.f64 (*.f64 k k) (/.f64 t (cos.f64 k)))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) (.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) (.f64 k k))) (*.f64 l l))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (.f64 (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) (.f64 k k))) (.f64 l l)) t))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (.f64 (/.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 l l)) (.f64 k k)))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (/.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 l l)))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (.f64 (+.f64 (.f64 (*.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t))
#s(approx (* 1/6 t) (*.f64 #s(literal 1/6 binary64) t))
#s(approx (* 31/360 (* (* k k) t)) (.f64 (.f64 (*.f64 k k) #s(literal 31/360 binary64)) t))
#s(approx (/ t (* l l)) (/.f64 t (*.f64 l l)))
#s(approx (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (.f64 (ratio-of-squares.f64 (sin.f64 k) l) (.f64 (*.f64 k k) (/.f64 t (cos.f64 k)))))
#s(approx (/ (* (* k k) t) (cos k)) (.f64 (.f64 k k) (/.f64 t (cos.f64 k))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (*.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (cos.f64 k))))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) (*.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (sin.f64 k)))
#s(approx (/ (pow t 3) (* l l)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))
#s(approx (pow t 3) (pow.f64 t #s(literal 3 binary64)))
#s(approx (- (+ 1 (pow (/ k t) 2)) 1) (ratio-of-squares.f64 k t))
#s(approx (+ 1 (pow (/ k t) 2)) (ratio-of-squares.f64 k t))
#s(approx (+ 1 (pow (/ k t) 2)) (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)))
#s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64))
#s(approx (+ 1 (pow (/ k t) 2)) (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) (neg.f64 (.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t) (/.f64 (-.f64 (.f64 (-.f64 (.f64 #s(literal -31/360 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (.f64 k k)) #s(literal 1 binary64)) (*.f64 l l)))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (neg.f64 (.f64 (/.f64 (-.f64 (.f64 (-.f64 (.f64 #s(literal -31/360 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (.f64 k k)) #s(literal 1 binary64)) (.f64 l l)) t)))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (neg.f64 (/.f64 (.f64 (.f64 (-.f64 (.f64 #s(literal -31/360 binary64) (.f64 k k)) #s(literal 1/6 binary64)) t) (.f64 k k)) (.f64 l l))))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (/.f64 (neg.f64 (.f64 (-.f64 (.f64 #s(literal -31/360 binary64) (.f64 k k)) #s(literal 1/6 binary64)) t)) (.f64 l l)))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (neg.f64 (.f64 (-.f64 (.f64 #s(literal -31/360 binary64) (*.f64 k k)) #s(literal 1/6 binary64)) t)))
#s(approx (/ (* l l) (* (sin k) (sin k))) (ratio-of-squares.f64 l (sin.f64 k)))
#s(approx l l)
#s(approx (/ (* l l) (* (* k k) (* k k))) (ratio-of-squares.f64 l (*.f64 k k)))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) (.f64 (/.f64 (+.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) t) (*.f64 l l)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (/.f64 (+.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) t) (.f64 l l)))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (.f64 (/.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 l l)) (.f64 k k)))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (/.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 l l)))
#s(approx (* l l) (*.f64 l l))
#s(approx (/ (* (sin k) (sin k)) (* l l)) (ratio-of-squares.f64 (sin.f64 k) l))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 l k) #s(literal 2 binary64)) t) #s(literal -1/3 binary64)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 l l) t))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64))) (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (.f64 (/.f64 (*.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -2 binary64) (+.f64 (.f64 (+.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal 151/7560 binary64)) (.f64 #s(literal -1/6 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64)))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64)))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/3 binary64))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (.f64 (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t) #s(literal 2 binary64)))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (/.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (.f64 l l) t))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (/.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 (-.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (.f64 l l) t)) (+.f64 (-.f64 (.f64 #s(literal -1/315 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -2/45 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))) (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) #s(literal -1/3 binary64)))) (.f64 k k)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))))) (.f64 k k)) (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal 2 binary64))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (ratio-of-squares.f64 l (*.f64 k k)) t))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) (.f64 k k)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t))) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/3 binary64))) (.f64 k k)) (/.f64 (.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (.f64 l l) t)) (+.f64 (-.f64 (.f64 #s(literal -1/315 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -2/45 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))) (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) #s(literal -1/3 binary64)))) (.f64 k k)) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t))) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) (.f64 k k)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t))) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/3 binary64))) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (/ (cos k) (* (* k k) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t))
#s(approx (/ (cos k) (* (* k k) t)) (/.f64 (+.f64 (pow.f64 t #s(literal -1 binary64)) (.f64 (/.f64 (.f64 k k) t) #s(literal -1/2 binary64))) (*.f64 k k)))
#s(approx (/ (cos k) (* (* k k) t)) (/.f64 (+.f64 (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) t) (.f64 k k)) (pow.f64 t #s(literal -1 binary64))) (*.f64 k k)))
#s(approx (/ (cos k) (* (* k k) t)) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (+.f64 (/.f64 #s(literal 1/24 binary64) t) (.f64 (/.f64 (.f64 k k) t) #s(literal -1/720 binary64))) (.f64 k k)) (/.f64 #s(literal 1/2 binary64) t)) (.f64 k k)) (pow.f64 t #s(literal -1 binary64))) (*.f64 k k)))
#s(approx (cos k) #s(literal 1 binary64))
#s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64)))
#s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64)))
#s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64)))
#s(approx k k)
#s(approx (* k k) (*.f64 k k))
#s(approx (/ (* l l) (* (sin k) (sin k))) (ratio-of-squares.f64 l k))
#s(approx (/ (* l l) (* (sin k) (sin k))) (/.f64 (+.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (.f64 l k) #s(literal 2 binary64))) (.f64 l l)) (.f64 k k)))
#s(approx (/ (* l l) (* (sin k) (sin k))) (/.f64 (+.f64 (.f64 (-.f64 (neg.f64 (.f64 (.f64 (.f64 l l) #s(literal -1/15 binary64)) (.f64 k k))) (.f64 #s(literal -1/3 binary64) (.f64 l l))) (.f64 k k)) (.f64 l l)) (.f64 k k)))
#s(approx (/ (* l l) (* (sin k) (sin k))) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (-.f64 (neg.f64 (.f64 (+.f64 (-.f64 (.f64 #s(literal 2/135 binary64) (.f64 l l)) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 l l) #s(literal -1/15 binary64)))) (.f64 #s(literal -1/315 binary64) (.f64 l l))) (.f64 k k))) (.f64 (.f64 l l) #s(literal -1/15 binary64))) (.f64 k k)) (.f64 #s(literal -1/3 binary64) (.f64 l l))) (.f64 k k)) (.f64 l l)) (*.f64 k k)))
#s(approx (sin k) k)
#s(approx (sin k) (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (*.f64 k k)) #s(literal 1 binary64)) k))
#s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k))
#s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 k k)) #s(literal 1/120 binary64)) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (pow.f64 k #s(literal 4 binary64)) (/.f64 t (.f64 l l))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (/.f64 (.f64 #s(literal 1/6 binary64) (.f64 (.f64 k k) t)) (.f64 l l)) (/.f64 t (.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (+.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) t) (*.f64 l l)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (/.f64 (.f64 #s(literal 173/5040 binary64) (.f64 (.f64 k k) t)) (.f64 l l)) (.f64 #s(literal -31/360 binary64) (/.f64 t (.f64 l l)))) (.f64 k k)) (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64))) (.f64 k k)) (/.f64 t (.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) (.f64 (pow.f64 k #s(literal 4 binary64)) (/.f64 t (.f64 l l))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) (.f64 (+.f64 (/.f64 (.f64 #s(literal 1/6 binary64) (.f64 (.f64 k k) t)) (.f64 l l)) (/.f64 t (.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) (.f64 (/.f64 (+.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) t) (*.f64 l l)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (/.f64 t (*.f64 l l)))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (+.f64 (/.f64 (.f64 #s(literal 1/6 binary64) (.f64 (.f64 k k) t)) (.f64 l l)) (/.f64 t (*.f64 l l))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (/.f64 (+.f64 (.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 k k)) t) (.f64 l l)))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/.f64 (.f64 #s(literal 1/6 binary64) (.f64 (.f64 k k) t)) (.f64 l l)))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (.f64 (/.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 l l)) (.f64 k k)))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64)))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (/.f64 (.f64 (+.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t) (.f64 l l)))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (*.f64 #s(literal 1/6 binary64) t))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (.f64 (+.f64 (.f64 (*.f64 k k) #s(literal 31/360 binary64)) #s(literal 1/6 binary64)) t))
#s(approx (pow k 4) (pow.f64 k #s(literal 4 binary64)))
#s(approx (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (.f64 (pow.f64 k #s(literal 4 binary64)) (/.f64 t (.f64 l l))))
#s(approx (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (.f64 (+.f64 (.f64 (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64)) (.f64 k k)) (/.f64 t (.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 2/45 binary64) (/.f64 t (.f64 l l))) (-.f64 (.f64 (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64)) #s(literal -1/2 binary64)) (.f64 #s(literal -1/24 binary64) (/.f64 t (.f64 l l))))) (.f64 k k)) (.f64 #s(literal -1/3 binary64) (/.f64 t (.f64 l l)))) (.f64 #s(literal -1/2 binary64) (/.f64 t (.f64 l l)))) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (* (* k k) t) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal -1/315 binary64) (/.f64 t (.f64 l l))) (+.f64 (-.f64 (.f64 #s(literal -1/720 binary64) (/.f64 t (.f64 l l))) (.f64 #s(literal -1/24 binary64) (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64)))) (.f64 (-.f64 (.f64 #s(literal 2/45 binary64) (/.f64 t (.f64 l l))) (-.f64 (.f64 (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64)) #s(literal -1/2 binary64)) (.f64 #s(literal -1/24 binary64) (/.f64 t (.f64 l l))))) #s(literal -1/2 binary64)))) (.f64 k k)) (.f64 #s(literal 2/45 binary64) (/.f64 t (.f64 l l)))) (-.f64 (.f64 (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64)) #s(literal -1/2 binary64)) (.f64 #s(literal -1/24 binary64) (/.f64 t (.f64 l l))))) (.f64 k k)) (.f64 #s(literal -1/3 binary64) (/.f64 t (.f64 l l)))) (.f64 #s(literal -1/2 binary64) (/.f64 t (.f64 l l)))) (.f64 k k)) (/.f64 t (.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (/ (* (* k k) t) (cos k)) (.f64 (.f64 k k) t))
#s(approx (/ (* (* k k) t) (cos k)) (.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 k k) t)) t) (*.f64 k k)))
#s(approx (/ (* (* k k) t) (cos k)) (.f64 (+.f64 (.f64 (-.f64 (neg.f64 (.f64 (.f64 t #s(literal -5/24 binary64)) (.f64 k k))) (.f64 #s(literal -1/2 binary64) t)) (.f64 k k)) t) (.f64 k k)))
#s(approx (/ (* (* k k) t) (cos k)) (.f64 (+.f64 (.f64 (-.f64 (.f64 (-.f64 (neg.f64 (.f64 (+.f64 (-.f64 (.f64 #s(literal 1/48 binary64) t) (.f64 #s(literal -1/2 binary64) (.f64 t #s(literal -5/24 binary64)))) (.f64 #s(literal -1/720 binary64) t)) (.f64 k k))) (.f64 t #s(literal -5/24 binary64))) (.f64 k k)) (.f64 #s(literal -1/2 binary64) t)) (.f64 k k)) t) (.f64 k k)))
#s(approx (/ (* (sin k) (sin k)) (* l l)) (ratio-of-squares.f64 k l))
#s(approx (/ (* (sin k) (sin k)) (* l l)) (.f64 (+.f64 (.f64 (ratio-of-squares.f64 k l) #s(literal -1/3 binary64)) (pow.f64 l #s(literal -2 binary64))) (*.f64 k k)))
#s(approx (/ (* (sin k) (sin k)) (* l l)) (.f64 (+.f64 (.f64 (/.f64 (-.f64 (.f64 #s(literal 2/45 binary64) (.f64 k k)) #s(literal 1/3 binary64)) (.f64 l l)) (.f64 k k)) (pow.f64 l #s(literal -2 binary64))) (*.f64 k k)))
#s(approx (/ (* (sin k) (sin k)) (* l l)) (.f64 (+.f64 (.f64 (-.f64 (.f64 (-.f64 (.f64 (ratio-of-squares.f64 k l) #s(literal -1/315 binary64)) (.f64 #s(literal -2/45 binary64) (pow.f64 l #s(literal -2 binary64)))) (.f64 k k)) (.f64 #s(literal 1/3 binary64) (pow.f64 l #s(literal -2 binary64)))) (.f64 k k)) (pow.f64 l #s(literal -2 binary64))) (*.f64 k k)))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (+.f64 (.f64 (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) #s(literal 1/6 binary64)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) (*.f64 k k)))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) #s(literal 1/6 binary64)) (.f64 (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) #s(literal 31/360 binary64))) (.f64 k k)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) (.f64 k k)))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) #s(literal 31/360 binary64)) (.f64 (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) #s(literal 173/5040 binary64))) (.f64 k k)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) #s(literal 1/6 binary64))) (.f64 k k)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) (*.f64 k k)))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) (*.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) (.f64 (+.f64 (.f64 (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) #s(literal -1/6 binary64)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) k))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) #s(literal 1/120 binary64)) (.f64 #s(literal -1/6 binary64) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (*.f64 k k)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) k))
#s(approx (* (/ (pow t 3) (* l l)) (sin k)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/120 binary64) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) (.f64 (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) #s(literal -1/5040 binary64))) (.f64 k k)) (.f64 #s(literal -1/6 binary64) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (.f64 k k)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) k))
#s(approx (tan k) k)
#s(approx (tan k) (.f64 (+.f64 (.f64 #s(literal 1/3 binary64) (*.f64 k k)) #s(literal 1 binary64)) k))
#s(approx (tan k) (.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 2/15 binary64) (.f64 k k)) #s(literal 1/3 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k))
#s(approx (tan k) (.f64 (+.f64 (.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 17/315 binary64) (.f64 k k)) #s(literal 2/15 binary64)) (.f64 k k)) #s(literal 1/3 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k))
#s(approx (cos k) (cos.f64 k))
#s(approx (sin k) (sin.f64 k))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) (/.f64 (.f64 #s(literal 31/360 binary64) (.f64 (pow.f64 k #s(literal 8 binary64)) t)) (*.f64 l l)))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) (.f64 (+.f64 (/.f64 (.f64 #s(literal 1/6 binary64) t) (pow.f64 (.f64 l k) #s(literal 2 binary64))) (.f64 (/.f64 t (*.f64 l l)) #s(literal 31/360 binary64))) (pow.f64 k #s(literal 8 binary64))))
#s(approx (* (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (pow k 4)) (.f64 (+.f64 (+.f64 (/.f64 (.f64 #s(literal 1/6 binary64) t) (pow.f64 (.f64 l k) #s(literal 2 binary64))) (.f64 (/.f64 t (.f64 l l)) #s(literal 31/360 binary64))) (/.f64 (/.f64 t (pow.f64 k #s(literal 4 binary64))) (.f64 l l))) (pow.f64 k #s(literal 8 binary64))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (/.f64 (.f64 #s(literal 31/360 binary64) (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (*.f64 l l)))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (.f64 (+.f64 (/.f64 (.f64 #s(literal 1/6 binary64) t) (pow.f64 (.f64 l k) #s(literal 2 binary64))) (.f64 (/.f64 t (*.f64 l l)) #s(literal 31/360 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (+ (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/ t (* l l))) (.f64 (+.f64 (+.f64 (/.f64 (.f64 #s(literal 1/6 binary64) t) (pow.f64 (.f64 l k) #s(literal 2 binary64))) (.f64 (/.f64 t (.f64 l l)) #s(literal 31/360 binary64))) (/.f64 (/.f64 t (pow.f64 k #s(literal 4 binary64))) (.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (/.f64 (.f64 #s(literal 31/360 binary64) (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (*.f64 l l)))
#s(approx (* (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (* k k)) (.f64 (+.f64 (/.f64 (.f64 #s(literal 1/6 binary64) t) (pow.f64 (.f64 l k) #s(literal 2 binary64))) (.f64 (/.f64 t (*.f64 l l)) #s(literal 31/360 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (/.f64 (.f64 (.f64 (.f64 k k) #s(literal 31/360 binary64)) t) (.f64 l l)))
#s(approx (/ (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (* l l)) (.f64 (+.f64 (/.f64 (.f64 #s(literal 1/6 binary64) t) (pow.f64 (.f64 l k) #s(literal 2 binary64))) (.f64 (/.f64 t (.f64 l l)) #s(literal 31/360 binary64))) (.f64 k k)))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (.f64 (.f64 (*.f64 k k) #s(literal 31/360 binary64)) t))
#s(approx (+ (* 1/6 t) (* 31/360 (* (* k k) t))) (.f64 (-.f64 (.f64 #s(literal 31/360 binary64) t) (.f64 #s(literal -1/6 binary64) (/.f64 t (.f64 k k)))) (*.f64 k k)))
#s(approx (tan k) (tan.f64 k))
#s(approx (+ 1 (pow (/ k t) 2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 t #s(literal -2 binary64)) (.f64 k k))))

eval2.7s (12.5%)

Memory

113.2MiB live, 3 773.9MiB allocated; 791ms collecting garbage

Samples

1.6s	36 416×	0	valid
374.0ms	8 640×	0	invalid

Compiler

Compiled 39 341 to 3 955 computations (89.9% saved)

Precisions

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

ival-mult: 658.0ms (61.8% of total)

ival-div: 354.0ms (33.3% of total)

ival-true: 24.0ms (2.3% of total)

ival-assert: 18.0ms (1.7% of total)

adjust: 11.0ms (1% of total)

prune888.0ms (4.1%)

Memory

43.1MiB live, 1 254.8MiB allocated; 157ms collecting garbage

Pruning

39 alts after pruning (37 fresh and 2 done)

	Pruned	Kept	Total
New	780	34	814
Fresh	6	3	9
Picked	3	2	5
Done	0	0	0
Total	789	39	828

Accuracy

99.5%

Counts

828 → 39

Alt Table

Click to see full alt table

Status	Accuracy	Program
	47.1%	(/.f64 #s(literal 2 binary64) (.f64 (-.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (*.f64 (sin.f64 k) (tan.f64 k)))))
	23.1%	(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) #s(approx (tan k) k)) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
	47.9%	(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (/.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))
	29.6%	(/.f64 #s(literal 2 binary64) (.f64 (.f64 #s(approx (* (/ (pow t 3) (* l l)) (sin k)) (*.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (tan.f64 k)) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
▶	28.2%	(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
	85.2%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (/.f64 (.f64 (/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) l) (.f64 (.f64 k k) t)) (.f64 l (cos.f64 k)))))
	93.8%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (ratio-of-squares.f64 k l) (/.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (cos.f64 k)))))
	70.0%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (*.f64 (/.f64 (pow.f64 k #s(literal 4 binary64)) l) (/.f64 t l))))
	77.4%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 #s(approx (sin k) k) l))))
	82.5%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (pow.f64 (/.f64 (sin.f64 k) l) #s(literal 2 binary64)))))
	86.3%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))))
	61.0%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (.f64 l l))) (.f64 (.f64 k k) (.f64 k k)))))
	75.6%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 #s(approx (/ ( (* k k) t) (cos k)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 (sin.f64 k) l))))
	26.2%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (.f64 t (ratio-of-squares.f64 l (.f64 k k)))) (*.f64 t t)))
	75.4%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t)))
	62.5%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
▶	31.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))
	71.5%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 k) (.f64 l l))) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
	73.6%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 k k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
	71.5%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (neg.f64 (.f64 l l)) (cos.f64 k)) (.f64 (neg.f64 (.f64 k k)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
	82.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (.f64 k k) t)) #s(literal 2 binary64)))
	31.0%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 (exp.f64 (log.f64 l)) (.f64 k k))))
	30.6%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (/.f64 #s(literal 1 binary64) (pow.f64 k #s(literal -2 binary64))))))
✓	31.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
	75.1%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (/.f64 (ratio-of-squares.f64 l k) (.f64 k k))))
	75.6%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 (/.f64 l (.f64 k k)) (/.f64 l (.f64 k k)))))
	72.2%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 l (/.f64 l (pow.f64 k #s(literal 4 binary64))))))
▶	75.4%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (exp.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (*.f64 (log.f64 k) #s(literal 4 binary64))))))
▶	93.9%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
✓	82.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
	53.1%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
	54.7%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
	77.3%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) k))) #s(literal 2 binary64)))
	87.0%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k (.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
	53.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
	54.2%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
	60.4%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
	75.4%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 #s(approx (/ (cos k) (* (* k k) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
▶	33.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))

Samples

545.0ms	10 946×	0	valid
72.0ms	1 854×	0	invalid

Compiler

Compiled 3 210 to 2 222 computations (30.8% saved)

Precisions

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

ival-mult: 206.0ms (57% of total)

ival-div: 140.0ms (38.8% of total)

ival-true: 7.0ms (1.9% of total)

ival-assert: 5.0ms (1.4% of total)

adjust: 3.0ms (0.8% of total)

series353.0ms (1.6%)

Memory

-83.5MiB live, 612.2MiB allocated; 116ms collecting garbage

Counts

49 → 127

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
(.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64))
(.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(ratio-of-squares.f64 l k)
l
k
(/.f64 (cos.f64 k) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
(cos.f64 k)
(*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)
(pow.f64 (sin.f64 k) #s(literal 2 binary64))
(sin.f64 k)
#s(literal 2 binary64)
t
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))
(/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t)
(.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k)))
(ratio-of-squares.f64 l (*.f64 k k))
(*.f64 k k)
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))
(.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)
(pow.f64 t #s(literal 3/2 binary64))
#s(literal 3/2 binary64)
(-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))
#s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64))
#s(literal 1 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
(.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
(/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))
(+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t))
(.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k))
(.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))
(/.f64 (*.f64 l l) t)
(*.f64 l l)
#s(literal -1/6 binary64)
(pow.f64 k #s(literal 4 binary64))
#s(literal 4 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (exp.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (*.f64 (log.f64 k) #s(literal 4 binary64))))))
(.f64 (/.f64 #s(literal 2 binary64) t) (exp.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (*.f64 (log.f64 k) #s(literal 4 binary64)))))
(/.f64 #s(literal 2 binary64) t)
(exp.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64))))
(-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64)))
(*.f64 (log.f64 l) #s(literal 2 binary64))
(log.f64 l)
(*.f64 (log.f64 k) #s(literal 4 binary64))
(log.f64 k)

Outputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (* (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) 2) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) #s(hole binary64 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2))))))
#s(approx (/ (cos k) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (cos k) (* t (pow (sin k) 2)))))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* t (pow (sin k) 2))))
#s(approx t #s(hole binary64 t))
#s(approx (/ (* 2 (/ (* l l) (* (* k k) (* k k)))) t) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (/ (* (pow k 2) (* t (pow (sin k) 2))) (* (pow l 2) (cos k)))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (/ (* (pow t 3) (pow (sin k) 2)) (* (pow l 2) (cos k)))))
#s(approx (* (* k k) (/ (* (pow t 3/2) (pow t 3/2)) (* l l))) #s(hole binary64 (/ (* (pow k 2) (pow t 3)) (pow l 2))))
#s(approx (/ (* (pow t 3/2) (pow t 3/2)) (* l l)) #s(hole binary64 (/ (pow t 3) (pow l 2))))
#s(approx (pow t 3/2) #s(hole binary64 (sqrt (pow t 3))))
#s(approx (- (+ 1 (pow (/ k t) 2)) 1) #s(hole binary64 (/ (pow k 2) (pow t 2))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (/ (pow k 2) (pow t 2))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (/ (+ (pow k 2) (pow t 2)) (pow t 2))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2))))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (+ (* -1/6 (* (pow k 2) (pow l 2))) (pow l 2)) (* (pow k 4) t))))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) #s(hole binary64 (/ (+ (* -1/6 (* (pow k 2) (pow l 2))) (pow l 2)) t)))
#s(approx (* (* (/ (* l l) t) -1/6) (* k k)) #s(hole binary64 (* -1/6 (/ (* (pow k 2) (pow l 2)) t))))
#s(approx (* (/ (* l l) t) -1/6) #s(hole binary64 (* -1/6 (/ (pow l 2) t))))
#s(approx (/ (* l l) t) #s(hole binary64 (/ (pow l 2) t)))
#s(approx (* (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4)))) #s(hole binary64 (* 2 (/ (exp (- (* 2 (log l)) (* 4 (log k)))) t))))
#s(approx (/ 2 t) #s(hole binary64 (/ 2 t)))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 1))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (+ 1 (/ (pow k 2) (pow t 2)))))
#s(approx (* (* k k) (/ (* (pow t 3/2) (pow t 3/2)) (* l l))) #s(hole binary64 (* -1 (/ (* (pow k 2) (* (pow t 3) (pow (sqrt -1) 2))) (pow l 2)))))
#s(approx (/ (* (pow t 3/2) (pow t 3/2)) (* l l)) #s(hole binary64 (* -1 (/ (* (pow t 3) (pow (sqrt -1) 2)) (pow l 2)))))
#s(approx (pow t 3/2) #s(hole binary64 (* (sqrt (pow t 3)) (pow (sqrt -1) 2))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (* -1 (/ (+ (* -1 (pow l 2)) (* 1/6 (* (pow k 2) (pow l 2)))) (* (pow k 4) t)))))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) #s(hole binary64 (* -1 (/ (+ (* -1 (pow l 2)) (* 1/6 (* (pow k 2) (pow l 2)))) t))))
#s(approx (/ (* l l) (* k k)) #s(hole binary64 (/ (pow l 2) (pow k 2))))
#s(approx l #s(hole binary64 l))
#s(approx (* 2 (/ (* l l) (* (* k k) (* k k)))) #s(hole binary64 (* 2 (/ (pow l 2) (pow k 4)))))
#s(approx (/ (* l l) (* (* k k) (* k k))) #s(hole binary64 (/ (pow l 2) (pow k 4))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (* (pow l 2) (+ (* -1/6 (/ (pow k 2) t)) (/ 1 t))) (pow k 4))))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) #s(hole binary64 (* (pow l 2) (+ (* -1/6 (/ (pow k 2) t)) (/ 1 t)))))
#s(approx (* l l) #s(hole binary64 (pow l 2)))
#s(approx (exp (- (* (log l) 2) (* (log k) 4))) #s(hole binary64 (exp (- (* 2 (log l)) (* 4 (log k))))))
#s(approx (- (* (log l) 2) (* (log k) 4)) #s(hole binary64 (- (* 2 (log l)) (* 4 (log k)))))
#s(approx (* (log l) 2) #s(hole binary64 (* 2 (log l))))
#s(approx (log l) #s(hole binary64 (log l)))
#s(approx (* (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4)))) #s(hole binary64 (* 2 (/ (exp (- (* -2 (log (/ 1 l))) (* 4 (log k)))) t))))
#s(approx (exp (- (* (log l) 2) (* (log k) 4))) #s(hole binary64 (exp (- (* -2 (log (/ 1 l))) (* 4 (log k))))))
#s(approx (- (* (log l) 2) (* (log k) 4)) #s(hole binary64 (- (* -2 (log (/ 1 l))) (* 4 (log k)))))
#s(approx (* (log l) 2) #s(hole binary64 (* -2 (log (/ 1 l)))))
#s(approx (log l) #s(hole binary64 (* -1 (log (/ 1 l)))))
#s(approx (* (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4)))) #s(hole binary64 (* 2 (/ (exp (- (* 2 (+ (log -1) (* -1 (log (/ -1 l))))) (* 4 (log k)))) t))))
#s(approx (exp (- (* (log l) 2) (* (log k) 4))) #s(hole binary64 (exp (- (* 2 (+ (log -1) (* -1 (log (/ -1 l))))) (* 4 (log k))))))
#s(approx (- (* (log l) 2) (* (log k) 4)) #s(hole binary64 (- (* 2 (+ (log -1) (* -1 (log (/ -1 l))))) (* 4 (log k)))))
#s(approx (* (log l) 2) #s(hole binary64 (* 2 (+ (log -1) (* -1 (log (/ -1 l)))))))
#s(approx (log l) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 l))))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* -1/3 (/ (* (pow k 2) (pow l 2)) t)) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* -2 (* (pow k 2) (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t))))) (* -1/3 (/ (pow l 2) t))))) (pow k 4))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* -1/3 (/ (pow l 2) t)) (* (pow k 2) (+ (* -2 (* (pow k 2) (+ (* -1/6 (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t)))) (+ (* -31/2160 (/ (pow l 2) t)) (* 173/5040 (/ (pow l 2) t)))))) (* -2 (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t))))))))) (pow k 4))))
#s(approx (* (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) 2) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (* (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) 2) #s(hole binary64 (/ (+ (* 2 (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (* (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))) (pow k 4))))
#s(approx (* (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (* 2 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))))))) (pow k 4))))
#s(approx (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) #s(hole binary64 (/ (pow l 2) (* (pow k 4) t))))
#s(approx (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) #s(hole binary64 (/ (+ (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (+ (* 1/24 (/ (pow l 2) t)) (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx k #s(hole binary64 k))
#s(approx (/ (cos k) (* (pow (sin k) 2) t)) #s(hole binary64 (/ 1 (* (pow k 2) t))))
#s(approx (/ (cos k) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (+ (* -1/6 (/ (pow k 2) t)) (/ 1 t)) (pow k 2))))
#s(approx (/ (cos k) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (* -7/120 (/ (pow k 2) t)) (* 1/6 (/ 1 t)))) (/ 1 t)) (pow k 2))))
#s(approx (/ (cos k) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (* (pow k 2) (- (* -31/3024 (/ (pow k 2) t)) (* 7/120 (/ 1 t)))) (* 1/6 (/ 1 t)))) (/ 1 t)) (pow k 2))))
#s(approx (cos k) #s(hole binary64 1))
#s(approx (cos k) #s(hole binary64 (+ 1 (* -1/2 (pow k 2)))))
#s(approx (cos k) #s(hole binary64 (+ 1 (* (pow k 2) (- (* 1/24 (pow k 2)) 1/2)))))
#s(approx (cos k) #s(hole binary64 (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 1/24 (* -1/720 (pow k 2)))) 1/2)))))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* (pow k 2) t)))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* (pow k 2) (+ t (* -1/3 (* (pow k 2) t))))))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* (pow k 2) (+ t (* (pow k 2) (+ (* -1/3 t) (* 2/45 (* (pow k 2) t))))))))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* (pow k 2) (+ t (* (pow k 2) (+ (* -1/3 t) (* (pow k 2) (+ (* -1/315 (* (pow k 2) t)) (* 2/45 t)))))))))
#s(approx (pow (sin k) 2) #s(hole binary64 (pow k 2)))
#s(approx (pow (sin k) 2) #s(hole binary64 (* (pow k 2) (+ 1 (* -1/3 (pow k 2))))))
#s(approx (pow (sin k) 2) #s(hole binary64 (* (pow k 2) (+ 1 (* (pow k 2) (- (* 2/45 (pow k 2)) 1/3))))))
#s(approx (pow (sin k) 2) #s(hole binary64 (* (pow k 2) (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 2/45 (* -1/315 (pow k 2)))) 1/3))))))
#s(approx (sin k) #s(hole binary64 k))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* -1/6 (pow k 2))))))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* 1/120 (pow k 2)) 1/6))))))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 1/120 (* -1/5040 (pow k 2)))) 1/6))))))
#s(approx (* k k) #s(hole binary64 (pow k 2)))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (/ (* (pow k 4) t) (pow l 2))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* 1/6 (/ (* (pow k 2) t) (pow l 2))) (/ t (pow l 2))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) t) (pow l 2))) (* 1/6 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 1/6 (/ t (pow l 2))) (* (pow k 2) (+ (* 173/5040 (/ (* (pow k 2) t) (pow l 2))) (* 31/360 (/ t (pow l 2))))))) (/ t (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (/ (* (pow k 2) (pow t 3)) (pow l 2))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* 1/6 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (* 1/6 (/ (pow t 3) (pow l 2))))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (+ (* 1/6 (/ (pow t 3) (pow l 2))) (* (pow k 2) (+ (* 173/5040 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (* 31/360 (/ (pow t 3) (pow l 2))))))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))) (pow k 4))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (* 2 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))))))) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (pow l 2) (* (pow k 4) t))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (+ (* 1/24 (/ (pow l 2) t)) (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (pow l 2) (* (pow k 4) t))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (+ (* -1/6 (/ (* (pow k 2) (pow l 2)) t)) (/ (pow l 2) t)) (pow k 4))))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) #s(hole binary64 (/ (pow l 2) t)))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) #s(hole binary64 (+ (* -1/6 (/ (* (pow k 2) (pow l 2)) t)) (/ (pow l 2) t))))
#s(approx (pow k 4) #s(hole binary64 (pow k 4)))
#s(approx (* (log k) 4) #s(hole binary64 (* 4 (log k))))
#s(approx (log k) #s(hole binary64 (log k)))
#s(approx (cos k) #s(hole binary64 (cos k)))
#s(approx (pow (sin k) 2) #s(hole binary64 (pow (sin k) 2)))
#s(approx (sin k) #s(hole binary64 (sin k)))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (* (pow k 2) (+ (/ 1 (pow k 2)) (/ 1 (pow t 2))))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (* -1/6 (/ (pow l 2) (* (pow k 2) t)))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (+ (* -1/6 (/ (pow l 2) t)) (/ (pow l 2) (* (pow k 2) t))) (pow k 2))))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) #s(hole binary64 (* -1/6 (/ (* (pow k 2) (pow l 2)) t))))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) #s(hole binary64 (* (pow k 2) (+ (* -1/6 (/ (pow l 2) t)) (/ (pow l 2) (* (pow k 2) t))))))
#s(approx (* (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4)))) #s(hole binary64 (* 2 (/ (exp (- (* 2 (log l)) (* -4 (log (/ 1 k))))) t))))
#s(approx (exp (- (* (log l) 2) (* (log k) 4))) #s(hole binary64 (exp (- (* 2 (log l)) (* -4 (log (/ 1 k)))))))
#s(approx (- (* (log l) 2) (* (log k) 4)) #s(hole binary64 (- (* 2 (log l)) (* -4 (log (/ 1 k))))))
#s(approx (* (log k) 4) #s(hole binary64 (* -4 (log (/ 1 k)))))
#s(approx (log k) #s(hole binary64 (* -1 (log (/ 1 k)))))
#s(approx (* (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4)))) #s(hole binary64 (* 2 (/ (exp (- (* 2 (log l)) (* 4 (+ (log -1) (* -1 (log (/ -1 k))))))) t))))
#s(approx (exp (- (* (log l) 2) (* (log k) 4))) #s(hole binary64 (exp (- (* 2 (log l)) (* 4 (+ (log -1) (* -1 (log (/ -1 k)))))))))
#s(approx (- (* (log l) 2) (* (log k) 4)) #s(hole binary64 (- (* 2 (log l)) (* 4 (+ (log -1) (* -1 (log (/ -1 k))))))))
#s(approx (* (log k) 4) #s(hole binary64 (* 4 (+ (log -1) (* -1 (log (/ -1 k)))))))
#s(approx (log k) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 k))))))

Calls

9 calls:

Time	Variable		Point	Expression
110.0ms	t	@	0	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) 2) (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) (/ (* l l) (* k k)) l k (/ (cos k) (* (pow (sin k) 2) t)) (cos k) (* (pow (sin k) 2) t) (pow (sin k) 2) (sin k) 2 t (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/ (* 2 (/ (* l l) (* (* k k) (* k k)))) t) (* 2 (/ (* l l) (* (* k k) (* k k)))) (/ (* l l) (* (* k k) (* k k))) (* k k) (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (* (* k k) (/ (* (pow t 3/2) (pow t 3/2)) (* l l))) (/ (* (pow t 3/2) (pow t 3/2)) (* l l)) (pow t 3/2) 3/2 (- (+ 1 (pow (/ k t) 2)) 1) (+ 1 (pow (/ k t) 2)) 1 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (* (* (/ (* l l) t) -1/6) (* k k)) (* (/ (* l l) t) -1/6) (/ (* l l) t) (* l l) -1/6 (pow k 4) 4 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4)))) (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4))) (- (* (log l) 2) (* (log k) 4)) (* (log l) 2) (log l) (* (log k) 4) (log k))
38.0ms	t	@	inf	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) 2) (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) (/ (* l l) (* k k)) l k (/ (cos k) (* (pow (sin k) 2) t)) (cos k) (* (pow (sin k) 2) t) (pow (sin k) 2) (sin k) 2 t (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/ (* 2 (/ (* l l) (* (* k k) (* k k)))) t) (* 2 (/ (* l l) (* (* k k) (* k k)))) (/ (* l l) (* (* k k) (* k k))) (* k k) (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (* (* k k) (/ (* (pow t 3/2) (pow t 3/2)) (* l l))) (/ (* (pow t 3/2) (pow t 3/2)) (* l l)) (pow t 3/2) 3/2 (- (+ 1 (pow (/ k t) 2)) 1) (+ 1 (pow (/ k t) 2)) 1 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (* (* (/ (* l l) t) -1/6) (* k k)) (* (/ (* l l) t) -1/6) (/ (* l l) t) (* l l) -1/6 (pow k 4) 4 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4)))) (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4))) (- (* (log l) 2) (* (log k) 4)) (* (log l) 2) (log l) (* (log k) 4) (log k))
36.0ms	l	@	0	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) 2) (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) (/ (* l l) (* k k)) l k (/ (cos k) (* (pow (sin k) 2) t)) (cos k) (* (pow (sin k) 2) t) (pow (sin k) 2) (sin k) 2 t (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/ (* 2 (/ (* l l) (* (* k k) (* k k)))) t) (* 2 (/ (* l l) (* (* k k) (* k k)))) (/ (* l l) (* (* k k) (* k k))) (* k k) (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (* (* k k) (/ (* (pow t 3/2) (pow t 3/2)) (* l l))) (/ (* (pow t 3/2) (pow t 3/2)) (* l l)) (pow t 3/2) 3/2 (- (+ 1 (pow (/ k t) 2)) 1) (+ 1 (pow (/ k t) 2)) 1 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (* (* (/ (* l l) t) -1/6) (* k k)) (* (/ (* l l) t) -1/6) (/ (* l l) t) (* l l) -1/6 (pow k 4) 4 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4)))) (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4))) (- (* (log l) 2) (* (log k) 4)) (* (log l) 2) (log l) (* (log k) 4) (log k))
33.0ms	t	@	-inf	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) 2) (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) (/ (* l l) (* k k)) l k (/ (cos k) (* (pow (sin k) 2) t)) (cos k) (* (pow (sin k) 2) t) (pow (sin k) 2) (sin k) 2 t (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/ (* 2 (/ (* l l) (* (* k k) (* k k)))) t) (* 2 (/ (* l l) (* (* k k) (* k k)))) (/ (* l l) (* (* k k) (* k k))) (* k k) (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (* (* k k) (/ (* (pow t 3/2) (pow t 3/2)) (* l l))) (/ (* (pow t 3/2) (pow t 3/2)) (* l l)) (pow t 3/2) 3/2 (- (+ 1 (pow (/ k t) 2)) 1) (+ 1 (pow (/ k t) 2)) 1 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (* (* (/ (* l l) t) -1/6) (* k k)) (* (/ (* l l) t) -1/6) (/ (* l l) t) (* l l) -1/6 (pow k 4) 4 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4)))) (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4))) (- (* (log l) 2) (* (log k) 4)) (* (log l) 2) (log l) (* (log k) 4) (log k))
31.0ms	l	@	-inf	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) 2) (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) (/ (* l l) (* k k)) l k (/ (cos k) (* (pow (sin k) 2) t)) (cos k) (* (pow (sin k) 2) t) (pow (sin k) 2) (sin k) 2 t (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/ (* 2 (/ (* l l) (* (* k k) (* k k)))) t) (* 2 (/ (* l l) (* (* k k) (* k k)))) (/ (* l l) (* (* k k) (* k k))) (* k k) (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (* (* k k) (/ (* (pow t 3/2) (pow t 3/2)) (* l l))) (/ (* (pow t 3/2) (pow t 3/2)) (* l l)) (pow t 3/2) 3/2 (- (+ 1 (pow (/ k t) 2)) 1) (+ 1 (pow (/ k t) 2)) 1 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (* (* (/ (* l l) t) -1/6) (* k k)) (* (/ (* l l) t) -1/6) (/ (* l l) t) (* l l) -1/6 (pow k 4) 4 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4)))) (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4))) (- (* (log l) 2) (* (log k) 4)) (* (log l) 2) (log l) (* (log k) 4) (log k))

rewrite130.0ms (0.6%)

Memory

9.4MiB live, 100.5MiB allocated; 5ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	545	4649
0	600	4066
0	2865	4046

Stop Event

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

Counts

176 → 360

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
(.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64))
(.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(ratio-of-squares.f64 l k)
l
k
(/.f64 (cos.f64 k) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
(cos.f64 k)
(*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)
(pow.f64 (sin.f64 k) #s(literal 2 binary64))
(sin.f64 k)
#s(literal 2 binary64)
t
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))
(/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t)
(.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k)))
(ratio-of-squares.f64 l (*.f64 k k))
(*.f64 k k)
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))
(.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)
(pow.f64 t #s(literal 3/2 binary64))
#s(literal 3/2 binary64)
(-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))
#s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64))
#s(literal 1 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
(.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
(/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))
(+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t))
(.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k))
(.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))
(/.f64 (*.f64 l l) t)
(*.f64 l l)
#s(literal -1/6 binary64)
(pow.f64 k #s(literal 4 binary64))
#s(literal 4 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (exp.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (*.f64 (log.f64 k) #s(literal 4 binary64))))))
(.f64 (/.f64 #s(literal 2 binary64) t) (exp.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (*.f64 (log.f64 k) #s(literal 4 binary64)))))
(/.f64 #s(literal 2 binary64) t)
(exp.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64))))
(-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64)))
(*.f64 (log.f64 l) #s(literal 2 binary64))
(log.f64 l)
(*.f64 (log.f64 k) #s(literal 4 binary64))
(log.f64 k)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (* (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) 2) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) #s(hole binary64 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2))))))
#s(approx (/ (cos k) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (cos k) (* t (pow (sin k) 2)))))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* t (pow (sin k) 2))))
#s(approx t #s(hole binary64 t))
#s(approx (/ (* 2 (/ (* l l) (* (* k k) (* k k)))) t) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (/ (* (pow k 2) (* t (pow (sin k) 2))) (* (pow l 2) (cos k)))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (/ (* (pow t 3) (pow (sin k) 2)) (* (pow l 2) (cos k)))))
#s(approx (* (* k k) (/ (* (pow t 3/2) (pow t 3/2)) (* l l))) #s(hole binary64 (/ (* (pow k 2) (pow t 3)) (pow l 2))))
#s(approx (/ (* (pow t 3/2) (pow t 3/2)) (* l l)) #s(hole binary64 (/ (pow t 3) (pow l 2))))
#s(approx (pow t 3/2) #s(hole binary64 (sqrt (pow t 3))))
#s(approx (- (+ 1 (pow (/ k t) 2)) 1) #s(hole binary64 (/ (pow k 2) (pow t 2))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (/ (pow k 2) (pow t 2))))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (/ (+ (pow k 2) (pow t 2)) (pow t 2))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2))))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (+ (* -1/6 (* (pow k 2) (pow l 2))) (pow l 2)) (* (pow k 4) t))))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) #s(hole binary64 (/ (+ (* -1/6 (* (pow k 2) (pow l 2))) (pow l 2)) t)))
#s(approx (* (* (/ (* l l) t) -1/6) (* k k)) #s(hole binary64 (* -1/6 (/ (* (pow k 2) (pow l 2)) t))))
#s(approx (* (/ (* l l) t) -1/6) #s(hole binary64 (* -1/6 (/ (pow l 2) t))))
#s(approx (/ (* l l) t) #s(hole binary64 (/ (pow l 2) t)))
#s(approx (* (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4)))) #s(hole binary64 (* 2 (/ (exp (- (* 2 (log l)) (* 4 (log k)))) t))))
#s(approx (/ 2 t) #s(hole binary64 (/ 2 t)))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 1))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (+ 1 (/ (pow k 2) (pow t 2)))))
#s(approx (* (* k k) (/ (* (pow t 3/2) (pow t 3/2)) (* l l))) #s(hole binary64 (* -1 (/ (* (pow k 2) (* (pow t 3) (pow (sqrt -1) 2))) (pow l 2)))))
#s(approx (/ (* (pow t 3/2) (pow t 3/2)) (* l l)) #s(hole binary64 (* -1 (/ (* (pow t 3) (pow (sqrt -1) 2)) (pow l 2)))))
#s(approx (pow t 3/2) #s(hole binary64 (* (sqrt (pow t 3)) (pow (sqrt -1) 2))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (* -1 (/ (+ (* -1 (pow l 2)) (* 1/6 (* (pow k 2) (pow l 2)))) (* (pow k 4) t)))))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) #s(hole binary64 (* -1 (/ (+ (* -1 (pow l 2)) (* 1/6 (* (pow k 2) (pow l 2)))) t))))
#s(approx (/ (* l l) (* k k)) #s(hole binary64 (/ (pow l 2) (pow k 2))))
#s(approx l #s(hole binary64 l))
#s(approx (* 2 (/ (* l l) (* (* k k) (* k k)))) #s(hole binary64 (* 2 (/ (pow l 2) (pow k 4)))))
#s(approx (/ (* l l) (* (* k k) (* k k))) #s(hole binary64 (/ (pow l 2) (pow k 4))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (* (pow l 2) (+ (* -1/6 (/ (pow k 2) t)) (/ 1 t))) (pow k 4))))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) #s(hole binary64 (* (pow l 2) (+ (* -1/6 (/ (pow k 2) t)) (/ 1 t)))))
#s(approx (* l l) #s(hole binary64 (pow l 2)))
#s(approx (exp (- (* (log l) 2) (* (log k) 4))) #s(hole binary64 (exp (- (* 2 (log l)) (* 4 (log k))))))
#s(approx (- (* (log l) 2) (* (log k) 4)) #s(hole binary64 (- (* 2 (log l)) (* 4 (log k)))))
#s(approx (* (log l) 2) #s(hole binary64 (* 2 (log l))))
#s(approx (log l) #s(hole binary64 (log l)))
#s(approx (* (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4)))) #s(hole binary64 (* 2 (/ (exp (- (* -2 (log (/ 1 l))) (* 4 (log k)))) t))))
#s(approx (exp (- (* (log l) 2) (* (log k) 4))) #s(hole binary64 (exp (- (* -2 (log (/ 1 l))) (* 4 (log k))))))
#s(approx (- (* (log l) 2) (* (log k) 4)) #s(hole binary64 (- (* -2 (log (/ 1 l))) (* 4 (log k)))))
#s(approx (* (log l) 2) #s(hole binary64 (* -2 (log (/ 1 l)))))
#s(approx (log l) #s(hole binary64 (* -1 (log (/ 1 l)))))
#s(approx (* (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4)))) #s(hole binary64 (* 2 (/ (exp (- (* 2 (+ (log -1) (* -1 (log (/ -1 l))))) (* 4 (log k)))) t))))
#s(approx (exp (- (* (log l) 2) (* (log k) 4))) #s(hole binary64 (exp (- (* 2 (+ (log -1) (* -1 (log (/ -1 l))))) (* 4 (log k))))))
#s(approx (- (* (log l) 2) (* (log k) 4)) #s(hole binary64 (- (* 2 (+ (log -1) (* -1 (log (/ -1 l))))) (* 4 (log k)))))
#s(approx (* (log l) 2) #s(hole binary64 (* 2 (+ (log -1) (* -1 (log (/ -1 l)))))))
#s(approx (log l) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 l))))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* -1/3 (/ (* (pow k 2) (pow l 2)) t)) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* -2 (* (pow k 2) (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t))))) (* -1/3 (/ (pow l 2) t))))) (pow k 4))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* -1/3 (/ (pow l 2) t)) (* (pow k 2) (+ (* -2 (* (pow k 2) (+ (* -1/6 (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t)))) (+ (* -31/2160 (/ (pow l 2) t)) (* 173/5040 (/ (pow l 2) t)))))) (* -2 (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t))))))))) (pow k 4))))
#s(approx (* (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) 2) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (* (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) 2) #s(hole binary64 (/ (+ (* 2 (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (* (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))) (pow k 4))))
#s(approx (* (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (* 2 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))))))) (pow k 4))))
#s(approx (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) #s(hole binary64 (/ (pow l 2) (* (pow k 4) t))))
#s(approx (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) #s(hole binary64 (/ (+ (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (* l l) (* k k)) (/ (cos k) (* (pow (sin k) 2) t))) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (+ (* 1/24 (/ (pow l 2) t)) (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx k #s(hole binary64 k))
#s(approx (/ (cos k) (* (pow (sin k) 2) t)) #s(hole binary64 (/ 1 (* (pow k 2) t))))
#s(approx (/ (cos k) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (+ (* -1/6 (/ (pow k 2) t)) (/ 1 t)) (pow k 2))))
#s(approx (/ (cos k) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (* -7/120 (/ (pow k 2) t)) (* 1/6 (/ 1 t)))) (/ 1 t)) (pow k 2))))
#s(approx (/ (cos k) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (* (pow k 2) (- (* -31/3024 (/ (pow k 2) t)) (* 7/120 (/ 1 t)))) (* 1/6 (/ 1 t)))) (/ 1 t)) (pow k 2))))
#s(approx (cos k) #s(hole binary64 1))
#s(approx (cos k) #s(hole binary64 (+ 1 (* -1/2 (pow k 2)))))
#s(approx (cos k) #s(hole binary64 (+ 1 (* (pow k 2) (- (* 1/24 (pow k 2)) 1/2)))))
#s(approx (cos k) #s(hole binary64 (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 1/24 (* -1/720 (pow k 2)))) 1/2)))))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* (pow k 2) t)))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* (pow k 2) (+ t (* -1/3 (* (pow k 2) t))))))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* (pow k 2) (+ t (* (pow k 2) (+ (* -1/3 t) (* 2/45 (* (pow k 2) t))))))))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* (pow k 2) (+ t (* (pow k 2) (+ (* -1/3 t) (* (pow k 2) (+ (* -1/315 (* (pow k 2) t)) (* 2/45 t)))))))))
#s(approx (pow (sin k) 2) #s(hole binary64 (pow k 2)))
#s(approx (pow (sin k) 2) #s(hole binary64 (* (pow k 2) (+ 1 (* -1/3 (pow k 2))))))
#s(approx (pow (sin k) 2) #s(hole binary64 (* (pow k 2) (+ 1 (* (pow k 2) (- (* 2/45 (pow k 2)) 1/3))))))
#s(approx (pow (sin k) 2) #s(hole binary64 (* (pow k 2) (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 2/45 (* -1/315 (pow k 2)))) 1/3))))))
#s(approx (sin k) #s(hole binary64 k))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* -1/6 (pow k 2))))))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* 1/120 (pow k 2)) 1/6))))))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 1/120 (* -1/5040 (pow k 2)))) 1/6))))))
#s(approx (* k k) #s(hole binary64 (pow k 2)))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (/ (* (pow k 4) t) (pow l 2))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* 1/6 (/ (* (pow k 2) t) (pow l 2))) (/ t (pow l 2))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) t) (pow l 2))) (* 1/6 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 1/6 (/ t (pow l 2))) (* (pow k 2) (+ (* 173/5040 (/ (* (pow k 2) t) (pow l 2))) (* 31/360 (/ t (pow l 2))))))) (/ t (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (/ (* (pow k 2) (pow t 3)) (pow l 2))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* 1/6 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (* 1/6 (/ (pow t 3) (pow l 2))))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (+ (* 1/6 (/ (pow t 3) (pow l 2))) (* (pow k 2) (+ (* 173/5040 (/ (* (pow k 2) (pow t 3)) (pow l 2))) (* 31/360 (/ (pow t 3) (pow l 2))))))) (/ (pow t 3) (pow l 2))))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))) (pow k 4))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (* 2 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))))))) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (pow l 2) (* (pow k 4) t))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (+ (* 1/24 (/ (pow l 2) t)) (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (pow l 2) (* (pow k 4) t))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (+ (* -1/6 (/ (* (pow k 2) (pow l 2)) t)) (/ (pow l 2) t)) (pow k 4))))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) #s(hole binary64 (/ (pow l 2) t)))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) #s(hole binary64 (+ (* -1/6 (/ (* (pow k 2) (pow l 2)) t)) (/ (pow l 2) t))))
#s(approx (pow k 4) #s(hole binary64 (pow k 4)))
#s(approx (* (log k) 4) #s(hole binary64 (* 4 (log k))))
#s(approx (log k) #s(hole binary64 (log k)))
#s(approx (cos k) #s(hole binary64 (cos k)))
#s(approx (pow (sin k) 2) #s(hole binary64 (pow (sin k) 2)))
#s(approx (sin k) #s(hole binary64 (sin k)))
#s(approx (+ 1 (pow (/ k t) 2)) #s(hole binary64 (* (pow k 2) (+ (/ 1 (pow k 2)) (/ 1 (pow t 2))))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (* -1/6 (/ (pow l 2) (* (pow k 2) t)))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (+ (* -1/6 (/ (pow l 2) t)) (/ (pow l 2) (* (pow k 2) t))) (pow k 2))))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) #s(hole binary64 (* -1/6 (/ (* (pow k 2) (pow l 2)) t))))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) #s(hole binary64 (* (pow k 2) (+ (* -1/6 (/ (pow l 2) t)) (/ (pow l 2) (* (pow k 2) t))))))
#s(approx (* (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4)))) #s(hole binary64 (* 2 (/ (exp (- (* 2 (log l)) (* -4 (log (/ 1 k))))) t))))
#s(approx (exp (- (* (log l) 2) (* (log k) 4))) #s(hole binary64 (exp (- (* 2 (log l)) (* -4 (log (/ 1 k)))))))
#s(approx (- (* (log l) 2) (* (log k) 4)) #s(hole binary64 (- (* 2 (log l)) (* -4 (log (/ 1 k))))))
#s(approx (* (log k) 4) #s(hole binary64 (* -4 (log (/ 1 k)))))
#s(approx (log k) #s(hole binary64 (* -1 (log (/ 1 k)))))
#s(approx (* (/ 2 t) (exp (- (* (log l) 2) (* (log k) 4)))) #s(hole binary64 (* 2 (/ (exp (- (* 2 (log l)) (* 4 (+ (log -1) (* -1 (log (/ -1 k))))))) t))))
#s(approx (exp (- (* (log l) 2) (* (log k) 4))) #s(hole binary64 (exp (- (* 2 (log l)) (* 4 (+ (log -1) (* -1 (log (/ -1 k)))))))))
#s(approx (- (* (log l) 2) (* (log k) 4)) #s(hole binary64 (- (* 2 (log l)) (* 4 (+ (log -1) (* -1 (log (/ -1 k))))))))
#s(approx (* (log k) 4) #s(hole binary64 (* 4 (+ (log -1) (* -1 (log (/ -1 k)))))))
#s(approx (log k) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 k))))))

Outputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 (ratio-of-squares.f64 l (sin.f64 k)) #s(literal 2 binary64))))
(.f64 (.f64 (/.f64 (/.f64 (cos.f64 k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (ratio-of-squares.f64 l k)) #s(literal 2 binary64))
(.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 (ratio-of-squares.f64 l (sin.f64 k)) #s(literal 2 binary64)))
(.f64 (ratio-of-squares.f64 l k) (.f64 (/.f64 (/.f64 (cos.f64 k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (/.f64 (/.f64 (cos.f64 k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (ratio-of-squares.f64 l k)))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 l l) (cos.f64 k))) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(+.f64 (.f64 (/.f64 (/.f64 (cos.f64 k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (ratio-of-squares.f64 l k)) (.f64 (/.f64 (/.f64 (cos.f64 k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (ratio-of-squares.f64 l k)))
(*.f64 (/.f64 (/.f64 (cos.f64 k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (ratio-of-squares.f64 l k))
(.f64 (.f64 l l) (/.f64 (cos.f64 k) (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(.f64 (ratio-of-squares.f64 l (sin.f64 k)) (/.f64 (cos.f64 k) (.f64 (*.f64 k k) t)))
(.f64 (/.f64 (cos.f64 k) (.f64 (*.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k)))
(*.f64 (ratio-of-squares.f64 l k) (/.f64 (/.f64 (cos.f64 k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (/.f64 (.f64 (.f64 l l) (cos.f64 k)) (.f64 k k)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
(/.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (*.f64 k k) t))
(/.f64 (.f64 (.f64 l l) (/.f64 (/.f64 (cos.f64 k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (*.f64 k k))
(/.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))
(/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
(/.f64 (neg.f64 (.f64 (.f64 l l) (cos.f64 k))) (neg.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 l l) (cos.f64 k)) (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(*.f64 (/.f64 l k) (/.f64 l k))
(.f64 l (/.f64 l (.f64 k k)))
(ratio-of-squares.f64 (pow.f64 l #s(literal 1 binary64)) (pow.f64 k #s(literal 1 binary64)))
(ratio-of-squares.f64 (pow.f64 l #s(literal 1 binary64)) (fabs.f64 k))
(ratio-of-squares.f64 (pow.f64 l #s(literal 1 binary64)) (neg.f64 k))
(ratio-of-squares.f64 (pow.f64 l #s(literal 1 binary64)) k)
(ratio-of-squares.f64 (neg.f64 l) (pow.f64 k #s(literal 1 binary64)))
(ratio-of-squares.f64 (neg.f64 l) (fabs.f64 k))
(ratio-of-squares.f64 (neg.f64 l) (neg.f64 k))
(ratio-of-squares.f64 (neg.f64 l) k)
(ratio-of-squares.f64 (fabs.f64 l) (pow.f64 k #s(literal 1 binary64)))
(ratio-of-squares.f64 (fabs.f64 l) (fabs.f64 k))
(ratio-of-squares.f64 (fabs.f64 l) (neg.f64 k))
(ratio-of-squares.f64 (fabs.f64 l) k)
(ratio-of-squares.f64 l (pow.f64 k #s(literal 1 binary64)))
(ratio-of-squares.f64 l (fabs.f64 k))
(ratio-of-squares.f64 l (neg.f64 k))
(ratio-of-squares.f64 l k)
(/.f64 (/.f64 (*.f64 l l) k) k)
(/.f64 (neg.f64 (.f64 l l)) (neg.f64 (.f64 k k)))
(/.f64 (.f64 l l) (.f64 k k))
l
k
(/.f64 (/.f64 (cos.f64 k) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) t)
(/.f64 (/.f64 (cos.f64 k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))
(/.f64 (neg.f64 (cos.f64 k)) (neg.f64 (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (cos.f64 k) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
(sin.f64 (+.f64 k (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 k))
(cos.f64 k)
(*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)
(*.f64 t (pow.f64 (sin.f64 k) #s(literal 2 binary64)))
(*.f64 (pow.f64 (sin.f64 k) #s(literal 1 binary64)) (pow.f64 (sin.f64 k) #s(literal 1 binary64)))
(*.f64 (neg.f64 (sin.f64 k)) (neg.f64 (sin.f64 k)))
(*.f64 (fabs.f64 (sin.f64 k)) (fabs.f64 (sin.f64 k)))
(*.f64 (sin.f64 k) (sin.f64 k))
(pow.f64 (sin.f64 k) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 k k)) (cos.f64 (+.f64 k k))) #s(literal 2 binary64))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) k))))
(exp.f64 (*.f64 (log.f64 (sin.f64 k)) #s(literal 2 binary64)))
(sin.f64 k)
#s(literal 2 binary64)
t
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (ratio-of-squares.f64 l (.f64 k k)) (/.f64 #s(literal 2 binary64) t)))
(.f64 (ratio-of-squares.f64 l (.f64 k k)) (/.f64 #s(literal 2 binary64) t))
(.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k)))
(.f64 (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 l l)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t))
(/.f64 (neg.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) #s(literal 2 binary64))) (neg.f64 t))
(/.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) #s(literal 2 binary64)) t)
(+.f64 (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t))
(.f64 (ratio-of-squares.f64 l (.f64 k k)) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k)))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 l l)) (pow.f64 k #s(literal 4 binary64)))
(+.f64 (ratio-of-squares.f64 l (.f64 k k)) (ratio-of-squares.f64 l (.f64 k k)))
(.f64 (/.f64 l (.f64 k k)) (/.f64 l (*.f64 k k)))
(*.f64 l (/.f64 l (pow.f64 k #s(literal 4 binary64))))
(ratio-of-squares.f64 (pow.f64 l #s(literal 1 binary64)) (neg.f64 (*.f64 k k)))
(ratio-of-squares.f64 (pow.f64 l #s(literal 1 binary64)) (fabs.f64 (*.f64 k k)))
(ratio-of-squares.f64 (pow.f64 l #s(literal 1 binary64)) (*.f64 k k))
(ratio-of-squares.f64 (/.f64 l k) (pow.f64 k #s(literal 1 binary64)))
(ratio-of-squares.f64 (/.f64 l k) (fabs.f64 k))
(ratio-of-squares.f64 (/.f64 l k) (neg.f64 k))
(ratio-of-squares.f64 (/.f64 l k) k)
(ratio-of-squares.f64 (neg.f64 l) (neg.f64 (*.f64 k k)))
(ratio-of-squares.f64 (neg.f64 l) (fabs.f64 (*.f64 k k)))
(ratio-of-squares.f64 (neg.f64 l) (*.f64 k k))
(ratio-of-squares.f64 (fabs.f64 l) (neg.f64 (*.f64 k k)))
(ratio-of-squares.f64 (fabs.f64 l) (fabs.f64 (*.f64 k k)))
(ratio-of-squares.f64 (fabs.f64 l) (*.f64 k k))
(ratio-of-squares.f64 l (neg.f64 (*.f64 k k)))
(ratio-of-squares.f64 l (fabs.f64 (*.f64 k k)))
(ratio-of-squares.f64 l (*.f64 k k))
(/.f64 (neg.f64 (*.f64 l l)) (neg.f64 (pow.f64 k #s(literal 4 binary64))))
(/.f64 (*.f64 l l) (pow.f64 k #s(literal 4 binary64)))
(/.f64 (ratio-of-squares.f64 l k) (*.f64 k k))
(exp.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64))))
(+.f64 (cosh.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64)))) (sinh.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64)))))
(*.f64 (pow.f64 k #s(literal 1 binary64)) (pow.f64 k #s(literal 1 binary64)))
(*.f64 (fabs.f64 k) (fabs.f64 k))
(*.f64 (neg.f64 k) (neg.f64 k))
(*.f64 k k)
(pow.f64 k #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 k) #s(literal 2 binary64)))
(/.f64 (/.f64 #s(literal 2 binary64) #s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 k k)))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)))
(/.f64 #s(literal -2 binary64) (neg.f64 (.f64 (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)) #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 k k))))))
(/.f64 #s(literal 2 binary64) (.f64 (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)) #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 k k)))))
(.f64 (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)) #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 k k))))
(.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 k k))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 k k)))
(.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 k k))
(.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))
(.f64 k (.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))
(/.f64 (neg.f64 (.f64 (.f64 k k) (pow.f64 t #s(literal 3 binary64)))) (neg.f64 (*.f64 l l)))
(/.f64 (.f64 (.f64 k k) (pow.f64 t #s(literal 3 binary64))) (*.f64 l l))
(*.f64 (/.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (/.f64 (pow.f64 t #s(literal 3/2 binary64)) l))
(*.f64 (pow.f64 t #s(literal 3/2 binary64)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/4 binary64)) l))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (pow.f64 l #s(literal 1 binary64)))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (neg.f64 l))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) (fabs.f64 l))
(ratio-of-squares.f64 (neg.f64 (pow.f64 t #s(literal 3/2 binary64))) l)
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (pow.f64 l #s(literal 1 binary64)))
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (neg.f64 l))
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) (fabs.f64 l))
(ratio-of-squares.f64 (fabs.f64 (pow.f64 t #s(literal 3/2 binary64))) l)
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) (pow.f64 l #s(literal 1 binary64)))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) (neg.f64 l))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) (fabs.f64 l))
(ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)
(/.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) l) l)
(/.f64 (neg.f64 (pow.f64 t #s(literal 3 binary64))) (neg.f64 (*.f64 l l)))
(/.f64 (pow.f64 t #s(literal 3 binary64)) (*.f64 l l))
(*.f64 (pow.f64 t #s(literal 3/4 binary64)) (pow.f64 t #s(literal 3/4 binary64)))
(pow.f64 (pow.f64 t #s(literal 3 binary64)) #s(literal 1/2 binary64))
(pow.f64 t #s(literal 3/2 binary64))
(sqrt.f64 (pow.f64 t #s(literal 3 binary64)))
(exp.f64 (*.f64 (log.f64 t) #s(literal 3/2 binary64)))
#s(literal 3/2 binary64)
(/.f64 (-.f64 (*.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64))) #s(literal 1 binary64)) (+.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64)))))
(-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))
#s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64))
#s(literal 1 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
(.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
(/.f64 (neg.f64 (+.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (*.f64 l l) t))) (neg.f64 (pow.f64 k #s(literal 4 binary64))))
(/.f64 (+.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (pow.f64 k #s(literal 4 binary64))) (/.f64 (/.f64 (*.f64 l l) t) (pow.f64 k #s(literal 4 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k)) (.f64 (/.f64 (.f64 l l) t) (/.f64 (.f64 l l) t))) (-.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (*.f64 l l) t)))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 l l) t) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k)) (-.f64 (.f64 (/.f64 (.f64 l l) t) (/.f64 (.f64 l l) t)) (.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (*.f64 l l) t)))))
(+.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (*.f64 l l) t))
(+.f64 (/.f64 (.f64 l l) t) (.f64 (.f64 (.f64 (/.f64 (*.f64 l l) t) #s(literal -1/6 binary64)) k) k))
(.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k)
(.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k))
(.f64 (/.f64 (.f64 l l) t) (.f64 (.f64 k k) #s(literal -1/6 binary64)))
(.f64 (.f64 k k) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))
(.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))
(.f64 #s(literal -1/6 binary64) (/.f64 (.f64 l l) t))
(/.f64 (.f64 (.f64 l l) #s(literal -1/6 binary64)) t)
(/.f64 (.f64 #s(literal -1/6 binary64) (.f64 l l)) t)
(/.f64 (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t))) (.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 l l) t)))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 l l) t))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 l l) t)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t))) (+.f64 (.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -1/3 binary64) (/.f64 (*.f64 l l) t))))))
(-.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 l l) t)))
(+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 l l) t)))
(*.f64 l (/.f64 l t))
(/.f64 (neg.f64 (*.f64 l l)) (neg.f64 t))
(/.f64 (*.f64 l l) t)
(*.f64 (pow.f64 l #s(literal 1 binary64)) (pow.f64 l #s(literal 1 binary64)))
(*.f64 (neg.f64 l) (neg.f64 l))
(*.f64 (fabs.f64 l) (fabs.f64 l))
(*.f64 l l)
(pow.f64 l #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 l) #s(literal 2 binary64)))
#s(literal -1/6 binary64)
(.f64 (.f64 (*.f64 k k) k) k)
(.f64 (neg.f64 (.f64 k k)) (neg.f64 (*.f64 k k)))
(.f64 (fabs.f64 (.f64 k k)) (fabs.f64 (*.f64 k k)))
(.f64 (.f64 k k) (*.f64 k k))
(.f64 k (.f64 k (*.f64 k k)))
(pow.f64 (*.f64 k k) #s(literal 2 binary64))
(pow.f64 k #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 k) #s(literal 4 binary64)))
#s(literal 4 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (ratio-of-squares.f64 l (.f64 k k)) (/.f64 #s(literal 2 binary64) t)))
(.f64 (ratio-of-squares.f64 l (.f64 k k)) (/.f64 #s(literal 2 binary64) t))
(.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k)))
(.f64 (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 l l)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t))
(/.f64 (neg.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) #s(literal 2 binary64))) (neg.f64 t))
(/.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) #s(literal 2 binary64)) t)
(+.f64 (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t))
(/.f64 #s(literal -2 binary64) (neg.f64 t))
(/.f64 #s(literal 2 binary64) t)
(.f64 (/.f64 l (.f64 k k)) (/.f64 l (*.f64 k k)))
(*.f64 l (/.f64 l (pow.f64 k #s(literal 4 binary64))))
(ratio-of-squares.f64 (pow.f64 l #s(literal 1 binary64)) (neg.f64 (*.f64 k k)))
(ratio-of-squares.f64 (pow.f64 l #s(literal 1 binary64)) (fabs.f64 (*.f64 k k)))
(ratio-of-squares.f64 (pow.f64 l #s(literal 1 binary64)) (*.f64 k k))
(ratio-of-squares.f64 (/.f64 l k) (pow.f64 k #s(literal 1 binary64)))
(ratio-of-squares.f64 (/.f64 l k) (fabs.f64 k))
(ratio-of-squares.f64 (/.f64 l k) (neg.f64 k))
(ratio-of-squares.f64 (/.f64 l k) k)
(ratio-of-squares.f64 (neg.f64 l) (neg.f64 (*.f64 k k)))
(ratio-of-squares.f64 (neg.f64 l) (fabs.f64 (*.f64 k k)))
(ratio-of-squares.f64 (neg.f64 l) (*.f64 k k))
(ratio-of-squares.f64 (fabs.f64 l) (neg.f64 (*.f64 k k)))
(ratio-of-squares.f64 (fabs.f64 l) (fabs.f64 (*.f64 k k)))
(ratio-of-squares.f64 (fabs.f64 l) (*.f64 k k))
(ratio-of-squares.f64 l (neg.f64 (*.f64 k k)))
(ratio-of-squares.f64 l (fabs.f64 (*.f64 k k)))
(ratio-of-squares.f64 l (*.f64 k k))
(/.f64 (neg.f64 (*.f64 l l)) (neg.f64 (pow.f64 k #s(literal 4 binary64))))
(/.f64 (*.f64 l l) (pow.f64 k #s(literal 4 binary64)))
(/.f64 (ratio-of-squares.f64 l k) (*.f64 k k))
(exp.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64))))
(+.f64 (cosh.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64)))) (sinh.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 l) #s(literal 2 binary64))) (.f64 (.f64 (log.f64 k) #s(literal 4 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64)))) (+.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (log.f64 k) #s(literal 4 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 l) #s(literal 2 binary64))) (+.f64 (.f64 (.f64 (log.f64 k) #s(literal 4 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64))) (.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (*.f64 (log.f64 k) #s(literal 4 binary64))))))
(-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64)))
(+.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (neg.f64 (log.f64 k)) #s(literal 4 binary64)))
(+.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 #s(literal -4 binary64) (log.f64 k)))
(*.f64 (log.f64 l) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (log.f64 l))
(+.f64 (log.f64 l) (log.f64 l))
(log.f64 (*.f64 l l))
(log.f64 l)
(*.f64 (log.f64 k) #s(literal 4 binary64))
(*.f64 #s(literal 4 binary64) (log.f64 k))
(log.f64 (pow.f64 k #s(literal 4 binary64)))
(log.f64 k)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 (ratio-of-squares.f64 l (sin.f64 k)) #s(literal 2 binary64))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 (ratio-of-squares.f64 l (sin.f64 k)) #s(literal 2 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (*.f64 (/.f64 (/.f64 (cos.f64 k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (ratio-of-squares.f64 l k)))
#s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (/.f64 (cos.f64 k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
#s(approx (* (pow (sin k) 2) t) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
#s(approx t t)
#s(approx (/ (* 2 (/ (* l l) (* (* k k) (* k k)))) t) (.f64 (ratio-of-squares.f64 l (.f64 k k)) (/.f64 #s(literal 2 binary64) t)))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (ratio-of-squares.f64 k l) (/.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (cos.f64 k))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (*.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (cos.f64 k))))
#s(approx (* (* k k) (/ (* (pow t 3/2) (pow t 3/2)) (* l l))) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 k k)))
#s(approx (/ (* (pow t 3/2) (pow t 3/2)) (* l l)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))
#s(approx (pow t 3/2) (pow.f64 t #s(literal 3/2 binary64)))
#s(approx (- (+ 1 (pow (/ k t) 2)) 1) (ratio-of-squares.f64 k t))
#s(approx (+ 1 (pow (/ k t) 2)) (ratio-of-squares.f64 k t))
#s(approx (+ 1 (pow (/ k t) 2)) (+.f64 (ratio-of-squares.f64 k t) (ratio-of-squares.f64 t t)))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 (ratio-of-squares.f64 l (sin.f64 k)) #s(literal 2 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (*.f64 (/.f64 (/.f64 (cos.f64 k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (ratio-of-squares.f64 l k)))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (+.f64 (.f64 (pow.f64 (.f64 k l) #s(literal 2 binary64)) #s(literal -1/6 binary64)) (.f64 l l)) (.f64 (pow.f64 k #s(literal 4 binary64)) t)))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (/.f64 (+.f64 (.f64 (pow.f64 (.f64 k l) #s(literal 2 binary64)) #s(literal -1/6 binary64)) (*.f64 l l)) t))
#s(approx (* (* (/ (* l l) t) -1/6) (* k k)) (.f64 (/.f64 (pow.f64 (.f64 k l) #s(literal 2 binary64)) t) #s(literal -1/6 binary64)))
#s(approx (* (/ (* l l) t) -1/6) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))
#s(approx (/ (* l l) t) (/.f64 (*.f64 l l) t))
#s(approx (/ (* 2 (/ (* l l) (* (* k k) (* k k)))) t) (.f64 (ratio-of-squares.f64 l (.f64 k k)) (/.f64 #s(literal 2 binary64) t)))
#s(approx (/ 2 t) (/.f64 #s(literal 2 binary64) t))
#s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64))
#s(approx (+ 1 (pow (/ k t) 2)) (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)))
#s(approx (* (* k k) (/ (* (pow t 3/2) (pow t 3/2)) (* l l))) (neg.f64 (/.f64 (.f64 (.f64 #s(literal -1 binary64) (pow.f64 t #s(literal 3 binary64))) (.f64 k k)) (.f64 l l))))
#s(approx (/ (* (pow t 3/2) (pow t 3/2)) (* l l)) (neg.f64 (.f64 (pow.f64 t #s(literal 3 binary64)) (/.f64 #s(literal -1 binary64) (.f64 l l)))))
#s(approx (pow t 3/2) (*.f64 #s(literal -1 binary64) (pow.f64 t #s(literal 3/2 binary64))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (neg.f64 (/.f64 (-.f64 (neg.f64 (.f64 l l)) (.f64 (pow.f64 (.f64 k l) #s(literal 2 binary64)) #s(literal -1/6 binary64))) (.f64 (pow.f64 k #s(literal 4 binary64)) t))))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (neg.f64 (/.f64 (-.f64 (neg.f64 (.f64 l l)) (.f64 (pow.f64 (*.f64 k l) #s(literal 2 binary64)) #s(literal -1/6 binary64))) t)))
#s(approx (/ (* l l) (* k k)) (ratio-of-squares.f64 l k))
#s(approx l l)
#s(approx (* 2 (/ (* l l) (* (* k k) (* k k)))) (.f64 (ratio-of-squares.f64 l (.f64 k k)) #s(literal 2 binary64)))
#s(approx (/ (* l l) (* (* k k) (* k k))) (ratio-of-squares.f64 l (*.f64 k k)))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (.f64 (+.f64 (pow.f64 t #s(literal -1 binary64)) (.f64 (/.f64 (.f64 k k) t) #s(literal -1/6 binary64))) (.f64 l l)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (.f64 (+.f64 (pow.f64 t #s(literal -1 binary64)) (.f64 (/.f64 (.f64 k k) t) #s(literal -1/6 binary64))) (.f64 l l)))
#s(approx (* l l) (*.f64 l l))
#s(approx (/ (* l l) (* (* k k) (* k k))) (ratio-of-squares.f64 l (*.f64 k k)))
#s(approx (- (* (log l) 2) (* (log k) 4)) (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64))))
#s(approx (* (log l) 2) (*.f64 (log.f64 l) #s(literal 2 binary64)))
#s(approx (log l) (log.f64 l))
#s(approx (/ (* 2 (/ (* l l) (* (* k k) (* k k)))) t) (.f64 (/.f64 (/.f64 (exp.f64 (.f64 (neg.f64 (log.f64 l)) #s(literal -2 binary64))) (pow.f64 k #s(literal 4 binary64))) t) #s(literal 2 binary64)))
#s(approx (/ (* l l) (* (* k k) (* k k))) (/.f64 (exp.f64 (*.f64 (neg.f64 (log.f64 l)) #s(literal -2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (- (* (log l) 2) (* (log k) 4)) (-.f64 (.f64 (neg.f64 (log.f64 l)) #s(literal -2 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64))))
#s(approx (* (log l) 2) (*.f64 (neg.f64 (log.f64 l)) #s(literal -2 binary64)))
#s(approx (log l) (neg.f64 (neg.f64 (log.f64 l))))
#s(approx (/ (* 2 (/ (* l l) (* (* k k) (* k k)))) t) (.f64 (/.f64 (/.f64 (exp.f64 (.f64 (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) l))) (log.f64 #s(literal -1 binary64))) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))) t) #s(literal 2 binary64)))
#s(approx (/ (* l l) (* (* k k) (* k k))) (/.f64 (exp.f64 (*.f64 (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) l))) (log.f64 #s(literal -1 binary64))) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (- (* (log l) 2) (* (log k) 4)) (-.f64 (.f64 (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) l))) (log.f64 #s(literal -1 binary64))) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 4 binary64))))
#s(approx (* (log l) 2) (*.f64 (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) l))) (log.f64 #s(literal -1 binary64))) #s(literal 2 binary64)))
#s(approx (log l) (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) l))) (log.f64 #s(literal -1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (ratio-of-squares.f64 l (.f64 k k)) (/.f64 #s(literal 2 binary64) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (.f64 k l) #s(literal 2 binary64)) t)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 l l) t))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64))) (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (.f64 (/.f64 (*.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -2 binary64) (+.f64 (.f64 (+.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal 151/7560 binary64)) (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64)) #s(literal -1/6 binary64))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64)))) (.f64 k k)) (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (.f64 (ratio-of-squares.f64 l (.f64 k k)) (/.f64 #s(literal 2 binary64) t)))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (/.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (.f64 l l) t))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (/.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 (-.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (.f64 l l) t)) (+.f64 (-.f64 (.f64 #s(literal -1/315 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -2/45 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))) (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) #s(literal -1/3 binary64)))) (.f64 k k)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))))) (.f64 k k)) (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal 2 binary64))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (ratio-of-squares.f64 l (*.f64 k k)) t))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) (.f64 k k)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t))) (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (/.f64 (.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (.f64 l l) t)) (+.f64 (-.f64 (.f64 #s(literal -1/315 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -2/45 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))) (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) #s(literal -1/3 binary64)))) (.f64 k k)) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t))) (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) (.f64 k k)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t))) (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
#s(approx k k)
#s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t))
#s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (+.f64 (pow.f64 t #s(literal -1 binary64)) (.f64 (/.f64 (.f64 k k) t) #s(literal -1/6 binary64))) (*.f64 k k)))
#s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal -7/120 binary64) (/.f64 (.f64 k k) t)) (/.f64 #s(literal 1/6 binary64) t)) (.f64 k k)) (pow.f64 t #s(literal -1 binary64))) (*.f64 k k)))
#s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (-.f64 (.f64 #s(literal -31/3024 binary64) (/.f64 (.f64 k k) t)) (/.f64 #s(literal 7/120 binary64) t)) (.f64 k k)) (/.f64 #s(literal 1/6 binary64) t)) (.f64 k k)) (pow.f64 t #s(literal -1 binary64))) (*.f64 k k)))
#s(approx (cos k) #s(literal 1 binary64))
#s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64)))
#s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64)))
#s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64)))
#s(approx (* (pow (sin k) 2) t) (.f64 (.f64 k k) t))
#s(approx (* (pow (sin k) 2) t) (.f64 (+.f64 (.f64 (.f64 (.f64 k k) t) #s(literal -1/3 binary64)) t) (*.f64 k k)))
#s(approx (* (pow (sin k) 2) t) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal -1/3 binary64) t) (.f64 #s(literal -2/45 binary64) (.f64 (.f64 k k) t))) (.f64 k k)) t) (.f64 k k)))
#s(approx (* (pow (sin k) 2) t) (.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 k k) t) #s(literal -1/315 binary64)) (.f64 #s(literal -2/45 binary64) t)) (.f64 k k)) (.f64 #s(literal -1/3 binary64) t)) (.f64 k k)) t) (*.f64 k k)))
#s(approx (pow (sin k) 2) (*.f64 k k))
#s(approx (pow (sin k) 2) (.f64 (+.f64 (.f64 #s(literal -1/3 binary64) (.f64 k k)) #s(literal 1 binary64)) (.f64 k k)))
#s(approx (pow (sin k) 2) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 2/45 binary64) (.f64 k k)) #s(literal 1/3 binary64)) (.f64 k k)) #s(literal 1 binary64)) (.f64 k k)))
#s(approx (pow (sin k) 2) (.f64 (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/315 binary64) (.f64 k k)) #s(literal 2/45 binary64)) (.f64 k k)) #s(literal 1/3 binary64)) (.f64 k k)) #s(literal 1 binary64)) (.f64 k k)))
#s(approx (sin k) k)
#s(approx (sin k) (.f64 (+.f64 (.f64 (*.f64 k k) #s(literal -1/6 binary64)) #s(literal 1 binary64)) k))
#s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k))
#s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 k k)) #s(literal 1/120 binary64)) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k))
#s(approx (* k k) (*.f64 k k))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (pow.f64 k #s(literal 4 binary64)) (/.f64 t (.f64 l l))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (/.f64 t (.f64 l l)) (/.f64 (.f64 #s(literal 1/6 binary64) (.f64 (.f64 k k) t)) (.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (-.f64 (/.f64 (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t)) (.f64 l l)) (.f64 #s(literal -1/6 binary64) (/.f64 t (.f64 l l)))) (.f64 k k)) (/.f64 t (.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (/.f64 (.f64 #s(literal 173/5040 binary64) (.f64 (.f64 k k) t)) (.f64 l l)) (.f64 #s(literal -31/360 binary64) (/.f64 t (.f64 l l)))) (.f64 k k)) (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64))) (.f64 k k)) (/.f64 t (.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 k k)))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 k k))) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) (*.f64 k k)))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 31/360 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 k k))) (.f64 #s(literal -1/6 binary64) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (.f64 k k)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) (.f64 k k)))
#s(approx (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 173/5040 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (.f64 k k))) (.f64 #s(literal -31/360 binary64) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (.f64 k k)) (.f64 #s(literal 1/6 binary64) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (.f64 k k)) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) (*.f64 k k)))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (.f64 (ratio-of-squares.f64 l (.f64 k k)) (/.f64 #s(literal 2 binary64) t)))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (/.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (.f64 l l) t))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (/.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 (-.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (.f64 l l) t)) (+.f64 (-.f64 (.f64 #s(literal -1/315 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -2/45 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))) (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) #s(literal -1/3 binary64)))) (.f64 k k)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))))) (.f64 k k)) (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal 2 binary64))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (ratio-of-squares.f64 l (*.f64 k k)) t))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) (.f64 k k)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t))) (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (/.f64 (.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (.f64 l l) t)) (+.f64 (-.f64 (.f64 #s(literal -1/315 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -2/45 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))) (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) #s(literal -1/3 binary64)))) (.f64 k k)) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t))) (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) (.f64 k k)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t))) (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (ratio-of-squares.f64 l (*.f64 k k)) t))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (/.f64 (+.f64 (.f64 (pow.f64 (.f64 k l) #s(literal 2 binary64)) #s(literal -1/6 binary64)) (*.f64 l l)) t) (pow.f64 k #s(literal 4 binary64))))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (/.f64 (*.f64 l l) t))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (/.f64 (+.f64 (.f64 (pow.f64 (.f64 k l) #s(literal 2 binary64)) #s(literal -1/6 binary64)) (*.f64 l l)) t))
#s(approx (pow k 4) (pow.f64 k #s(literal 4 binary64)))
#s(approx (* (log k) 4) (*.f64 (log.f64 k) #s(literal 4 binary64)))
#s(approx (log k) (log.f64 k))
#s(approx (cos k) (cos.f64 k))
#s(approx (pow (sin k) 2) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))
#s(approx (sin k) (sin.f64 k))
#s(approx (+ 1 (pow (/ k t) 2)) (.f64 (+.f64 (pow.f64 t #s(literal -2 binary64)) (pow.f64 k #s(literal -2 binary64))) (.f64 k k)))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (+.f64 (/.f64 (ratio-of-squares.f64 l k) t) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (*.f64 k k)))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (.f64 (/.f64 (pow.f64 (.f64 k l) #s(literal 2 binary64)) t) #s(literal -1/6 binary64)))
#s(approx (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (.f64 (+.f64 (/.f64 (ratio-of-squares.f64 l k) t) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (.f64 k k)))
#s(approx (/ (* 2 (/ (* l l) (* (* k k) (* k k)))) t) (.f64 (/.f64 (/.f64 (.f64 l l) (exp.f64 (*.f64 (neg.f64 (log.f64 k)) #s(literal -4 binary64)))) t) #s(literal 2 binary64)))
#s(approx (/ (* l l) (* (* k k) (* k k))) (/.f64 (.f64 l l) (exp.f64 (.f64 (neg.f64 (log.f64 k)) #s(literal -4 binary64)))))
#s(approx (- (* (log l) 2) (* (log k) 4)) (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (neg.f64 (log.f64 k)) #s(literal -4 binary64))))
#s(approx (* (log k) 4) (*.f64 (neg.f64 (log.f64 k)) #s(literal -4 binary64)))
#s(approx (log k) (neg.f64 (neg.f64 (log.f64 k))))
#s(approx (/ (* 2 (/ (* l l) (* (* k k) (* k k)))) t) (.f64 (/.f64 (/.f64 (.f64 l l) (exp.f64 (*.f64 (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) k))) (log.f64 #s(literal -1 binary64))) #s(literal 4 binary64)))) t) #s(literal 2 binary64)))
#s(approx (/ (* l l) (* (* k k) (* k k))) (/.f64 (.f64 l l) (exp.f64 (.f64 (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) k))) (log.f64 #s(literal -1 binary64))) #s(literal 4 binary64)))))
#s(approx (- (* (log l) 2) (* (log k) 4)) (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) k))) (log.f64 #s(literal -1 binary64))) #s(literal 4 binary64))))
#s(approx (* (log k) 4) (*.f64 (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) k))) (log.f64 #s(literal -1 binary64))) #s(literal 4 binary64)))
#s(approx (log k) (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) k))) (log.f64 #s(literal -1 binary64))))

eval875.0ms (4%)

Memory

11.4MiB live, 1 361.5MiB allocated; 185ms collecting garbage

Samples

503.0ms	11 898×	0	valid
128.0ms	3 206×	0	invalid

Compiler

Compiled 20 206 to 1 894 computations (90.6% saved)

Precisions

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

ival-mult: 215.0ms (67.4% of total)

ival-div: 86.0ms (26.9% of total)

ival-true: 8.0ms (2.5% of total)

ival-assert: 6.0ms (1.9% of total)

adjust: 4.0ms (1.3% of total)

prune896.0ms (4.1%)

Memory

20.2MiB live, 1 343.6MiB allocated; 306ms collecting garbage

Pruning

38 alts after pruning (35 fresh and 3 done)

	Pruned	Kept	Total
New	371	16	387
Fresh	13	19	32
Picked	4	1	5
Done	0	2	2
Total	388	38	426

Accuracy

99.6%

Counts

426 → 38

Alt Table

Click to see full alt table

Status	Accuracy	Program
	47.5%	(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) #s(approx (- (+ 1 (pow (/ k t) 2)) 1) (ratio-of-squares.f64 k t))))
	29.2%	(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 k (.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
	85.2%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (/.f64 (.f64 (/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) l) (.f64 (.f64 k k) t)) (.f64 l (cos.f64 k)))))
	93.8%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (ratio-of-squares.f64 k l) (/.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (cos.f64 k)))))
	70.0%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (*.f64 (/.f64 (pow.f64 k #s(literal 4 binary64)) l) (/.f64 t l))))
	82.5%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (pow.f64 (/.f64 (sin.f64 k) l) #s(literal 2 binary64)))))
▶	86.3%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))))
	61.0%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (.f64 l l))) (.f64 (.f64 k k) (.f64 k k)))))
	75.6%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 #s(approx (/ ( (* k k) t) (cos k)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 (sin.f64 k) l))))
	26.2%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (.f64 t (ratio-of-squares.f64 l (.f64 k k)))) (*.f64 t t)))
	75.4%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t)))
▶	62.5%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
	66.6%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t))
✓	31.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))
	71.5%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 l l) (cos.f64 k))) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
	93.9%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (ratio-of-squares.f64 l k) (.f64 (/.f64 (/.f64 (cos.f64 k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) #s(literal 2 binary64))))
	73.6%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (/.f64 (.f64 (.f64 l l) (cos.f64 k)) (.f64 k k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
▶	94.0%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
	71.5%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (neg.f64 (.f64 l l)) (cos.f64 k)) (.f64 (neg.f64 (.f64 k k)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
	82.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (.f64 k k) t)) #s(literal 2 binary64)))
	31.0%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 (exp.f64 (log.f64 l)) (.f64 k k))))
✓	31.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
	85.3%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) k)))) t))) #s(literal 2 binary64)))
	77.3%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
	75.2%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t))) #s(literal 2 binary64)))
	60.4%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (+.f64 (pow.f64 t #s(literal -1 binary64)) (.f64 (/.f64 (.f64 k k) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
✓	82.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
▶	53.1%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
	54.7%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
	87.0%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k (.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
	53.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
	54.2%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
	93.9%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (.f64 (/.f64 l k) (/.f64 l k)) (/.f64 (cos.f64 k) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
	75.4%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 #s(approx (/ (cos k) (* (* k k) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
	33.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (/.f64 (.f64 (.f64 l l) #s(literal -1/6 binary64)) t) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
	33.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (.f64 l l) t)) (.f64 (.f64 (.f64 k k) k) k))) #s(literal 2 binary64)))
	62.9%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (+.f64 (/.f64 (ratio-of-squares.f64 l k) t) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
▶	31.2%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))

Samples

521.0ms	12 166×	0	valid
89.0ms	1 402×	0	invalid

Compiler

Compiled 3 469 to 2 321 computations (33.1% saved)

Precisions

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

ival-mult: 236.0ms (72.4% of total)

ival-div: 74.0ms (22.7% of total)

ival-true: 7.0ms (2.1% of total)

ival-assert: 5.0ms (1.5% of total)

adjust: 3.0ms (0.9% of total)

series83.0ms (0.4%)

Memory

5.0MiB live, 158.0MiB allocated; 13ms collecting garbage

Counts

50 → 125

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64))
(/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
(*.f64 (ratio-of-squares.f64 l k) (cos.f64 k))
(ratio-of-squares.f64 l k)
l
k
(cos.f64 k)
(*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)
(pow.f64 (sin.f64 k) #s(literal 2 binary64))
(sin.f64 k)
#s(literal 2 binary64)
t
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
(.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))
(*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64))
(/.f64 (ratio-of-squares.f64 l k) t)
#s(literal -1/6 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t))
(.f64 (.f64 l l) #s(literal 2 binary64))
(*.f64 l l)
(*.f64 (pow.f64 k #s(literal 4 binary64)) t)
(pow.f64 k #s(literal 4 binary64))
#s(literal 4 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64))
(.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (.f64 k k)) #s(literal 1 binary64)) k))))
(/.f64 (cos.f64 k) (.f64 (.f64 k k) t))
(.f64 (.f64 k k) t)
(*.f64 k k)
(ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))
#s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k))
(.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)
(+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (.f64 k k)) #s(literal 1 binary64))
(.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (.f64 k k))
(-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64))
(.f64 #s(literal 1/120 binary64) (.f64 k k))
#s(literal 1/120 binary64)
#s(literal 1/6 binary64)
#s(literal 1 binary64)
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l)))
(.f64 (/.f64 (.f64 k (*.f64 k t)) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))
(/.f64 (.f64 k (.f64 k t)) (cos.f64 k))
(.f64 k (.f64 k t))
(*.f64 k t)
(ratio-of-squares.f64 (sin.f64 k) l)

Outputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (* (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) 2) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2))))))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* t (pow (sin k) 2))))
#s(approx t #s(hole binary64 t))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2))))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (+ (* -1/6 (* (pow k 2) (pow l 2))) (pow l 2)) (* (pow k 4) t))))
#s(approx (* (/ (/ (* l l) (* k k)) t) -1/6) #s(hole binary64 (* -1/6 (/ (pow l 2) (* (pow k 2) t)))))
#s(approx (/ (/ (* l l) (* k k)) t) #s(hole binary64 (/ (pow l 2) (* (pow k 2) t))))
#s(approx (/ (* (* l l) 2) (* (pow k 4) t)) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (* (pow k 4) t) #s(hole binary64 (* (pow k 4) t)))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ (cos k) (* (pow k 2) t))))
#s(approx (* (* k k) t) #s(hole binary64 (* (pow k 2) t)))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (/ (* (pow k 2) (* t (pow (sin k) 2))) (* (pow l 2) (cos k)))))
#s(approx (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (/ (* (pow k 2) (* t (pow (sin k) 2))) (* (pow l 2) (cos k)))))
#s(approx (/ (* k (* k t)) (cos k)) #s(hole binary64 (/ (* (pow k 2) t) (cos k))))
#s(approx (* k (* k t)) #s(hole binary64 (* (pow k 2) t)))
#s(approx (* k t) #s(hole binary64 (* k t)))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (* -1 (/ (+ (* -1 (pow l 2)) (* 1/6 (* (pow k 2) (pow l 2)))) (* (pow k 4) t)))))
#s(approx (* (/ (* l l) (* k k)) (cos k)) #s(hole binary64 (/ (* (pow l 2) (cos k)) (pow k 2))))
#s(approx (/ (* l l) (* k k)) #s(hole binary64 (/ (pow l 2) (pow k 2))))
#s(approx l #s(hole binary64 l))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (* (pow l 2) (+ (* -1/6 (/ (pow k 2) t)) (/ 1 t))) (pow k 4))))
#s(approx (* (* l l) 2) #s(hole binary64 (* 2 (pow l 2))))
#s(approx (* l l) #s(hole binary64 (pow l 2)))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (pow l 2) (pow (sin k) 2))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (/ (pow (sin k) 2) (pow l 2))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* -1/3 (/ (* (pow k 2) (pow l 2)) t)) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* -2 (* (pow k 2) (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t))))) (* -1/3 (/ (pow l 2) t))))) (pow k 4))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* -1/3 (/ (pow l 2) t)) (* (pow k 2) (+ (* -2 (* (pow k 2) (+ (* -1/6 (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t)))) (+ (* -31/2160 (/ (pow l 2) t)) (* 173/5040 (/ (pow l 2) t)))))) (* -2 (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t))))))))) (pow k 4))))
#s(approx (* (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) 2) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (* (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) 2) #s(hole binary64 (/ (+ (* 2 (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (* (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))) (pow k 4))))
#s(approx (* (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (* 2 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))))))) (pow k 4))))
#s(approx (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (pow l 2) (* (pow k 4) t))))
#s(approx (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (+ (* 1/24 (/ (pow l 2) t)) (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (* l l) (* k k)) (cos k)) #s(hole binary64 (/ (pow l 2) (pow k 2))))
#s(approx (* (/ (* l l) (* k k)) (cos k)) #s(hole binary64 (/ (+ (* -1/2 (* (pow k 2) (pow l 2))) (pow l 2)) (pow k 2))))
#s(approx (* (/ (* l l) (* k k)) (cos k)) #s(hole binary64 (/ (+ (* (pow k 2) (+ (* -1/2 (pow l 2)) (* 1/24 (* (pow k 2) (pow l 2))))) (pow l 2)) (pow k 2))))
#s(approx (* (/ (* l l) (* k k)) (cos k)) #s(hole binary64 (/ (+ (* (pow k 2) (+ (* -1/2 (pow l 2)) (* (pow k 2) (+ (* -1/720 (* (pow k 2) (pow l 2))) (* 1/24 (pow l 2)))))) (pow l 2)) (pow k 2))))
#s(approx k #s(hole binary64 k))
#s(approx (cos k) #s(hole binary64 1))
#s(approx (cos k) #s(hole binary64 (+ 1 (* -1/2 (pow k 2)))))
#s(approx (cos k) #s(hole binary64 (+ 1 (* (pow k 2) (- (* 1/24 (pow k 2)) 1/2)))))
#s(approx (cos k) #s(hole binary64 (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 1/24 (* -1/720 (pow k 2)))) 1/2)))))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* (pow k 2) t)))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* (pow k 2) (+ t (* -1/3 (* (pow k 2) t))))))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* (pow k 2) (+ t (* (pow k 2) (+ (* -1/3 t) (* 2/45 (* (pow k 2) t))))))))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* (pow k 2) (+ t (* (pow k 2) (+ (* -1/3 t) (* (pow k 2) (+ (* -1/315 (* (pow k 2) t)) (* 2/45 t)))))))))
#s(approx (pow (sin k) 2) #s(hole binary64 (pow k 2)))
#s(approx (pow (sin k) 2) #s(hole binary64 (* (pow k 2) (+ 1 (* -1/3 (pow k 2))))))
#s(approx (pow (sin k) 2) #s(hole binary64 (* (pow k 2) (+ 1 (* (pow k 2) (- (* 2/45 (pow k 2)) 1/3))))))
#s(approx (pow (sin k) 2) #s(hole binary64 (* (pow k 2) (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 2/45 (* -1/315 (pow k 2)))) 1/3))))))
#s(approx (sin k) #s(hole binary64 k))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* -1/6 (pow k 2))))))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* 1/120 (pow k 2)) 1/6))))))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 1/120 (* -1/5040 (pow k 2)))) 1/6))))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))) (pow k 4))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (* 2 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))))))) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (pow l 2) (* (pow k 4) t))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (+ (* 1/24 (/ (pow l 2) t)) (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (pow l 2) (* (pow k 4) t))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (+ (* -1/6 (/ (* (pow k 2) (pow l 2)) t)) (/ (pow l 2) t)) (pow k 4))))
#s(approx (pow k 4) #s(hole binary64 (pow k 4)))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ 1 (* (pow k 2) t))))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ (+ (* -1/2 (/ (pow k 2) t)) (/ 1 t)) (pow k 2))))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (* 1/24 (/ (pow k 2) t)) (* 1/2 (/ 1 t)))) (/ 1 t)) (pow k 2))))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (* (pow k 2) (+ (* -1/720 (/ (pow k 2) t)) (* 1/24 (/ 1 t)))) (* 1/2 (/ 1 t)))) (/ 1 t)) (pow k 2))))
#s(approx (* k k) #s(hole binary64 (pow k 2)))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (pow l 2) (pow k 2))))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (+ (* 1/3 (* (pow k 2) (pow l 2))) (pow l 2)) (pow k 2))))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (+ (* (pow k 2) (- (* -1 (* (pow k 2) (+ (* -1/9 (pow l 2)) (* 2/45 (pow l 2))))) (* -1/3 (pow l 2)))) (pow l 2)) (pow k 2))))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (+ (* (pow k 2) (- (* (pow k 2) (- (* -1 (* (pow k 2) (+ (* -1/315 (pow l 2)) (+ (* 2/135 (pow l 2)) (* 1/3 (+ (* -1/9 (pow l 2)) (* 2/45 (pow l 2)))))))) (+ (* -1/9 (pow l 2)) (* 2/45 (pow l 2))))) (* -1/3 (pow l 2)))) (pow l 2)) (pow k 2))))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) #s(hole binary64 k))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) #s(hole binary64 (* k (+ 1 (* -1/6 (pow k 2))))))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* 1/120 (pow k 2)) 1/6))))))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow k 2)))))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) #s(hole binary64 (+ 1 (* (pow k 2) (- (* 1/120 (pow k 2)) 1/6)))))
#s(approx (* (- (* 1/120 (* k k)) 1/6) (* k k)) #s(hole binary64 (* -1/6 (pow k 2))))
#s(approx (* (- (* 1/120 (* k k)) 1/6) (* k k)) #s(hole binary64 (* (pow k 2) (- (* 1/120 (pow k 2)) 1/6))))
#s(approx (- (* 1/120 (* k k)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* 1/120 (* k k)) 1/6) #s(hole binary64 (- (* 1/120 (pow k 2)) 1/6)))
#s(approx (* 1/120 (* k k)) #s(hole binary64 (* 1/120 (pow k 2))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (/ (* (pow k 4) t) (pow l 2))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* 1/6 (/ (* (pow k 2) t) (pow l 2))) (/ t (pow l 2))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) t) (pow l 2))) (* 1/6 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 1/6 (/ t (pow l 2))) (* (pow k 2) (+ (* 173/5040 (/ (* (pow k 2) t) (pow l 2))) (* 31/360 (/ t (pow l 2))))))) (/ t (pow l 2))))))
#s(approx (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (/ (* (pow k 4) t) (pow l 2))))
#s(approx (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (- (+ (* -1/3 (/ t (pow l 2))) (* (pow k 2) (- (* 2/45 (/ t (pow l 2))) (+ (* -1/2 (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2))))) (* 1/24 (/ t (pow l 2))))))) (* -1/2 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (- (+ (* -1/3 (/ t (pow l 2))) (* (pow k 2) (- (+ (* 2/45 (/ t (pow l 2))) (* (pow k 2) (- (* -1/315 (/ t (pow l 2))) (+ (* -1/2 (- (* 2/45 (/ t (pow l 2))) (+ (* -1/2 (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2))))) (* 1/24 (/ t (pow l 2)))))) (+ (* -1/720 (/ t (pow l 2))) (* 1/24 (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2)))))))))) (+ (* -1/2 (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2))))) (* 1/24 (/ t (pow l 2))))))) (* -1/2 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (/ (* k (* k t)) (cos k)) #s(hole binary64 (* (pow k 2) t)))
#s(approx (/ (* k (* k t)) (cos k)) #s(hole binary64 (* (pow k 2) (+ t (* 1/2 (* (pow k 2) t))))))
#s(approx (/ (* k (* k t)) (cos k)) #s(hole binary64 (* (pow k 2) (+ t (* (pow k 2) (- (* -1 (* (pow k 2) (+ (* -1/4 t) (* 1/24 t)))) (* -1/2 t)))))))
#s(approx (/ (* k (* k t)) (cos k)) #s(hole binary64 (* (pow k 2) (+ t (* (pow k 2) (- (* (pow k 2) (- (* -1 (* (pow k 2) (+ (* -1/720 t) (+ (* 1/48 t) (* 1/2 (+ (* -1/4 t) (* 1/24 t))))))) (+ (* -1/4 t) (* 1/24 t)))) (* -1/2 t)))))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (/ (pow k 2) (pow l 2))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (* (pow k 2) (+ (* -1/3 (/ (pow k 2) (pow l 2))) (/ 1 (pow l 2))))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (- (* 2/45 (/ (pow k 2) (pow l 2))) (* 1/3 (/ 1 (pow l 2))))) (/ 1 (pow l 2))))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (- (* (pow k 2) (+ (* -1/315 (/ (pow k 2) (pow l 2))) (* 2/45 (/ 1 (pow l 2))))) (* 1/3 (/ 1 (pow l 2))))) (/ 1 (pow l 2))))))
#s(approx (cos k) #s(hole binary64 (cos k)))
#s(approx (pow (sin k) 2) #s(hole binary64 (pow (sin k) 2)))
#s(approx (sin k) #s(hole binary64 (sin k)))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (* -1/6 (/ (pow l 2) (* (pow k 2) t)))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (+ (* -1/6 (/ (pow l 2) t)) (/ (pow l 2) (* (pow k 2) t))) (pow k 2))))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) #s(hole binary64 (* 1/120 (pow k 5))))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) #s(hole binary64 (* (pow k 5) (- 1/120 (* 1/6 (/ 1 (pow k 2)))))))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) #s(hole binary64 (* (pow k 5) (- (+ 1/120 (/ 1 (pow k 4))) (* 1/6 (/ 1 (pow k 2)))))))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) #s(hole binary64 (* 1/120 (pow k 4))))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) #s(hole binary64 (* (pow k 4) (- 1/120 (* 1/6 (/ 1 (pow k 2)))))))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) #s(hole binary64 (* (pow k 4) (- (+ 1/120 (/ 1 (pow k 4))) (* 1/6 (/ 1 (pow k 2)))))))
#s(approx (* (- (* 1/120 (* k k)) 1/6) (* k k)) #s(hole binary64 (* 1/120 (pow k 4))))
#s(approx (* (- (* 1/120 (* k k)) 1/6) (* k k)) #s(hole binary64 (* (pow k 4) (- 1/120 (* 1/6 (/ 1 (pow k 2)))))))
#s(approx (- (* 1/120 (* k k)) 1/6) #s(hole binary64 (* 1/120 (pow k 2))))
#s(approx (- (* 1/120 (* k k)) 1/6) #s(hole binary64 (* (pow k 2) (- 1/120 (* 1/6 (/ 1 (pow k 2)))))))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) #s(hole binary64 (* -1 (* (pow k 5) (- (* 1/6 (/ 1 (pow k 2))) 1/120)))))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) #s(hole binary64 (* -1 (* (pow k 5) (- (* 1/6 (/ 1 (pow k 2))) (+ 1/120 (/ 1 (pow k 4))))))))

Calls

9 calls:

Time	Variable		Point	Expression
10.0ms	k	@	-inf	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) 2) (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) (* (/ (* l l) (* k k)) (cos k)) (/ (* l l) (* k k)) l k (cos k) (* (pow (sin k) 2) t) (pow (sin k) 2) (sin k) 2 t (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (* (/ (/ (* l l) (* k k)) t) -1/6) (/ (/ (* l l) (* k k)) t) -1/6 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/ (* (* l l) 2) (* (pow k 4) t)) (* (* l l) 2) (* l l) (* (pow k 4) t) (pow k 4) 4 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (cos k) (* (* k k) t)) (* (* k k) t) (* k k) (/ (* l l) (* (sin k) (sin k))) (sin k) (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) (* (- (* 1/120 (* k k)) 1/6) (* k k)) (- (* 1/120 (* k k)) 1/6) (* 1/120 (* k k)) 1/120 1/6 1 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (/ (* k (* k t)) (cos k)) (* k (* k t)) (* k t) (/ (* (sin k) (sin k)) (* l l)))
10.0ms	t	@	-inf	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) 2) (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) (* (/ (* l l) (* k k)) (cos k)) (/ (* l l) (* k k)) l k (cos k) (* (pow (sin k) 2) t) (pow (sin k) 2) (sin k) 2 t (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (* (/ (/ (* l l) (* k k)) t) -1/6) (/ (/ (* l l) (* k k)) t) -1/6 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/ (* (* l l) 2) (* (pow k 4) t)) (* (* l l) 2) (* l l) (* (pow k 4) t) (pow k 4) 4 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (cos k) (* (* k k) t)) (* (* k k) t) (* k k) (/ (* l l) (* (sin k) (sin k))) (sin k) (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) (* (- (* 1/120 (* k k)) 1/6) (* k k)) (- (* 1/120 (* k k)) 1/6) (* 1/120 (* k k)) 1/120 1/6 1 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (/ (* k (* k t)) (cos k)) (* k (* k t)) (* k t) (/ (* (sin k) (sin k)) (* l l)))
9.0ms	l	@	inf	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) 2) (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) (* (/ (* l l) (* k k)) (cos k)) (/ (* l l) (* k k)) l k (cos k) (* (pow (sin k) 2) t) (pow (sin k) 2) (sin k) 2 t (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (* (/ (/ (* l l) (* k k)) t) -1/6) (/ (/ (* l l) (* k k)) t) -1/6 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/ (* (* l l) 2) (* (pow k 4) t)) (* (* l l) 2) (* l l) (* (pow k 4) t) (pow k 4) 4 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (cos k) (* (* k k) t)) (* (* k k) t) (* k k) (/ (* l l) (* (sin k) (sin k))) (sin k) (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) (* (- (* 1/120 (* k k)) 1/6) (* k k)) (- (* 1/120 (* k k)) 1/6) (* 1/120 (* k k)) 1/120 1/6 1 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (/ (* k (* k t)) (cos k)) (* k (* k t)) (* k t) (/ (* (sin k) (sin k)) (* l l)))
8.0ms	k	@	inf	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) 2) (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) (* (/ (* l l) (* k k)) (cos k)) (/ (* l l) (* k k)) l k (cos k) (* (pow (sin k) 2) t) (pow (sin k) 2) (sin k) 2 t (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (* (/ (/ (* l l) (* k k)) t) -1/6) (/ (/ (* l l) (* k k)) t) -1/6 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/ (* (* l l) 2) (* (pow k 4) t)) (* (* l l) 2) (* l l) (* (pow k 4) t) (pow k 4) 4 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (cos k) (* (* k k) t)) (* (* k k) t) (* k k) (/ (* l l) (* (sin k) (sin k))) (sin k) (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) (* (- (* 1/120 (* k k)) 1/6) (* k k)) (- (* 1/120 (* k k)) 1/6) (* 1/120 (* k k)) 1/120 1/6 1 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (/ (* k (* k t)) (cos k)) (* k (* k t)) (* k t) (/ (* (sin k) (sin k)) (* l l)))
8.0ms	t	@	0	((/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) 2) (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) (* (/ (* l l) (* k k)) (cos k)) (/ (* l l) (* k k)) l k (cos k) (* (pow (sin k) 2) t) (pow (sin k) 2) (sin k) 2 t (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (* (/ (/ (* l l) (* k k)) t) -1/6) (/ (/ (* l l) (* k k)) t) -1/6 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/ (* (* l l) 2) (* (pow k 4) t)) (* (* l l) 2) (* l l) (* (pow k 4) t) (pow k 4) 4 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/ (cos k) (* (* k k) t)) (* (* k k) t) (* k k) (/ (* l l) (* (sin k) (sin k))) (sin k) (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) (* (- (* 1/120 (* k k)) 1/6) (* k k)) (- (* 1/120 (* k k)) 1/6) (* 1/120 (* k k)) 1/120 1/6 1 (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (/ (* k (* k t)) (cos k)) (* k (* k t)) (* k t) (/ (* (sin k) (sin k)) (* l l)))

rewrite186.0ms (0.9%)

Memory

5.2MiB live, 232.3MiB allocated; 23ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	602	5035
0	666	4527
1	3414	4509
0	8102	4339

Stop Event

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

Counts

175 → 619

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64))
(/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
(*.f64 (ratio-of-squares.f64 l k) (cos.f64 k))
(ratio-of-squares.f64 l k)
l
k
(cos.f64 k)
(*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)
(pow.f64 (sin.f64 k) #s(literal 2 binary64))
(sin.f64 k)
#s(literal 2 binary64)
t
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
(.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))
(*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64))
(/.f64 (ratio-of-squares.f64 l k) t)
#s(literal -1/6 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t))
(.f64 (.f64 l l) #s(literal 2 binary64))
(*.f64 l l)
(*.f64 (pow.f64 k #s(literal 4 binary64)) t)
(pow.f64 k #s(literal 4 binary64))
#s(literal 4 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64))
(.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (.f64 k k)) #s(literal 1 binary64)) k))))
(/.f64 (cos.f64 k) (.f64 (.f64 k k) t))
(.f64 (.f64 k k) t)
(*.f64 k k)
(ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))
#s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k))
(.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)
(+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (.f64 k k)) #s(literal 1 binary64))
(.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (.f64 k k))
(-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64))
(.f64 #s(literal 1/120 binary64) (.f64 k k))
#s(literal 1/120 binary64)
#s(literal 1/6 binary64)
#s(literal 1 binary64)
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l)))
(.f64 (/.f64 (.f64 k (*.f64 k t)) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))
(/.f64 (.f64 k (.f64 k t)) (cos.f64 k))
(.f64 k (.f64 k t))
(*.f64 k t)
(ratio-of-squares.f64 (sin.f64 k) l)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (* (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) 2) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2))))))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* t (pow (sin k) 2))))
#s(approx t #s(hole binary64 t))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (* 2 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2)))))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (* (pow l 2) (cos k)) (* (pow k 2) (* t (pow (sin k) 2))))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (+ (* -1/6 (* (pow k 2) (pow l 2))) (pow l 2)) (* (pow k 4) t))))
#s(approx (* (/ (/ (* l l) (* k k)) t) -1/6) #s(hole binary64 (* -1/6 (/ (pow l 2) (* (pow k 2) t)))))
#s(approx (/ (/ (* l l) (* k k)) t) #s(hole binary64 (/ (pow l 2) (* (pow k 2) t))))
#s(approx (/ (* (* l l) 2) (* (pow k 4) t)) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (* (pow k 4) t) #s(hole binary64 (* (pow k 4) t)))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ (cos k) (* (pow k 2) t))))
#s(approx (* (* k k) t) #s(hole binary64 (* (pow k 2) t)))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (/ (* (pow k 2) (* t (pow (sin k) 2))) (* (pow l 2) (cos k)))))
#s(approx (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (/ (* (pow k 2) (* t (pow (sin k) 2))) (* (pow l 2) (cos k)))))
#s(approx (/ (* k (* k t)) (cos k)) #s(hole binary64 (/ (* (pow k 2) t) (cos k))))
#s(approx (* k (* k t)) #s(hole binary64 (* (pow k 2) t)))
#s(approx (* k t) #s(hole binary64 (* k t)))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (* -1 (/ (+ (* -1 (pow l 2)) (* 1/6 (* (pow k 2) (pow l 2)))) (* (pow k 4) t)))))
#s(approx (* (/ (* l l) (* k k)) (cos k)) #s(hole binary64 (/ (* (pow l 2) (cos k)) (pow k 2))))
#s(approx (/ (* l l) (* k k)) #s(hole binary64 (/ (pow l 2) (pow k 2))))
#s(approx l #s(hole binary64 l))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (* (pow l 2) (+ (* -1/6 (/ (pow k 2) t)) (/ 1 t))) (pow k 4))))
#s(approx (* (* l l) 2) #s(hole binary64 (* 2 (pow l 2))))
#s(approx (* l l) #s(hole binary64 (pow l 2)))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (pow l 2) (pow (sin k) 2))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (/ (pow (sin k) 2) (pow l 2))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* -1/3 (/ (* (pow k 2) (pow l 2)) t)) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* -2 (* (pow k 2) (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t))))) (* -1/3 (/ (pow l 2) t))))) (pow k 4))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* -1/3 (/ (pow l 2) t)) (* (pow k 2) (+ (* -2 (* (pow k 2) (+ (* -1/6 (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t)))) (+ (* -31/2160 (/ (pow l 2) t)) (* 173/5040 (/ (pow l 2) t)))))) (* -2 (+ (* -1/36 (/ (pow l 2) t)) (* 31/360 (/ (pow l 2) t))))))))) (pow k 4))))
#s(approx (* (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) 2) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (* (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) 2) #s(hole binary64 (/ (+ (* 2 (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (* (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))) (pow k 4))))
#s(approx (* (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (* 2 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))))))) (pow k 4))))
#s(approx (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (pow l 2) (* (pow k 4) t))))
#s(approx (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (/ (* (/ (* l l) (* k k)) (cos k)) (* (pow (sin k) 2) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (+ (* 1/24 (/ (pow l 2) t)) (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (* l l) (* k k)) (cos k)) #s(hole binary64 (/ (pow l 2) (pow k 2))))
#s(approx (* (/ (* l l) (* k k)) (cos k)) #s(hole binary64 (/ (+ (* -1/2 (* (pow k 2) (pow l 2))) (pow l 2)) (pow k 2))))
#s(approx (* (/ (* l l) (* k k)) (cos k)) #s(hole binary64 (/ (+ (* (pow k 2) (+ (* -1/2 (pow l 2)) (* 1/24 (* (pow k 2) (pow l 2))))) (pow l 2)) (pow k 2))))
#s(approx (* (/ (* l l) (* k k)) (cos k)) #s(hole binary64 (/ (+ (* (pow k 2) (+ (* -1/2 (pow l 2)) (* (pow k 2) (+ (* -1/720 (* (pow k 2) (pow l 2))) (* 1/24 (pow l 2)))))) (pow l 2)) (pow k 2))))
#s(approx k #s(hole binary64 k))
#s(approx (cos k) #s(hole binary64 1))
#s(approx (cos k) #s(hole binary64 (+ 1 (* -1/2 (pow k 2)))))
#s(approx (cos k) #s(hole binary64 (+ 1 (* (pow k 2) (- (* 1/24 (pow k 2)) 1/2)))))
#s(approx (cos k) #s(hole binary64 (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 1/24 (* -1/720 (pow k 2)))) 1/2)))))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* (pow k 2) t)))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* (pow k 2) (+ t (* -1/3 (* (pow k 2) t))))))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* (pow k 2) (+ t (* (pow k 2) (+ (* -1/3 t) (* 2/45 (* (pow k 2) t))))))))
#s(approx (* (pow (sin k) 2) t) #s(hole binary64 (* (pow k 2) (+ t (* (pow k 2) (+ (* -1/3 t) (* (pow k 2) (+ (* -1/315 (* (pow k 2) t)) (* 2/45 t)))))))))
#s(approx (pow (sin k) 2) #s(hole binary64 (pow k 2)))
#s(approx (pow (sin k) 2) #s(hole binary64 (* (pow k 2) (+ 1 (* -1/3 (pow k 2))))))
#s(approx (pow (sin k) 2) #s(hole binary64 (* (pow k 2) (+ 1 (* (pow k 2) (- (* 2/45 (pow k 2)) 1/3))))))
#s(approx (pow (sin k) 2) #s(hole binary64 (* (pow k 2) (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 2/45 (* -1/315 (pow k 2)))) 1/3))))))
#s(approx (sin k) #s(hole binary64 k))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* -1/6 (pow k 2))))))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* 1/120 (pow k 2)) 1/6))))))
#s(approx (sin k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* (pow k 2) (+ 1/120 (* -1/5040 (pow k 2)))) 1/6))))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (* 2 (/ (pow l 2) (* (pow k 4) t)))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))) (* 2 (/ (pow l 2) t))) (pow k 4))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))) (pow k 4))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) #s(hole binary64 (/ (+ (* 2 (/ (pow l 2) t)) (* (pow k 2) (+ (* 2 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* (pow k 2) (+ (* 2 (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (* 2 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))))))) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (pow l 2) (* (pow k 4) t))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(hole binary64 (/ (+ (* (pow k 2) (- (+ (* -1/2 (/ (pow l 2) t)) (* (pow k 2) (- (+ (* 1/24 (/ (pow l 2) t)) (* (pow k 2) (- (* -1/720 (/ (pow l 2) t)) (+ (* -1/3 (- (* 1/24 (/ (pow l 2) t)) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t))))) (+ (* -1/315 (/ (pow l 2) t)) (* 2/45 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t))))))))) (+ (* -1/3 (- (* -1/2 (/ (pow l 2) t)) (* -1/3 (/ (pow l 2) t)))) (* 2/45 (/ (pow l 2) t)))))) (* -1/3 (/ (pow l 2) t)))) (/ (pow l 2) t)) (pow k 4))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (pow l 2) (* (pow k 4) t))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (+ (* -1/6 (/ (* (pow k 2) (pow l 2)) t)) (/ (pow l 2) t)) (pow k 4))))
#s(approx (pow k 4) #s(hole binary64 (pow k 4)))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ 1 (* (pow k 2) t))))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ (+ (* -1/2 (/ (pow k 2) t)) (/ 1 t)) (pow k 2))))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (* 1/24 (/ (pow k 2) t)) (* 1/2 (/ 1 t)))) (/ 1 t)) (pow k 2))))
#s(approx (/ (cos k) (* (* k k) t)) #s(hole binary64 (/ (+ (* (pow k 2) (- (* (pow k 2) (+ (* -1/720 (/ (pow k 2) t)) (* 1/24 (/ 1 t)))) (* 1/2 (/ 1 t)))) (/ 1 t)) (pow k 2))))
#s(approx (* k k) #s(hole binary64 (pow k 2)))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (pow l 2) (pow k 2))))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (+ (* 1/3 (* (pow k 2) (pow l 2))) (pow l 2)) (pow k 2))))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (+ (* (pow k 2) (- (* -1 (* (pow k 2) (+ (* -1/9 (pow l 2)) (* 2/45 (pow l 2))))) (* -1/3 (pow l 2)))) (pow l 2)) (pow k 2))))
#s(approx (/ (* l l) (* (sin k) (sin k))) #s(hole binary64 (/ (+ (* (pow k 2) (- (* (pow k 2) (- (* -1 (* (pow k 2) (+ (* -1/315 (pow l 2)) (+ (* 2/135 (pow l 2)) (* 1/3 (+ (* -1/9 (pow l 2)) (* 2/45 (pow l 2)))))))) (+ (* -1/9 (pow l 2)) (* 2/45 (pow l 2))))) (* -1/3 (pow l 2)))) (pow l 2)) (pow k 2))))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) #s(hole binary64 k))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) #s(hole binary64 (* k (+ 1 (* -1/6 (pow k 2))))))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) #s(hole binary64 (* k (+ 1 (* (pow k 2) (- (* 1/120 (pow k 2)) 1/6))))))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow k 2)))))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) #s(hole binary64 (+ 1 (* (pow k 2) (- (* 1/120 (pow k 2)) 1/6)))))
#s(approx (* (- (* 1/120 (* k k)) 1/6) (* k k)) #s(hole binary64 (* -1/6 (pow k 2))))
#s(approx (* (- (* 1/120 (* k k)) 1/6) (* k k)) #s(hole binary64 (* (pow k 2) (- (* 1/120 (pow k 2)) 1/6))))
#s(approx (- (* 1/120 (* k k)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* 1/120 (* k k)) 1/6) #s(hole binary64 (- (* 1/120 (pow k 2)) 1/6)))
#s(approx (* 1/120 (* k k)) #s(hole binary64 (* 1/120 (pow k 2))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (/ (* (pow k 4) t) (pow l 2))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* 1/6 (/ (* (pow k 2) t) (pow l 2))) (/ t (pow l 2))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 31/360 (/ (* (pow k 2) t) (pow l 2))) (* 1/6 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (+ (* 1/6 (/ t (pow l 2))) (* (pow k 2) (+ (* 173/5040 (/ (* (pow k 2) t) (pow l 2))) (* 31/360 (/ t (pow l 2))))))) (/ t (pow l 2))))))
#s(approx (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (/ (* (pow k 4) t) (pow l 2))))
#s(approx (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (- (+ (* -1/3 (/ t (pow l 2))) (* (pow k 2) (- (* 2/45 (/ t (pow l 2))) (+ (* -1/2 (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2))))) (* 1/24 (/ t (pow l 2))))))) (* -1/2 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) #s(hole binary64 (* (pow k 4) (+ (* (pow k 2) (- (+ (* -1/3 (/ t (pow l 2))) (* (pow k 2) (- (+ (* 2/45 (/ t (pow l 2))) (* (pow k 2) (- (* -1/315 (/ t (pow l 2))) (+ (* -1/2 (- (* 2/45 (/ t (pow l 2))) (+ (* -1/2 (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2))))) (* 1/24 (/ t (pow l 2)))))) (+ (* -1/720 (/ t (pow l 2))) (* 1/24 (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2)))))))))) (+ (* -1/2 (- (* -1/3 (/ t (pow l 2))) (* -1/2 (/ t (pow l 2))))) (* 1/24 (/ t (pow l 2))))))) (* -1/2 (/ t (pow l 2))))) (/ t (pow l 2))))))
#s(approx (/ (* k (* k t)) (cos k)) #s(hole binary64 (* (pow k 2) t)))
#s(approx (/ (* k (* k t)) (cos k)) #s(hole binary64 (* (pow k 2) (+ t (* 1/2 (* (pow k 2) t))))))
#s(approx (/ (* k (* k t)) (cos k)) #s(hole binary64 (* (pow k 2) (+ t (* (pow k 2) (- (* -1 (* (pow k 2) (+ (* -1/4 t) (* 1/24 t)))) (* -1/2 t)))))))
#s(approx (/ (* k (* k t)) (cos k)) #s(hole binary64 (* (pow k 2) (+ t (* (pow k 2) (- (* (pow k 2) (- (* -1 (* (pow k 2) (+ (* -1/720 t) (+ (* 1/48 t) (* 1/2 (+ (* -1/4 t) (* 1/24 t))))))) (+ (* -1/4 t) (* 1/24 t)))) (* -1/2 t)))))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (/ (pow k 2) (pow l 2))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (* (pow k 2) (+ (* -1/3 (/ (pow k 2) (pow l 2))) (/ 1 (pow l 2))))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (- (* 2/45 (/ (pow k 2) (pow l 2))) (* 1/3 (/ 1 (pow l 2))))) (/ 1 (pow l 2))))))
#s(approx (/ (* (sin k) (sin k)) (* l l)) #s(hole binary64 (* (pow k 2) (+ (* (pow k 2) (- (* (pow k 2) (+ (* -1/315 (/ (pow k 2) (pow l 2))) (* 2/45 (/ 1 (pow l 2))))) (* 1/3 (/ 1 (pow l 2))))) (/ 1 (pow l 2))))))
#s(approx (cos k) #s(hole binary64 (cos k)))
#s(approx (pow (sin k) 2) #s(hole binary64 (pow (sin k) 2)))
#s(approx (sin k) #s(hole binary64 (sin k)))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (* -1/6 (/ (pow l 2) (* (pow k 2) t)))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) #s(hole binary64 (/ (+ (* -1/6 (/ (pow l 2) t)) (/ (pow l 2) (* (pow k 2) t))) (pow k 2))))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) #s(hole binary64 (* 1/120 (pow k 5))))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) #s(hole binary64 (* (pow k 5) (- 1/120 (* 1/6 (/ 1 (pow k 2)))))))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) #s(hole binary64 (* (pow k 5) (- (+ 1/120 (/ 1 (pow k 4))) (* 1/6 (/ 1 (pow k 2)))))))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) #s(hole binary64 (* 1/120 (pow k 4))))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) #s(hole binary64 (* (pow k 4) (- 1/120 (* 1/6 (/ 1 (pow k 2)))))))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) #s(hole binary64 (* (pow k 4) (- (+ 1/120 (/ 1 (pow k 4))) (* 1/6 (/ 1 (pow k 2)))))))
#s(approx (* (- (* 1/120 (* k k)) 1/6) (* k k)) #s(hole binary64 (* 1/120 (pow k 4))))
#s(approx (* (- (* 1/120 (* k k)) 1/6) (* k k)) #s(hole binary64 (* (pow k 4) (- 1/120 (* 1/6 (/ 1 (pow k 2)))))))
#s(approx (- (* 1/120 (* k k)) 1/6) #s(hole binary64 (* 1/120 (pow k 2))))
#s(approx (- (* 1/120 (* k k)) 1/6) #s(hole binary64 (* (pow k 2) (- 1/120 (* 1/6 (/ 1 (pow k 2)))))))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) #s(hole binary64 (* -1 (* (pow k 5) (- (* 1/6 (/ 1 (pow k 2))) 1/120)))))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) #s(hole binary64 (* -1 (* (pow k 5) (- (* 1/6 (/ 1 (pow k 2))) (+ 1/120 (/ 1 (pow k 4))))))))

Outputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)) #s(literal 2 binary64)))
(.f64 (.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)) #s(literal 2 binary64))
(.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 (ratio-of-squares.f64 l (sin.f64 k)) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)))
(/.f64 (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) #s(literal 4 binary64)) (*.f64 t #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 4 binary64)) (.f64 (.f64 (*.f64 k k) t) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 (.f64 (.f64 l l) (cos.f64 k))) #s(literal 4 binary64)) (.f64 (neg.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))) #s(literal 4 binary64)) (.f64 (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (.f64 l l) (cos.f64 k)) #s(literal 4 binary64)) (.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 4 binary64) (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) t))
(/.f64 (.f64 #s(literal 4 binary64) (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k)))) (.f64 #s(literal 2 binary64) (.f64 (*.f64 k k) t)))
(/.f64 (.f64 #s(literal 4 binary64) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l))) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (.f64 #s(literal 4 binary64) (neg.f64 (.f64 (.f64 l l) (cos.f64 k)))) (.f64 #s(literal 2 binary64) (neg.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))))
(/.f64 (.f64 #s(literal 4 binary64) (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)))) (.f64 #s(literal 2 binary64) (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))))
(/.f64 (.f64 #s(literal 4 binary64) (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 l l) (cos.f64 k))) (.f64 #s(literal 2 binary64) (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) t) (.f64 t (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (*.f64 t t))
(/.f64 (+.f64 (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (.f64 k k) t)) (.f64 t (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))))) (.f64 t (.f64 (*.f64 k k) t)))
(/.f64 (+.f64 (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 t (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
(/.f64 (+.f64 (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 t (neg.f64 (.f64 (.f64 l l) (cos.f64 k))))) (.f64 t (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))))
(/.f64 (+.f64 (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) (.f64 t (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))))) (.f64 t (neg.f64 (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))))
(/.f64 (+.f64 (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 t (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)))) (.f64 t (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (+.f64 (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 t (.f64 (.f64 l l) (cos.f64 k)))) (.f64 t (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) t) (.f64 (.f64 (.f64 k k) t) (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (.f64 (*.f64 k k) t) t))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (.f64 k k) t)) (.f64 (.f64 (.f64 k k) t) (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))))) (.f64 (.f64 (.f64 k k) t) (.f64 (*.f64 k k) t)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (.f64 (.f64 k k) t) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)))) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (.f64 (.f64 k k) t) (neg.f64 (.f64 (.f64 l l) (cos.f64 k))))) (.f64 (.f64 (.f64 k k) t) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) (.f64 (.f64 (.f64 k k) t) (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))))) (.f64 (.f64 (.f64 k k) t) (neg.f64 (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (.f64 (.f64 k k) t) (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)))) (.f64 (.f64 (.f64 k k) t) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 k k) t) (.f64 (.f64 l l) (cos.f64 k)))) (.f64 (.f64 (.f64 k k) t) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) t) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
(/.f64 (+.f64 (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) (.f64 (.f64 k k) t)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (.f64 k k) t)))
(/.f64 (+.f64 (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)))) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (+.f64 (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 l l) (cos.f64 k))))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))))
(/.f64 (+.f64 (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))))
(/.f64 (+.f64 (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (+.f64 (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (.f64 l l) (cos.f64 k)))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (.f64 l l) (cos.f64 k))) t) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) t))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (.f64 l l) (cos.f64 k))) (.f64 (.f64 k k) t)) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (.f64 k k) t)))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (.f64 l l) (cos.f64 k))) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)))) (.f64 (neg.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (.f64 l l) (cos.f64 k))) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (neg.f64 (.f64 (.f64 l l) (cos.f64 k))))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (neg.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (.f64 l l) (cos.f64 k))) (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (.f64 l l) (cos.f64 k))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (.f64 l l) (cos.f64 k))) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (.f64 l l) (cos.f64 k)))) (.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))) t) (.f64 (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (neg.f64 (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) t))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))) (.f64 (.f64 k k) t)) (.f64 (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))))) (.f64 (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (*.f64 k k) t)))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)))) (.f64 (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (neg.f64 (.f64 (.f64 l l) (cos.f64 k))))) (.f64 (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))) (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) (.f64 (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))))) (.f64 (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (neg.f64 (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)))) (.f64 (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (.f64 l l) (cos.f64 k)))) (.f64 (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) t) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) t))
(/.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (.f64 (.f64 k k) t)) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (.f64 (*.f64 k k) t)))
(/.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (neg.f64 (.f64 (.f64 l l) (cos.f64 k))))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))))
(/.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (neg.f64 (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))))
(/.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (.f64 (.f64 l l) (cos.f64 k)))) (.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 (.f64 (.f64 l l) (cos.f64 k)) t) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) t))
(/.f64 (+.f64 (.f64 (.f64 (.f64 l l) (cos.f64 k)) (.f64 (.f64 k k) t)) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (.f64 k k) t)))
(/.f64 (+.f64 (.f64 (.f64 (.f64 l l) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)))) (.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (+.f64 (.f64 (.f64 (.f64 l l) (cos.f64 k)) (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (neg.f64 (.f64 (.f64 l l) (cos.f64 k))))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (neg.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))))
(/.f64 (+.f64 (.f64 (.f64 (.f64 l l) (cos.f64 k)) (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))))
(/.f64 (+.f64 (.f64 (.f64 (.f64 l l) (cos.f64 k)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (+.f64 (.f64 (.f64 (.f64 l l) (cos.f64 k)) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (.f64 l l) (cos.f64 k)))) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 l l) (cos.f64 k))) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(+.f64 (.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)) (.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)))
(*.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t))
(.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(.f64 (.f64 l l) (/.f64 (cos.f64 k) (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(.f64 (ratio-of-squares.f64 l (sin.f64 k)) (/.f64 (cos.f64 k) (.f64 (*.f64 k k) t)))
(.f64 (/.f64 (cos.f64 k) (.f64 (*.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k)))
(/.f64 (.f64 (/.f64 (.f64 l l) k) (cos.f64 k)) (.f64 k (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (.f64 (/.f64 (.f64 l l) (sin.f64 k)) (/.f64 (cos.f64 k) (.f64 k k))) (.f64 (sin.f64 k) t))
(/.f64 (.f64 (/.f64 (.f64 l l) (sin.f64 k)) (neg.f64 (cos.f64 k))) (.f64 (sin.f64 k) (neg.f64 (.f64 (*.f64 k k) t))))
(/.f64 (.f64 (/.f64 (.f64 l l) (sin.f64 k)) (cos.f64 k)) (.f64 (sin.f64 k) (.f64 (*.f64 k k) t)))
(/.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k k)) (/.f64 (.f64 l l) (sin.f64 k))) (.f64 t (sin.f64 k)))
(/.f64 (.f64 (neg.f64 (cos.f64 k)) (/.f64 (.f64 l l) (sin.f64 k))) (.f64 (neg.f64 (.f64 (*.f64 k k) t)) (sin.f64 k)))
(/.f64 (.f64 (cos.f64 k) (/.f64 (.f64 l l) (sin.f64 k))) (.f64 (.f64 (*.f64 k k) t) (sin.f64 k)))
(/.f64 (.f64 (neg.f64 (.f64 l l)) (/.f64 (cos.f64 k) (.f64 k k))) (.f64 (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64))) t))
(/.f64 (.f64 (neg.f64 (.f64 l l)) (neg.f64 (cos.f64 k))) (.f64 (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (neg.f64 (.f64 (*.f64 k k) t))))
(/.f64 (.f64 (neg.f64 (.f64 l l)) (cos.f64 k)) (.f64 (neg.f64 (.f64 k k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (.f64 (neg.f64 (.f64 l l)) (cos.f64 k)) (.f64 (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (*.f64 k k) t)))
(/.f64 (.f64 (.f64 l l) (neg.f64 (cos.f64 k))) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (neg.f64 (.f64 (*.f64 k k) t))))
(/.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k k)) (neg.f64 (.f64 l l))) (.f64 t (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k k)) (.f64 l l)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
(/.f64 (.f64 (neg.f64 (cos.f64 k)) (neg.f64 (.f64 l l))) (.f64 (neg.f64 (.f64 (*.f64 k k) t)) (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (.f64 (neg.f64 (cos.f64 k)) (.f64 l l)) (.f64 (neg.f64 (.f64 (*.f64 k k) t)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(/.f64 (.f64 (cos.f64 k) (neg.f64 (.f64 l l))) (.f64 (.f64 (*.f64 k k) t) (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (/.f64 (*.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) t)
(/.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (*.f64 k k) t))
(/.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))
(/.f64 (neg.f64 (.f64 (.f64 l l) (cos.f64 k))) (neg.f64 (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k))) (neg.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)))
(/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
(/.f64 (.f64 (.f64 l l) (cos.f64 k)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t)))
(/.f64 (.f64 (.f64 l l) (cos.f64 k)) (.f64 (.f64 (*.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))))
(*.f64 (ratio-of-squares.f64 l k) (cos.f64 k))
(.f64 (.f64 l l) (/.f64 (cos.f64 k) (*.f64 k k)))
(*.f64 (cos.f64 k) (ratio-of-squares.f64 l k))
(/.f64 (neg.f64 (.f64 (.f64 l l) (cos.f64 k))) (neg.f64 (*.f64 k k)))
(/.f64 (.f64 (.f64 l l) (cos.f64 k)) (*.f64 k k))
(*.f64 (neg.f64 (/.f64 l k)) (neg.f64 (/.f64 l k)))
(*.f64 (fabs.f64 (/.f64 l k)) (fabs.f64 (/.f64 l k)))
(*.f64 (/.f64 l k) (/.f64 l k))
(.f64 l (/.f64 l (.f64 k k)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (neg.f64 (fabs.f64 k)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (fabs.f64 (fabs.f64 k)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (exp.f64 (log.f64 k)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (neg.f64 (neg.f64 k)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (fabs.f64 k))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (neg.f64 k))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) k)
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (neg.f64 (fabs.f64 k)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (fabs.f64 (fabs.f64 k)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (exp.f64 (log.f64 k)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (neg.f64 (neg.f64 k)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (fabs.f64 k))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (neg.f64 k))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) k)
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (neg.f64 (fabs.f64 k)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (fabs.f64 (fabs.f64 k)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (exp.f64 (log.f64 k)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (neg.f64 (neg.f64 k)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (fabs.f64 k))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (neg.f64 k))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) k)
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (neg.f64 (fabs.f64 k)))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (fabs.f64 (fabs.f64 k)))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (exp.f64 (log.f64 k)))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (neg.f64 (neg.f64 k)))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (fabs.f64 k))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (neg.f64 k))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) k)
(ratio-of-squares.f64 (neg.f64 l) (neg.f64 (fabs.f64 k)))
(ratio-of-squares.f64 (neg.f64 l) (fabs.f64 (fabs.f64 k)))
(ratio-of-squares.f64 (neg.f64 l) (exp.f64 (log.f64 k)))
(ratio-of-squares.f64 (neg.f64 l) (neg.f64 (neg.f64 k)))
(ratio-of-squares.f64 (neg.f64 l) (fabs.f64 k))
(ratio-of-squares.f64 (neg.f64 l) (neg.f64 k))
(ratio-of-squares.f64 (neg.f64 l) k)
(ratio-of-squares.f64 (fabs.f64 l) (neg.f64 (fabs.f64 k)))
(ratio-of-squares.f64 (fabs.f64 l) (fabs.f64 (fabs.f64 k)))
(ratio-of-squares.f64 (fabs.f64 l) (exp.f64 (log.f64 k)))
(ratio-of-squares.f64 (fabs.f64 l) (neg.f64 (neg.f64 k)))
(ratio-of-squares.f64 (fabs.f64 l) (fabs.f64 k))
(ratio-of-squares.f64 (fabs.f64 l) (neg.f64 k))
(ratio-of-squares.f64 (fabs.f64 l) k)
(ratio-of-squares.f64 l (neg.f64 (fabs.f64 k)))
(ratio-of-squares.f64 l (fabs.f64 (fabs.f64 k)))
(ratio-of-squares.f64 l (exp.f64 (log.f64 k)))
(ratio-of-squares.f64 l (neg.f64 (neg.f64 k)))
(ratio-of-squares.f64 l (fabs.f64 k))
(ratio-of-squares.f64 l (neg.f64 k))
(ratio-of-squares.f64 l k)
(pow.f64 (/.f64 l k) #s(literal 2 binary64))
(/.f64 (/.f64 (*.f64 l l) k) k)
(/.f64 (neg.f64 (.f64 l l)) (neg.f64 (.f64 k k)))
(/.f64 (.f64 l l) (.f64 k k))
(exp.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 2 binary64))))
l
k
(sin.f64 (+.f64 (neg.f64 k) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 k (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 k)))
(cos.f64 (neg.f64 k))
(cos.f64 k)
(+.f64 (.f64 (sin.f64 k) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 k) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)
(*.f64 t (pow.f64 (sin.f64 k) #s(literal 2 binary64)))
(*.f64 (neg.f64 (neg.f64 (sin.f64 k))) (neg.f64 (neg.f64 (sin.f64 k))))
(*.f64 (neg.f64 (fabs.f64 (sin.f64 k))) (neg.f64 (fabs.f64 (sin.f64 k))))
(*.f64 (fabs.f64 (fabs.f64 (sin.f64 k))) (fabs.f64 (fabs.f64 (sin.f64 k))))
(*.f64 (exp.f64 (log.f64 (sin.f64 k))) (exp.f64 (log.f64 (sin.f64 k))))
(*.f64 (neg.f64 (sin.f64 k)) (neg.f64 (sin.f64 k)))
(*.f64 (fabs.f64 (sin.f64 k)) (fabs.f64 (sin.f64 k)))
(*.f64 (sin.f64 k) (sin.f64 k))
(pow.f64 (exp.f64 (log.f64 (sin.f64 k))) #s(literal 2 binary64))
(pow.f64 (neg.f64 (sin.f64 k)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 (sin.f64 k)) #s(literal 2 binary64))
(pow.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 (sin.f64 k) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 k k)) (cos.f64 (+.f64 k k))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 k) #s(literal -2 binary64)))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 k k))))
(fabs.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 k)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (sin.f64 k)) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (sin.f64 k)) #s(literal 2 binary64))))
(pow.f64 (sin.f64 k) #s(literal 1 binary64))
(sin.f64 k)
(exp.f64 (*.f64 (log.f64 (sin.f64 k)) #s(literal 1 binary64)))
#s(literal 2 binary64)
t
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))
(.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t)))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))
(*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64))
(*.f64 #s(literal -1/6 binary64) (/.f64 (ratio-of-squares.f64 l k) t))
(/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t)
(/.f64 (.f64 #s(literal -1/6 binary64) (.f64 l l)) (.f64 (.f64 k k) t))
(/.f64 (neg.f64 (ratio-of-squares.f64 l k)) (neg.f64 t))
(/.f64 (neg.f64 (.f64 l l)) (neg.f64 (.f64 (*.f64 k k) t)))
(/.f64 (ratio-of-squares.f64 l k) t)
(/.f64 (.f64 l l) (.f64 (*.f64 k k) t))
#s(literal -1/6 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (ratio-of-squares.f64 l (.f64 k k)) (/.f64 #s(literal 2 binary64) t)))
(.f64 (ratio-of-squares.f64 l (.f64 k k)) (/.f64 #s(literal 2 binary64) t))
(.f64 (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t) #s(literal 2 binary64))
(.f64 (.f64 l l) (/.f64 #s(literal 2 binary64) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(.f64 #s(literal 2 binary64) (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t))
(/.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) #s(literal 4 binary64)) (*.f64 t #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 4 binary64) (ratio-of-squares.f64 l (.f64 k k))) (*.f64 #s(literal 2 binary64) t))
(/.f64 (.f64 (neg.f64 (.f64 l l)) #s(literal 4 binary64)) (.f64 (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t)) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 l l) #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 4 binary64) (neg.f64 (.f64 l l))) (.f64 #s(literal 2 binary64) (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t))))
(/.f64 (.f64 #s(literal 4 binary64) (.f64 l l)) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (.f64 t (ratio-of-squares.f64 l (.f64 k k)))) (*.f64 t t))
(/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t))) (.f64 t (neg.f64 (.f64 l l)))) (.f64 t (neg.f64 (*.f64 (pow.f64 k #s(literal 4 binary64)) t))))
(/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (.f64 t (.f64 l l))) (.f64 t (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 l l)) t) (.f64 (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (ratio-of-squares.f64 l (.f64 k k)))) (.f64 (neg.f64 (*.f64 (pow.f64 k #s(literal 4 binary64)) t)) t))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 l l)) (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t))) (.f64 (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (neg.f64 (.f64 l l)))) (.f64 (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (neg.f64 (*.f64 (pow.f64 k #s(literal 4 binary64)) t))))
(/.f64 (+.f64 (.f64 (neg.f64 (.f64 l l)) (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (.f64 (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (.f64 l l))) (.f64 (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 (+.f64 (.f64 (.f64 l l) t) (.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t) (ratio-of-squares.f64 l (.f64 k k)))) (.f64 (*.f64 (pow.f64 k #s(literal 4 binary64)) t) t))
(/.f64 (+.f64 (.f64 (.f64 l l) (neg.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t))) (.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t) (neg.f64 (.f64 l l)))) (.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t) (neg.f64 (*.f64 (pow.f64 k #s(literal 4 binary64)) t))))
(/.f64 (+.f64 (.f64 (.f64 l l) (.f64 (pow.f64 k #s(literal 4 binary64)) t)) (.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t) (.f64 l l))) (.f64 (.f64 (pow.f64 k #s(literal 4 binary64)) t) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (pow.f64 k #s(literal 4 binary64))) t)
(/.f64 (neg.f64 (.f64 (.f64 l l) #s(literal 2 binary64))) (neg.f64 (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t))
(+.f64 (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (/.f64 (ratio-of-squares.f64 l (.f64 k k)) t))
(.f64 (.f64 l l) #s(literal 2 binary64))
(.f64 l (.f64 l #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 l l))
(+.f64 (.f64 l l) (.f64 l l))
(*.f64 (neg.f64 (neg.f64 l)) (neg.f64 (neg.f64 l)))
(*.f64 (neg.f64 (fabs.f64 l)) (neg.f64 (fabs.f64 l)))
(*.f64 (fabs.f64 (fabs.f64 l)) (fabs.f64 (fabs.f64 l)))
(*.f64 (exp.f64 (log.f64 l)) (exp.f64 (log.f64 l)))
(*.f64 (neg.f64 l) (neg.f64 l))
(*.f64 (fabs.f64 l) (fabs.f64 l))
(*.f64 l l)
(pow.f64 (exp.f64 (log.f64 l)) #s(literal 2 binary64))
(pow.f64 (neg.f64 l) #s(literal 2 binary64))
(pow.f64 (fabs.f64 l) #s(literal 2 binary64))
(pow.f64 (*.f64 l l) #s(literal 1 binary64))
(pow.f64 l #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 l #s(literal -2 binary64)))
(fabs.f64 (*.f64 l l))
(exp.f64 (*.f64 (log.f64 l) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 l) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 l) #s(literal 2 binary64))))
(*.f64 (pow.f64 k #s(literal 4 binary64)) t)
(*.f64 t (pow.f64 k #s(literal 4 binary64)))
(.f64 (neg.f64 (.f64 k k)) (neg.f64 (*.f64 k k)))
(.f64 (.f64 k k) (*.f64 k k))
(pow.f64 (exp.f64 (log.f64 k)) #s(literal 4 binary64))
(pow.f64 (*.f64 k k) #s(literal 2 binary64))
(pow.f64 k #s(literal 4 binary64))
(exp.f64 (+.f64 (.f64 (log.f64 k) #s(literal 2 binary64)) (.f64 (log.f64 k) #s(literal 2 binary64))))
(exp.f64 (.f64 (.f64 (log.f64 k) #s(literal 2 binary64)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 k) #s(literal 4 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 k) #s(literal 4 binary64))) (sinh.f64 (.f64 (log.f64 k) #s(literal 4 binary64))))
#s(literal 4 binary64)
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))) (/.f64 (cos.f64 k) (.f64 (*.f64 k k) t))) #s(literal 2 binary64)))
(.f64 (.f64 (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))) (/.f64 (cos.f64 k) (.f64 (*.f64 k k) t))) #s(literal 2 binary64))
(.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))) (/.f64 (cos.f64 k) (.f64 (*.f64 k k) t))))
(/.f64 (.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))) #s(literal 4 binary64)) (.f64 (.f64 (.f64 k k) t) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 4 binary64) (.f64 (cos.f64 k) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))) (.f64 #s(literal 2 binary64) (.f64 (.f64 k k) t)))
(/.f64 (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) #s(literal 4 binary64)) (.f64 (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64)) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (.f64 l l) (cos.f64 k)) #s(literal 4 binary64)) (.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 4 binary64) (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l))) (.f64 #s(literal 2 binary64) (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64))))
(/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 l l) (cos.f64 k))) (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 k k) t) (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64)))))
(.f64 (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))) (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)))
(.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(/.f64 (.f64 (/.f64 (.f64 l l) #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))) (/.f64 (cos.f64 k) (.f64 k k))) (.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) t))
(/.f64 (.f64 (/.f64 (.f64 l l) #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))) (neg.f64 (cos.f64 k))) (.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) (neg.f64 (.f64 (*.f64 k k) t))))
(/.f64 (.f64 (/.f64 (.f64 l l) #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))) (cos.f64 k)) (.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) (.f64 (*.f64 k k) t)))
(/.f64 (.f64 (neg.f64 (.f64 l l)) (/.f64 (cos.f64 k) (.f64 k k))) (.f64 (neg.f64 (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64))) t))
(/.f64 (.f64 (neg.f64 (.f64 l l)) (neg.f64 (cos.f64 k))) (.f64 (neg.f64 (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64))) (neg.f64 (.f64 (.f64 k k) t))))
(/.f64 (.f64 (neg.f64 (.f64 l l)) (cos.f64 k)) (.f64 (neg.f64 (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64))) (.f64 (.f64 k k) t)))
(/.f64 (.f64 (.f64 l l) (neg.f64 (cos.f64 k))) (.f64 (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 k k) t))))
(/.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k k)) (/.f64 (.f64 l l) #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))) (.f64 t #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(/.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k k)) (neg.f64 (.f64 l l))) (.f64 t (neg.f64 (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64)))))
(/.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k k)) (.f64 l l)) (.f64 t (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (cos.f64 k)) (/.f64 (.f64 l l) #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))) (.f64 (neg.f64 (.f64 (.f64 k k) t)) #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(/.f64 (.f64 (neg.f64 (cos.f64 k)) (neg.f64 (.f64 l l))) (.f64 (neg.f64 (.f64 (.f64 k k) t)) (neg.f64 (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64)))))
(/.f64 (.f64 (neg.f64 (cos.f64 k)) (.f64 l l)) (.f64 (neg.f64 (.f64 (.f64 k k) t)) (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64))))
(/.f64 (.f64 (cos.f64 k) (/.f64 (.f64 l l) #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))) (.f64 (.f64 (.f64 k k) t) #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(/.f64 (.f64 (cos.f64 k) (neg.f64 (.f64 l l))) (.f64 (.f64 (.f64 k k) t) (neg.f64 (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))) (.f64 (.f64 k k) t))
(/.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (.f64 l l)) (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64)))
(/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (.f64 (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64)) t))
(/.f64 (.f64 (.f64 l l) (cos.f64 k)) (.f64 (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64)) (.f64 (.f64 k k) t)))
(/.f64 (.f64 (.f64 l l) (cos.f64 k)) (.f64 (.f64 (.f64 k k) t) (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64))))
(/.f64 (/.f64 (cos.f64 k) (*.f64 k k)) t)
(/.f64 (neg.f64 (cos.f64 k)) (neg.f64 (.f64 (.f64 k k) t)))
(/.f64 (cos.f64 k) (.f64 (.f64 k k) t))
(.f64 (.f64 k t) k)
(.f64 (.f64 k k) t)
(.f64 k (.f64 k t))
(.f64 t (.f64 k k))
(*.f64 (neg.f64 (fabs.f64 k)) (neg.f64 (fabs.f64 k)))
(*.f64 (fabs.f64 (fabs.f64 k)) (fabs.f64 (fabs.f64 k)))
(*.f64 (exp.f64 (log.f64 k)) (exp.f64 (log.f64 k)))
(*.f64 (neg.f64 (neg.f64 k)) (neg.f64 (neg.f64 k)))
(*.f64 (fabs.f64 k) (fabs.f64 k))
(*.f64 (neg.f64 k) (neg.f64 k))
(*.f64 k k)
(pow.f64 (exp.f64 (log.f64 k)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 k) #s(literal 2 binary64))
(pow.f64 (neg.f64 k) #s(literal 2 binary64))
(pow.f64 (*.f64 k k) #s(literal 1 binary64))
(pow.f64 k #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 k #s(literal -2 binary64)))
(fabs.f64 (*.f64 k k))
(exp.f64 (*.f64 (log.f64 k) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 k) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 k) #s(literal 2 binary64))))
(.f64 (neg.f64 (/.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))) (neg.f64 (/.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(.f64 (fabs.f64 (/.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))) (fabs.f64 (/.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(.f64 (/.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))) (/.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(.f64 l (/.f64 l (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64))))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (neg.f64 (neg.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (neg.f64 (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (fabs.f64 (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 1 binary64)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (neg.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(ratio-of-squares.f64 (neg.f64 (neg.f64 l)) #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (neg.f64 (neg.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (neg.f64 (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (fabs.f64 (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 1 binary64)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (neg.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 l)) #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (neg.f64 (neg.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (neg.f64 (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (fabs.f64 (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 1 binary64)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (neg.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 l)) #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (neg.f64 (neg.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (neg.f64 (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (fabs.f64 (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 1 binary64)))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (neg.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(ratio-of-squares.f64 (exp.f64 (log.f64 l)) #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))
(ratio-of-squares.f64 (neg.f64 l) (neg.f64 (neg.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (neg.f64 l) (neg.f64 (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (neg.f64 l) (fabs.f64 (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (neg.f64 l) (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 1 binary64)))
(ratio-of-squares.f64 (neg.f64 l) (neg.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(ratio-of-squares.f64 (neg.f64 l) (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(ratio-of-squares.f64 (neg.f64 l) #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))
(ratio-of-squares.f64 (fabs.f64 l) (neg.f64 (neg.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (fabs.f64 l) (neg.f64 (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (fabs.f64 l) (fabs.f64 (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 (fabs.f64 l) (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 1 binary64)))
(ratio-of-squares.f64 (fabs.f64 l) (neg.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(ratio-of-squares.f64 (fabs.f64 l) (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(ratio-of-squares.f64 (fabs.f64 l) #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))
(ratio-of-squares.f64 l (neg.f64 (neg.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 l (neg.f64 (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 l (fabs.f64 (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))))
(ratio-of-squares.f64 l (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 1 binary64)))
(ratio-of-squares.f64 l (neg.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(ratio-of-squares.f64 l (fabs.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))))
(ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))
(pow.f64 (/.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))) #s(literal 2 binary64))
(/.f64 (/.f64 (.f64 l l) #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))) #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)))
(/.f64 (neg.f64 (.f64 l l)) (neg.f64 (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64))))
(/.f64 (.f64 l l) (pow.f64 #s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)) #s(literal 2 binary64)))
#s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))
(.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k)
(.f64 k (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) k) (.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) k))
(+.f64 (.f64 k #s(literal 1 binary64)) (.f64 k (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k)))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k)))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 k k)) (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64))))
(+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k))
(.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k)
(.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 k k))
(.f64 (.f64 k k) (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 2 binary64)) #s(literal 1/36 binary64)) (+.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 3 binary64)) #s(literal 1/216 binary64)) (+.f64 (pow.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 2 binary64)) (+.f64 #s(literal 1/36 binary64) (.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)))))
(-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64))
(.f64 (.f64 #s(literal 1/120 binary64) k) k)
(.f64 (.f64 k k) #s(literal 1/120 binary64))
(.f64 #s(literal 1/120 binary64) (.f64 k k))
#s(literal 1/120 binary64)
#s(literal 1/6 binary64)
#s(literal 1 binary64)
(/.f64 #s(literal -2 binary64) (neg.f64 #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (ratio-of-squares.f64 (sin.f64 k) l) (.f64 (*.f64 k k) (/.f64 t (cos.f64 k)))))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (ratio-of-squares.f64 (sin.f64 k) l) (.f64 (*.f64 k k) (/.f64 t (cos.f64 k))))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (ratio-of-squares.f64 (sin.f64 k) l) (.f64 (*.f64 k k) (/.f64 t (cos.f64 k)))))
(.f64 (ratio-of-squares.f64 k l) (/.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (cos.f64 k)))
(.f64 (ratio-of-squares.f64 (sin.f64 k) l) (.f64 (*.f64 k k) (/.f64 t (cos.f64 k))))
(.f64 (.f64 (*.f64 k k) (/.f64 t (cos.f64 k))) (ratio-of-squares.f64 (sin.f64 k) l))
(.f64 (.f64 k k) (/.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (.f64 (*.f64 l l) (cos.f64 k))))
(/.f64 (.f64 (neg.f64 (.f64 k k)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) (.f64 (neg.f64 (*.f64 l l)) (cos.f64 k)))
(/.f64 (.f64 (/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) l) (neg.f64 (.f64 (.f64 k k) t))) (.f64 l (neg.f64 (cos.f64 k))))
(/.f64 (.f64 (/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) l) (.f64 (.f64 k k) t)) (.f64 l (cos.f64 k)))
(/.f64 (.f64 (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (neg.f64 (.f64 (.f64 k k) t))) (.f64 (neg.f64 (*.f64 l l)) (neg.f64 (cos.f64 k))))
(/.f64 (.f64 (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (.f64 k k) t)) (.f64 (neg.f64 (*.f64 l l)) (cos.f64 k)))
(/.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 k k) t))) (.f64 (*.f64 l l) (neg.f64 (cos.f64 k))))
(/.f64 (.f64 (neg.f64 (.f64 (.f64 k k) t)) (/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) l)) (.f64 (neg.f64 (cos.f64 k)) l))
(/.f64 (.f64 (neg.f64 (.f64 (.f64 k k) t)) (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (neg.f64 (cos.f64 k)) (neg.f64 (*.f64 l l))))
(/.f64 (.f64 (neg.f64 (.f64 (.f64 k k) t)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (neg.f64 (cos.f64 k)) (*.f64 l l)))
(/.f64 (.f64 (.f64 (.f64 k k) t) (/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) l)) (.f64 (cos.f64 k) l))
(/.f64 (.f64 (.f64 (.f64 k k) t) (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (.f64 (cos.f64 k) (neg.f64 (*.f64 l l))))
(/.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (.f64 (.f64 k k) t)) (.f64 (*.f64 l l) (cos.f64 k)))
(/.f64 (/.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 l l)) (cos.f64 k))
(/.f64 (.f64 (.f64 (*.f64 k k) t) (ratio-of-squares.f64 (sin.f64 k) l)) (cos.f64 k))
(/.f64 (.f64 (.f64 (.f64 k k) (/.f64 t (cos.f64 k))) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 l l))
(/.f64 (neg.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))) (neg.f64 (.f64 (*.f64 l l) (cos.f64 k))))
(/.f64 (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (.f64 (*.f64 l l) (cos.f64 k)))
(.f64 (.f64 k k) (/.f64 t (cos.f64 k)))
(.f64 k (/.f64 (.f64 k t) (cos.f64 k)))
(/.f64 (neg.f64 (.f64 (.f64 k k) t)) (neg.f64 (cos.f64 k)))
(/.f64 (.f64 (.f64 k k) t) (cos.f64 k))
(.f64 (.f64 k t) k)
(.f64 (.f64 k k) t)
(.f64 k (.f64 k t))
(.f64 t (.f64 k k))
(*.f64 k t)
(*.f64 t k)
(*.f64 (neg.f64 (/.f64 (sin.f64 k) l)) (neg.f64 (/.f64 (sin.f64 k) l)))
(*.f64 (fabs.f64 (/.f64 (sin.f64 k) l)) (fabs.f64 (/.f64 (sin.f64 k) l)))
(*.f64 (/.f64 (sin.f64 k) l) (/.f64 (sin.f64 k) l))
(.f64 (sin.f64 k) (/.f64 (sin.f64 k) (.f64 l l)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 (sin.f64 k))) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 (sin.f64 k))) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 (sin.f64 k))) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 (sin.f64 k))) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (neg.f64 (neg.f64 (sin.f64 k))) (neg.f64 l))
(ratio-of-squares.f64 (neg.f64 (neg.f64 (sin.f64 k))) (fabs.f64 l))
(ratio-of-squares.f64 (neg.f64 (neg.f64 (sin.f64 k))) l)
(ratio-of-squares.f64 (neg.f64 (fabs.f64 (sin.f64 k))) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 (sin.f64 k))) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 (sin.f64 k))) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 (sin.f64 k))) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 (sin.f64 k))) (neg.f64 l))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 (sin.f64 k))) (fabs.f64 l))
(ratio-of-squares.f64 (neg.f64 (fabs.f64 (sin.f64 k))) l)
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 (sin.f64 k))) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 (sin.f64 k))) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 (sin.f64 k))) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 (sin.f64 k))) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 (sin.f64 k))) (neg.f64 l))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 (sin.f64 k))) (fabs.f64 l))
(ratio-of-squares.f64 (fabs.f64 (fabs.f64 (sin.f64 k))) l)
(ratio-of-squares.f64 (exp.f64 (log.f64 (sin.f64 k))) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (exp.f64 (log.f64 (sin.f64 k))) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (exp.f64 (log.f64 (sin.f64 k))) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (exp.f64 (log.f64 (sin.f64 k))) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (exp.f64 (log.f64 (sin.f64 k))) (neg.f64 l))
(ratio-of-squares.f64 (exp.f64 (log.f64 (sin.f64 k))) (fabs.f64 l))
(ratio-of-squares.f64 (exp.f64 (log.f64 (sin.f64 k))) l)
(ratio-of-squares.f64 (neg.f64 (sin.f64 k)) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (neg.f64 (sin.f64 k)) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (neg.f64 (sin.f64 k)) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (neg.f64 (sin.f64 k)) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (neg.f64 (sin.f64 k)) (neg.f64 l))
(ratio-of-squares.f64 (neg.f64 (sin.f64 k)) (fabs.f64 l))
(ratio-of-squares.f64 (neg.f64 (sin.f64 k)) l)
(ratio-of-squares.f64 (fabs.f64 (sin.f64 k)) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (sin.f64 k)) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (sin.f64 k)) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (sin.f64 k)) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (fabs.f64 (sin.f64 k)) (neg.f64 l))
(ratio-of-squares.f64 (fabs.f64 (sin.f64 k)) (fabs.f64 l))
(ratio-of-squares.f64 (fabs.f64 (sin.f64 k)) l)
(ratio-of-squares.f64 (sin.f64 k) (neg.f64 (neg.f64 l)))
(ratio-of-squares.f64 (sin.f64 k) (neg.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (sin.f64 k) (fabs.f64 (fabs.f64 l)))
(ratio-of-squares.f64 (sin.f64 k) (exp.f64 (log.f64 l)))
(ratio-of-squares.f64 (sin.f64 k) (neg.f64 l))
(ratio-of-squares.f64 (sin.f64 k) (fabs.f64 l))
(ratio-of-squares.f64 (sin.f64 k) l)
(pow.f64 (/.f64 (sin.f64 k) l) #s(literal 2 binary64))
(/.f64 (/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) l) l)
(/.f64 (neg.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64))) (neg.f64 (*.f64 l l)))
(/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) (*.f64 l l))
(exp.f64 (-.f64 (.f64 (log.f64 (sin.f64 k)) #s(literal 2 binary64)) (.f64 (log.f64 l) #s(literal 2 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)) #s(literal 2 binary64)))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (.f64 (.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)) #s(literal 2 binary64)))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (*.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)))
#s(approx (* (pow (sin k) 2) t) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))
#s(approx t t)
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (.f64 (.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)) #s(literal 2 binary64)))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (*.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (+.f64 (.f64 (pow.f64 (.f64 l k) #s(literal 2 binary64)) #s(literal -1/6 binary64)) (.f64 l l)) (.f64 (pow.f64 k #s(literal 4 binary64)) t)))
#s(approx (* (/ (/ (* l l) (* k k)) t) -1/6) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))
#s(approx (/ (/ (* l l) (* k k)) t) (/.f64 (ratio-of-squares.f64 l k) t))
#s(approx (/ (* (* l l) 2) (* (pow k 4) t)) (.f64 (ratio-of-squares.f64 l (.f64 k k)) (/.f64 #s(literal 2 binary64) t)))
#s(approx (* (pow k 4) t) (*.f64 (pow.f64 k #s(literal 4 binary64)) t))
#s(approx (/ (cos k) (* (* k k) t)) (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)))
#s(approx (* k (* k t)) (.f64 (.f64 k k) t))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (ratio-of-squares.f64 (sin.f64 k) l) (.f64 (*.f64 k k) (/.f64 t (cos.f64 k)))))
#s(approx (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (.f64 (ratio-of-squares.f64 (sin.f64 k) l) (.f64 (*.f64 k k) (/.f64 t (cos.f64 k)))))
#s(approx (/ (* k (* k t)) (cos k)) (.f64 (.f64 k k) (/.f64 t (cos.f64 k))))
#s(approx (* k (* k t)) (.f64 (.f64 k k) t))
#s(approx (* k t) (*.f64 k t))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (neg.f64 (/.f64 (-.f64 (neg.f64 (.f64 l l)) (.f64 (pow.f64 (.f64 l k) #s(literal 2 binary64)) #s(literal -1/6 binary64))) (.f64 (pow.f64 k #s(literal 4 binary64)) t))))
#s(approx (* (/ (* l l) (* k k)) (cos k)) (*.f64 (ratio-of-squares.f64 l k) (cos.f64 k)))
#s(approx (/ (* l l) (* k k)) (ratio-of-squares.f64 l k))
#s(approx l l)
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (.f64 (+.f64 (pow.f64 t #s(literal -1 binary64)) (.f64 (/.f64 (.f64 k k) t) #s(literal -1/6 binary64))) (.f64 l l)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* l l) 2) (.f64 (.f64 l l) #s(literal 2 binary64)))
#s(approx (* l l) (*.f64 l l))
#s(approx (/ (* l l) (* (sin k) (sin k))) (ratio-of-squares.f64 l (sin.f64 k)))
#s(approx (/ (* (sin k) (sin k)) (* l l)) (ratio-of-squares.f64 (sin.f64 k) l))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (ratio-of-squares.f64 l (.f64 k k)) (/.f64 #s(literal 2 binary64) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 l k) #s(literal 2 binary64)) t) #s(literal -1/3 binary64)) (.f64 #s(literal -2 binary64) (/.f64 (.f64 l l) t))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64))) (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (.f64 (/.f64 (*.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -2 binary64) (+.f64 (.f64 (+.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal 151/7560 binary64)) (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64)) #s(literal -1/6 binary64))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64)))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/3 binary64))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (.f64 (ratio-of-squares.f64 l (.f64 k k)) (/.f64 #s(literal 2 binary64) t)))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (/.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (.f64 l l) t))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (/.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 (-.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (.f64 l l) t)) (+.f64 (-.f64 (.f64 #s(literal -1/315 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -2/45 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))) (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) #s(literal -1/3 binary64)))) (.f64 k k)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))))) (.f64 k k)) (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal 2 binary64))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (ratio-of-squares.f64 l (*.f64 k k)) t))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) (.f64 k k)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t))) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/3 binary64))) (.f64 k k)) (/.f64 (.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (.f64 l l) t)) (+.f64 (-.f64 (.f64 #s(literal -1/315 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -2/45 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))) (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) #s(literal -1/3 binary64)))) (.f64 k k)) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t))) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) (.f64 k k)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t))) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/3 binary64))) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (* l l) (* k k)) (cos k)) (ratio-of-squares.f64 l k))
#s(approx (* (/ (* l l) (* k k)) (cos k)) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (.f64 l k) #s(literal 2 binary64))) (.f64 l l)) (.f64 k k)))
#s(approx (* (/ (* l l) (* k k)) (cos k)) (/.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 (.f64 l k) #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 l l))) (.f64 k k)) (.f64 l l)) (.f64 k k)))
#s(approx (* (/ (* l l) (* k k)) (cos k)) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal -1/720 binary64) (pow.f64 (.f64 l k) #s(literal 2 binary64))) (.f64 #s(literal -1/24 binary64) (.f64 l l))) (.f64 k k)) (.f64 #s(literal -1/2 binary64) (.f64 l l))) (.f64 k k)) (.f64 l l)) (.f64 k k)))
#s(approx k k)
#s(approx (cos k) #s(literal 1 binary64))
#s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64)))
#s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64)))
#s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64)))
#s(approx (* (pow (sin k) 2) t) (.f64 (.f64 k k) t))
#s(approx (* (pow (sin k) 2) t) (.f64 (+.f64 (.f64 #s(literal -1/3 binary64) (.f64 (.f64 k k) t)) t) (*.f64 k k)))
#s(approx (* (pow (sin k) 2) t) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal -1/3 binary64) t) (.f64 #s(literal -2/45 binary64) (.f64 (.f64 k k) t))) (.f64 k k)) t) (.f64 k k)))
#s(approx (* (pow (sin k) 2) t) (.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal -1/315 binary64) (.f64 (.f64 k k) t)) (.f64 #s(literal -2/45 binary64) t)) (.f64 k k)) (.f64 #s(literal -1/3 binary64) t)) (.f64 k k)) t) (*.f64 k k)))
#s(approx (pow (sin k) 2) (*.f64 k k))
#s(approx (pow (sin k) 2) (.f64 (+.f64 (.f64 #s(literal -1/3 binary64) (.f64 k k)) #s(literal 1 binary64)) (.f64 k k)))
#s(approx (pow (sin k) 2) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 2/45 binary64) (.f64 k k)) #s(literal 1/3 binary64)) (.f64 k k)) #s(literal 1 binary64)) (.f64 k k)))
#s(approx (pow (sin k) 2) (.f64 (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/315 binary64) (.f64 k k)) #s(literal 2/45 binary64)) (.f64 k k)) #s(literal 1/3 binary64)) (.f64 k k)) #s(literal 1 binary64)) (.f64 k k)))
#s(approx (sin k) k)
#s(approx (sin k) (.f64 (+.f64 (.f64 (*.f64 k k) #s(literal -1/6 binary64)) #s(literal 1 binary64)) k))
#s(approx (sin k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))
#s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 k k)) #s(literal 1/120 binary64)) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (.f64 (ratio-of-squares.f64 l (.f64 k k)) (/.f64 #s(literal 2 binary64) t)))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (/.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (.f64 l l) t))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (/.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) 2) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 (-.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (.f64 l l) t)) (+.f64 (-.f64 (.f64 #s(literal -1/315 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -2/45 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))) (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) #s(literal -1/3 binary64)))) (.f64 k k)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))))) (.f64 k k)) (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal 2 binary64))) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (ratio-of-squares.f64 l (*.f64 k k)) t))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) k) k) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) (.f64 k k)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t))) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/3 binary64))) (.f64 k k)) (/.f64 (.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (.f64 l l) t)) (+.f64 (-.f64 (.f64 #s(literal -1/315 binary64) (/.f64 (.f64 l l) t)) (.f64 #s(literal -2/45 binary64) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)))) (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t)) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) #s(literal -1/3 binary64)))) (.f64 k k)) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 l l) t))) (-.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) #s(literal -1/3 binary64)) (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 l l) t)))) (.f64 k k)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 l l) t))) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/3 binary64))) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (ratio-of-squares.f64 l (*.f64 k k)) t))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (+.f64 (.f64 (/.f64 (pow.f64 (.f64 l k) #s(literal 2 binary64)) t) #s(literal -1/6 binary64)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64))))
#s(approx (pow k 4) (pow.f64 k #s(literal 4 binary64)))
#s(approx (/ (cos k) (* (* k k) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t))
#s(approx (/ (cos k) (* (* k k) t)) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 k k) t)) (pow.f64 t #s(literal -1 binary64))) (*.f64 k k)))
#s(approx (/ (cos k) (* (* k k) t)) (/.f64 (+.f64 (.f64 (/.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) t) (.f64 k k)) (pow.f64 t #s(literal -1 binary64))) (*.f64 k k)))
#s(approx (/ (cos k) (* (* k k) t)) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (+.f64 (/.f64 #s(literal 1/24 binary64) t) (.f64 #s(literal -1/720 binary64) (/.f64 (.f64 k k) t))) (.f64 k k)) (/.f64 #s(literal 1/2 binary64) t)) (.f64 k k)) (pow.f64 t #s(literal -1 binary64))) (*.f64 k k)))
#s(approx (* k k) (*.f64 k k))
#s(approx (/ (* l l) (* (sin k) (sin k))) (ratio-of-squares.f64 l k))
#s(approx (/ (* l l) (* (sin k) (sin k))) (/.f64 (+.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (.f64 l k) #s(literal 2 binary64))) (.f64 l l)) (.f64 k k)))
#s(approx (/ (* l l) (* (sin k) (sin k))) (/.f64 (+.f64 (.f64 (-.f64 (neg.f64 (.f64 (.f64 (.f64 l l) #s(literal -1/15 binary64)) (.f64 k k))) (.f64 #s(literal -1/3 binary64) (.f64 l l))) (.f64 k k)) (.f64 l l)) (.f64 k k)))
#s(approx (/ (* l l) (* (sin k) (sin k))) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (-.f64 (neg.f64 (.f64 (+.f64 (-.f64 (.f64 #s(literal 2/135 binary64) (.f64 l l)) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 l l) #s(literal -1/15 binary64)))) (.f64 #s(literal -1/315 binary64) (.f64 l l))) (.f64 k k))) (.f64 (.f64 l l) #s(literal -1/15 binary64))) (.f64 k k)) (.f64 #s(literal -1/3 binary64) (.f64 l l))) (.f64 k k)) (.f64 l l)) (*.f64 k k)))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) k)
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) (.f64 (+.f64 (.f64 (*.f64 k k) #s(literal -1/6 binary64)) #s(literal 1 binary64)) k))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) (.f64 (+.f64 (.f64 (.f64 (-.f64 (.f64 (*.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)) k))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) (+.f64 (.f64 (.f64 k k) #s(literal -1/6 binary64)) #s(literal 1 binary64)))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k) #s(literal 1 binary64)))
#s(approx (* (- (* 1/120 (* k k)) 1/6) (* k k)) (.f64 (.f64 k k) #s(literal -1/6 binary64)))
#s(approx (* (- (* 1/120 (* k k)) 1/6) (* k k)) (.f64 (.f64 (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) k) k))
#s(approx (- (* 1/120 (* k k)) 1/6) #s(literal -1/6 binary64))
#s(approx (- (* 1/120 (* k k)) 1/6) (-.f64 (.f64 (.f64 k k) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)))
#s(approx (* 1/120 (* k k)) (.f64 (.f64 k k) #s(literal 1/120 binary64)))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (pow.f64 k #s(literal 4 binary64)) (/.f64 t (.f64 l l))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (/.f64 t (.f64 l l)) (/.f64 (.f64 #s(literal 1/6 binary64) (.f64 (.f64 k k) t)) (.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (-.f64 (/.f64 (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t)) (.f64 l l)) (.f64 #s(literal -1/6 binary64) (/.f64 t (.f64 l l)))) (.f64 k k)) (/.f64 t (.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (/.f64 (.f64 #s(literal 173/5040 binary64) (.f64 (.f64 k k) t)) (.f64 l l)) (.f64 #s(literal -31/360 binary64) (/.f64 t (.f64 l l)))) (.f64 k k)) (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64))) (.f64 k k)) (/.f64 t (.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (.f64 (pow.f64 k #s(literal 4 binary64)) (/.f64 t (.f64 l l))))
#s(approx (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (.f64 (+.f64 (.f64 (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64)) (.f64 k k)) (/.f64 t (.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (.f64 (/.f64 t (.f64 l l)) #s(literal 2/45 binary64)) (-.f64 (.f64 (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64)) #s(literal -1/2 binary64)) (.f64 #s(literal -1/24 binary64) (/.f64 t (.f64 l l))))) (.f64 k k)) (.f64 (/.f64 t (.f64 l l)) #s(literal -1/3 binary64))) (.f64 (/.f64 t (.f64 l l)) #s(literal -1/2 binary64))) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (/ (* k (* k t)) (cos k)) (/ (* (sin k) (sin k)) (* l l))) (.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (.f64 (/.f64 t (.f64 l l)) #s(literal -1/315 binary64)) (+.f64 (-.f64 (.f64 (/.f64 t (.f64 l l)) #s(literal -1/720 binary64)) (.f64 #s(literal -1/24 binary64) (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64)))) (.f64 (-.f64 (.f64 (/.f64 t (.f64 l l)) #s(literal 2/45 binary64)) (-.f64 (.f64 (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64)) #s(literal -1/2 binary64)) (.f64 #s(literal -1/24 binary64) (/.f64 t (.f64 l l))))) #s(literal -1/2 binary64)))) (.f64 k k)) (.f64 (/.f64 t (.f64 l l)) #s(literal 2/45 binary64))) (-.f64 (.f64 (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64)) #s(literal -1/2 binary64)) (.f64 #s(literal -1/24 binary64) (/.f64 t (.f64 l l))))) (.f64 k k)) (.f64 (/.f64 t (.f64 l l)) #s(literal -1/3 binary64))) (.f64 (/.f64 t (.f64 l l)) #s(literal -1/2 binary64))) (.f64 k k)) (/.f64 t (.f64 l l))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (/ (* k (* k t)) (cos k)) (.f64 (.f64 k k) t))
#s(approx (/ (* k (* k t)) (cos k)) (.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 k k) t)) t) (*.f64 k k)))
#s(approx (/ (* k (* k t)) (cos k)) (.f64 (+.f64 (.f64 (-.f64 (neg.f64 (.f64 (.f64 t #s(literal -5/24 binary64)) (.f64 k k))) (.f64 #s(literal -1/2 binary64) t)) (.f64 k k)) t) (.f64 k k)))
#s(approx (/ (* k (* k t)) (cos k)) (.f64 (+.f64 (.f64 (-.f64 (.f64 (-.f64 (neg.f64 (.f64 (+.f64 (-.f64 (.f64 #s(literal 1/48 binary64) t) (.f64 #s(literal -1/2 binary64) (.f64 t #s(literal -5/24 binary64)))) (.f64 #s(literal -1/720 binary64) t)) (.f64 k k))) (.f64 t #s(literal -5/24 binary64))) (.f64 k k)) (.f64 #s(literal -1/2 binary64) t)) (.f64 k k)) t) (.f64 k k)))
#s(approx (/ (* (sin k) (sin k)) (* l l)) (ratio-of-squares.f64 k l))
#s(approx (/ (* (sin k) (sin k)) (* l l)) (.f64 (+.f64 (pow.f64 l #s(literal -2 binary64)) (.f64 (ratio-of-squares.f64 k l) #s(literal -1/3 binary64))) (*.f64 k k)))
#s(approx (/ (* (sin k) (sin k)) (* l l)) (.f64 (+.f64 (.f64 (/.f64 (-.f64 (.f64 #s(literal 2/45 binary64) (.f64 k k)) #s(literal 1/3 binary64)) (.f64 l l)) (.f64 k k)) (pow.f64 l #s(literal -2 binary64))) (*.f64 k k)))
#s(approx (/ (* (sin k) (sin k)) (* l l)) (.f64 (+.f64 (.f64 (-.f64 (.f64 (-.f64 (.f64 (ratio-of-squares.f64 k l) #s(literal -1/315 binary64)) (.f64 #s(literal -2/45 binary64) (pow.f64 l #s(literal -2 binary64)))) (.f64 k k)) (.f64 (pow.f64 l #s(literal -2 binary64)) #s(literal 1/3 binary64))) (.f64 k k)) (pow.f64 l #s(literal -2 binary64))) (*.f64 k k)))
#s(approx (cos k) (cos.f64 k))
#s(approx (pow (sin k) 2) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))
#s(approx (sin k) (sin.f64 k))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))
#s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (+.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (/.f64 (ratio-of-squares.f64 l k) t)) (*.f64 k k)))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) (*.f64 (pow.f64 k #s(literal 5 binary64)) #s(literal 1/120 binary64)))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) (.f64 (-.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 k #s(literal -2 binary64)) #s(literal 1/6 binary64))) (pow.f64 k #s(literal 5 binary64))))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) (.f64 (-.f64 (+.f64 (pow.f64 k #s(literal -4 binary64)) #s(literal 1/120 binary64)) (.f64 (pow.f64 k #s(literal -2 binary64)) #s(literal 1/6 binary64))) (pow.f64 k #s(literal 5 binary64))))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) (*.f64 #s(literal 1/120 binary64) (pow.f64 k #s(literal 4 binary64))))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) (.f64 (-.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 k #s(literal -2 binary64)) #s(literal 1/6 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) (.f64 (-.f64 (+.f64 (pow.f64 k #s(literal -4 binary64)) #s(literal 1/120 binary64)) (.f64 (pow.f64 k #s(literal -2 binary64)) #s(literal 1/6 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (- (* 1/120 (* k k)) 1/6) (* k k)) (*.f64 #s(literal 1/120 binary64) (pow.f64 k #s(literal 4 binary64))))
#s(approx (* (- (* 1/120 (* k k)) 1/6) (* k k)) (.f64 (-.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 k #s(literal -2 binary64)) #s(literal 1/6 binary64))) (pow.f64 k #s(literal 4 binary64))))
#s(approx (- (* 1/120 (* k k)) 1/6) (.f64 (.f64 k k) #s(literal 1/120 binary64)))
#s(approx (- (* 1/120 (* k k)) 1/6) (.f64 (-.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 k #s(literal -2 binary64)) #s(literal 1/6 binary64))) (*.f64 k k)))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) (neg.f64 (.f64 (-.f64 (.f64 (pow.f64 k #s(literal -2 binary64)) #s(literal 1/6 binary64)) #s(literal 1/120 binary64)) (pow.f64 k #s(literal 5 binary64)))))
#s(approx (* (+ (* (- (* 1/120 (* k k)) 1/6) (* k k)) 1) k) (neg.f64 (.f64 (-.f64 (-.f64 (.f64 (pow.f64 k #s(literal -2 binary64)) #s(literal 1/6 binary64)) #s(literal 1/120 binary64)) (pow.f64 k #s(literal -4 binary64))) (pow.f64 k #s(literal 5 binary64)))))

eval4.0s (18.4%)

Memory

-18.8MiB live, 4 977.9MiB allocated; 1.8s collecting garbage

Samples

1.9s	42 575×	0	valid
603.0ms	12 465×	0	invalid

Compiler

Compiled 43 726 to 3 996 computations (90.9% saved)

Precisions

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

ival-mult: 876.0ms (68% of total)

ival-div: 347.0ms (26.9% of total)

ival-true: 29.0ms (2.3% of total)

ival-assert: 22.0ms (1.7% of total)

adjust: 14.0ms (1.1% of total)

prune841.0ms (3.9%)

Memory

-46.5MiB live, 1 101.0MiB allocated; 175ms collecting garbage

Pruning

46 alts after pruning (40 fresh and 6 done)

	Pruned	Kept	Total
New	758	18	776
Fresh	8	22	30
Picked	2	3	5
Done	0	3	3
Total	768	46	814

Accuracy

99.6%

Counts

814 → 46

Alt Table

Click to see full alt table

Status	Accuracy	Program
	47.5%	(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) #s(approx (- (+ 1 (pow (/ k t) 2)) 1) (ratio-of-squares.f64 k t))))
	29.2%	(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 k (.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
	85.2%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (/.f64 (.f64 (/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) l) (.f64 (.f64 k k) t)) (.f64 l (cos.f64 k)))))
	93.8%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (ratio-of-squares.f64 k l) (/.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (cos.f64 k)))))
	70.0%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (*.f64 (/.f64 (pow.f64 k #s(literal 4 binary64)) l) (/.f64 t l))))
	82.5%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (pow.f64 (/.f64 (sin.f64 k) l) #s(literal 2 binary64)))))
✓	86.3%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))))
	77.7%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) #s(approx (cos k) #s(literal 1 binary64))) (ratio-of-squares.f64 (sin.f64 k) l))))
	61.0%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (.f64 l l))) (.f64 (.f64 k k) (.f64 k k)))))
	73.1%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (.f64 k k) (/.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (.f64 (*.f64 l l) (cos.f64 k))))))
	75.6%	(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 #s(approx (/ ( (* k k) t) (cos k)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 (sin.f64 k) l))))
	26.2%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (.f64 t (ratio-of-squares.f64 l (.f64 k k)))) (*.f64 t t)))
	75.4%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t)))
	62.5%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (.f64 (.f64 (.f64 k k) (.f64 k k)) t)))
	66.6%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t))
✓	31.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))
	93.9%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (ratio-of-squares.f64 l k) (.f64 (/.f64 (/.f64 (cos.f64 k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) #s(literal 2 binary64))))
	93.7%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) t) #s(literal 2 binary64)))
✓	94.0%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
	85.3%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 k k)))) t)) #s(literal 2 binary64)))
	77.2%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (/.f64 (.f64 l l) k) (cos.f64 k)) (.f64 k (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
	82.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (.f64 k k) t)) #s(literal 2 binary64)))
	77.5%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(approx ( (/ (* l l) (* k k)) (cos k)) (ratio-of-squares.f64 l k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
	31.0%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 (exp.f64 (log.f64 l)) (.f64 k k))))
✓	31.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
	85.6%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)) #s(literal 2 binary64)))
	85.3%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) k)))) t))) #s(literal 2 binary64)))
	77.3%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
	75.2%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t))) #s(literal 2 binary64)))
✓	82.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
	87.0%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k (.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
	53.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
	52.6%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
	53.0%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
	53.3%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
	52.7%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
	93.9%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (.f64 (/.f64 l k) (/.f64 l k)) (/.f64 (cos.f64 k) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
	33.8%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (.f64 l l) t)) (.f64 (.f64 (.f64 k k) k) k))) #s(literal 2 binary64)))
	62.9%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (+.f64 (/.f64 (ratio-of-squares.f64 l k) t) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
	31.2%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))
	30.3%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 l l)) (.f64 (.f64 k k) t)))) #s(literal 2 binary64)))
	31.2%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 (exp.f64 (log.f64 l)) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
	31.2%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l (exp.f64 (log.f64 k))) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
✓	31.2%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
	30.6%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (/.f64 (/.f64 (.f64 l l) k) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
	31.2%	#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (.f64 (/.f64 l k) (/.f64 l k)) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))

Samples

431.0ms	11 039×	0	valid
83.0ms	1 761×	0	invalid

Compiler

Compiled 6 331 to 2 063 computations (67.4% saved)

Precisions

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

ival-mult: 172.0ms (67.6% of total)

ival-div: 68.0ms (26.7% of total)

ival-true: 7.0ms (2.8% of total)

ival-assert: 5.0ms (2% of total)

adjust: 3.0ms (1.2% of total)

regimes125.0ms (0.6%)

Memory

-36.5MiB live, 169.3MiB allocated; 17ms collecting garbage

Counts

83 → 2

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (/.f64 (ratio-of-squares.f64 l k) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 l l)) (.f64 (.f64 k k) t)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (.f64 (.f64 (.f64 k k) (.f64 k k)) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (.f64 t (ratio-of-squares.f64 l (.f64 k k)))) (*.f64 t t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (.f64 (/.f64 l k) (/.f64 l k)) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (/.f64 (/.f64 (.f64 l l) k) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 (/.f64 l (.f64 k k)) (/.f64 l (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (+.f64 (/.f64 (ratio-of-squares.f64 l k) t) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (.f64 l l) t)) (.f64 (.f64 (.f64 k k) k) k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (.f64 l l))) (.f64 (.f64 k k) (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 #s(approx (/ ( (* k k) t) (cos k)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 (sin.f64 k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (/.f64 #s(literal 1 binary64) (pow.f64 k #s(literal -2 binary64))))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) #s(approx (- (+ 1 (pow (/ k t) 2)) 1) (ratio-of-squares.f64 k t))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 k (.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 l (/.f64 l (pow.f64 k #s(literal 4 binary64))))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (*.f64 (/.f64 (pow.f64 k #s(literal 4 binary64)) l) (/.f64 t l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) #s(approx (cos k) #s(literal 1 binary64))) (ratio-of-squares.f64 (sin.f64 k) l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 #s(approx (sin k) k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (+.f64 t (.f64 #s(literal 1/6 binary64) (.f64 (.f64 k k) t))) (*.f64 l l)) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (+.f64 (pow.f64 t #s(literal -1 binary64)) (.f64 (/.f64 (.f64 k k) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (/.f64 (.f64 (.f64 l l) #s(literal -1/6 binary64)) t) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64))) (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (.f64 (/.f64 (*.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 31/360 binary64) t) (.f64 #s(literal 173/5040 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64))) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l (exp.f64 (log.f64 k))) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 (exp.f64 (log.f64 l)) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 (exp.f64 (log.f64 l)) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 #s(approx (/ (cos k) (* (* k k) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(approx ( (/ (* l l) (* k k)) (cos k)) (ratio-of-squares.f64 l k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) (.f64 (.f64 #s(approx (* (/ (pow t 3) (* l l)) (sin k)) (*.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (tan.f64 k)) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k (.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (.f64 k k) t)) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 k k)))) t)) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) k)))) t))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) #s(approx (tan k) k)) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (exp.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (*.f64 (log.f64 k) #s(literal 4 binary64))))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) t) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (ratio-of-squares.f64 l k) (.f64 (/.f64 (/.f64 (cos.f64 k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64))) #s(literal 2 binary64))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (ratio-of-squares.f64 k l) (/.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (cos.f64 k)))))
(/.f64 #s(literal 2 binary64) (.f64 (-.f64 (+.f64 (ratio-of-squares.f64 k t) #s(literal 1 binary64)) #s(literal 1 binary64)) (.f64 (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (*.f64 (sin.f64 k) (tan.f64 k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 k) (.f64 l l))) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 l l) (cos.f64 k))) (.f64 (.f64 (.f64 k k) t) (pow.f64 (sin.f64 k) #s(literal 2 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (neg.f64 (.f64 l l)) (cos.f64 k)) (.f64 (neg.f64 (.f64 k k)) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (/.f64 (.f64 l l) k) (cos.f64 k)) (.f64 k (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (/.f64 (.f64 (cos.f64 k) (.f64 l l)) (.f64 k k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (/.f64 (.f64 (.f64 l l) (cos.f64 k)) (.f64 k k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (.f64 k k) (/.f64 (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t) (.f64 (*.f64 l l) (cos.f64 k))))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (pow.f64 (/.f64 (sin.f64 k) l) #s(literal 2 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (.f64 (/.f64 l k) (/.f64 l k)) (/.f64 (cos.f64 k) (.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (/.f64 (.f64 (/.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) l) (.f64 (.f64 k k) t)) (.f64 l (cos.f64 k)))))
(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (.f64 (/.f64 (*.f64 t t) l) (/.f64 t l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))
(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))
(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3/2 binary64)) l) (/.f64 (pow.f64 t #s(literal 3/2 binary64)) l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))
(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (exp.f64 (-.f64 (.f64 (log.f64 t) #s(literal 3 binary64)) (*.f64 (log.f64 l) #s(literal 2 binary64)))) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))

Outputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (*.f64 (/.f64 (cos.f64 k) (*.f64 k (*.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (/.f64 (*.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))

Calls

6 calls:

25.0ms	k
21.0ms	l
21.0ms	(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))
20.0ms	t
18.0ms	(*.f64 l l)

Results

Accuracy	Segments	Branch
96.6%	2	`(*.f64 l l)`
94.0%	1	`(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))`
94.0%	1	`(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))`
94.0%	1	`t`
96.6%	2	`l`
95.8%	2	`k`

Compiler

Compiled 54 to 50 computations (7.4% saved)

regimes33.0ms (0.2%)

Memory

3.5MiB live, 50.3MiB allocated; 1ms collecting garbage

Counts

63 → 2

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (/.f64 (ratio-of-squares.f64 l k) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 l l)) (.f64 (.f64 k k) t)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (.f64 (.f64 (.f64 k k) (.f64 k k)) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (.f64 t (ratio-of-squares.f64 l (.f64 k k)))) (*.f64 t t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (.f64 (/.f64 l k) (/.f64 l k)) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (/.f64 (/.f64 (.f64 l l) k) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 (/.f64 l (.f64 k k)) (/.f64 l (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (+.f64 (/.f64 (ratio-of-squares.f64 l k) t) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (.f64 l l) t)) (.f64 (.f64 (.f64 k k) k) k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (.f64 l l))) (.f64 (.f64 k k) (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 #s(approx (/ ( (* k k) t) (cos k)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 (sin.f64 k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (/.f64 #s(literal 1 binary64) (pow.f64 k #s(literal -2 binary64))))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) #s(approx (- (+ 1 (pow (/ k t) 2)) 1) (ratio-of-squares.f64 k t))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 k (.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 l (/.f64 l (pow.f64 k #s(literal 4 binary64))))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (*.f64 (/.f64 (pow.f64 k #s(literal 4 binary64)) l) (/.f64 t l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) #s(approx (cos k) #s(literal 1 binary64))) (ratio-of-squares.f64 (sin.f64 k) l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 #s(approx (sin k) k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (+.f64 t (.f64 #s(literal 1/6 binary64) (.f64 (.f64 k k) t))) (*.f64 l l)) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (+.f64 (pow.f64 t #s(literal -1 binary64)) (.f64 (/.f64 (.f64 k k) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (/.f64 (.f64 (.f64 l l) #s(literal -1/6 binary64)) t) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64))) (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (.f64 (/.f64 (*.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 31/360 binary64) t) (.f64 #s(literal 173/5040 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64))) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l (exp.f64 (log.f64 k))) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 (exp.f64 (log.f64 l)) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 (exp.f64 (log.f64 l)) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 #s(approx (/ (cos k) (* (* k k) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(approx ( (/ (* l l) (* k k)) (cos k)) (ratio-of-squares.f64 l k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) (.f64 (.f64 #s(approx (* (/ (pow t 3) (* l l)) (sin k)) (*.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (tan.f64 k)) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k (.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (.f64 k k) t)) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 k k)))) t)) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) k)))) t))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) #s(approx (tan k) k)) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (exp.f64 (-.f64 (.f64 (log.f64 l) #s(literal 2 binary64)) (*.f64 (log.f64 k) #s(literal 4 binary64))))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))

Outputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (*.f64 (/.f64 (cos.f64 k) (*.f64 k (*.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (*.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) k)))) t))) #s(literal 2 binary64)))

Calls

2 calls:

15.0ms	l
14.0ms	(*.f64 l l)

Results

Accuracy	Segments	Branch
96.6%	2	`(*.f64 l l)`
96.6%	2	`l`

Compiler

Compiled 4 to 7 computations (-75% saved)

regimes32.0ms (0.1%)

Memory

2.2MiB live, 48.7MiB allocated; 2ms collecting garbage

Counts

58 → 2

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (/.f64 (ratio-of-squares.f64 l k) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 l l)) (.f64 (.f64 k k) t)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (.f64 (.f64 (.f64 k k) (.f64 k k)) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (.f64 t (ratio-of-squares.f64 l (.f64 k k)))) (*.f64 t t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (.f64 (/.f64 l k) (/.f64 l k)) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (/.f64 (/.f64 (.f64 l l) k) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 (/.f64 l (.f64 k k)) (/.f64 l (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (+.f64 (/.f64 (ratio-of-squares.f64 l k) t) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (.f64 l l) t)) (.f64 (.f64 (.f64 k k) k) k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (.f64 l l))) (.f64 (.f64 k k) (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 #s(approx (/ ( (* k k) t) (cos k)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 (sin.f64 k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (/.f64 #s(literal 1 binary64) (pow.f64 k #s(literal -2 binary64))))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) #s(approx (- (+ 1 (pow (/ k t) 2)) 1) (ratio-of-squares.f64 k t))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 k (.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 l (/.f64 l (pow.f64 k #s(literal 4 binary64))))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (*.f64 (/.f64 (pow.f64 k #s(literal 4 binary64)) l) (/.f64 t l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) #s(approx (cos k) #s(literal 1 binary64))) (ratio-of-squares.f64 (sin.f64 k) l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 #s(approx (sin k) k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (+.f64 t (.f64 #s(literal 1/6 binary64) (.f64 (.f64 k k) t))) (*.f64 l l)) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (+.f64 (pow.f64 t #s(literal -1 binary64)) (.f64 (/.f64 (.f64 k k) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (/.f64 (.f64 (.f64 l l) #s(literal -1/6 binary64)) t) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64))) (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (.f64 (/.f64 (*.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 31/360 binary64) t) (.f64 #s(literal 173/5040 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64))) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l (exp.f64 (log.f64 k))) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 (exp.f64 (log.f64 l)) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 (exp.f64 (log.f64 l)) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 #s(approx (/ (cos k) (* (* k k) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(approx ( (/ (* l l) (* k k)) (cos k)) (ratio-of-squares.f64 l k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) (.f64 (.f64 #s(approx (* (/ (pow t 3) (* l l)) (sin k)) (*.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (tan.f64 k)) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k (.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (.f64 k k) t)) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 k k)))) t)) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 (sin.f64 k) l))))

Outputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (*.f64 (/.f64 (cos.f64 k) (*.f64 k (*.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (/.f64 (*.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 k k)))) t)) #s(literal 2 binary64)))

Calls

2 calls:

14.0ms	l
14.0ms	(*.f64 l l)

Results

Accuracy	Segments	Branch
96.6%	2	`(*.f64 l l)`
96.6%	2	`l`

Compiler

Compiled 4 to 7 computations (-75% saved)

regimes51.0ms (0.2%)

Memory

-13.3MiB live, 81.1MiB allocated; 9ms collecting garbage

Counts

55 → 2

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (/.f64 (ratio-of-squares.f64 l k) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 l l)) (.f64 (.f64 k k) t)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (.f64 (.f64 (.f64 k k) (.f64 k k)) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (.f64 t (ratio-of-squares.f64 l (.f64 k k)))) (*.f64 t t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (.f64 (/.f64 l k) (/.f64 l k)) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (/.f64 (/.f64 (.f64 l l) k) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 (/.f64 l (.f64 k k)) (/.f64 l (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (+.f64 (/.f64 (ratio-of-squares.f64 l k) t) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (.f64 l l) t)) (.f64 (.f64 (.f64 k k) k) k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (.f64 l l))) (.f64 (.f64 k k) (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 #s(approx (/ ( (* k k) t) (cos k)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 (sin.f64 k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (/.f64 #s(literal 1 binary64) (pow.f64 k #s(literal -2 binary64))))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) #s(approx (- (+ 1 (pow (/ k t) 2)) 1) (ratio-of-squares.f64 k t))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 k (.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 l (/.f64 l (pow.f64 k #s(literal 4 binary64))))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (*.f64 (/.f64 (pow.f64 k #s(literal 4 binary64)) l) (/.f64 t l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) #s(approx (cos k) #s(literal 1 binary64))) (ratio-of-squares.f64 (sin.f64 k) l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 #s(approx (sin k) k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (+.f64 t (.f64 #s(literal 1/6 binary64) (.f64 (.f64 k k) t))) (*.f64 l l)) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (+.f64 (pow.f64 t #s(literal -1 binary64)) (.f64 (/.f64 (.f64 k k) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (/.f64 (.f64 (.f64 l l) #s(literal -1/6 binary64)) t) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64))) (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (.f64 (/.f64 (*.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 31/360 binary64) t) (.f64 #s(literal 173/5040 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64))) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l (exp.f64 (log.f64 k))) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 (exp.f64 (log.f64 l)) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 (exp.f64 (log.f64 l)) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 #s(approx (/ (cos k) (* (* k k) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(approx ( (/ (* l l) (* k k)) (cos k)) (ratio-of-squares.f64 l k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) (.f64 (.f64 #s(approx (* (/ (pow t 3) (* l l)) (sin k)) (*.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (tan.f64 k)) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k (.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (.f64 k k) t)) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)) #s(literal 2 binary64)))

Outputs

(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (*.f64 (/.f64 (*.f64 k (*.f64 k t)) #s(approx (cos k) #s(literal 1 binary64))) (ratio-of-squares.f64 (sin.f64 k) l))))

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (*.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)) #s(literal 2 binary64)))

Calls

3 calls:

18.0ms	l
14.0ms	k
12.0ms	(*.f64 l l)

Results

Accuracy	Segments	Branch
95.8%	2	`k`
87.0%	1	`(*.f64 l l)`
90.7%	3	`l`

Compiler

Compiled 5 to 10 computations (-100% saved)

regimes88.0ms (0.4%)

Memory

-0.2MiB live, 146.2MiB allocated; 16ms collecting garbage

Counts

54 → 1

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (/.f64 (ratio-of-squares.f64 l k) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 l l)) (.f64 (.f64 k k) t)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (.f64 (.f64 (.f64 k k) (.f64 k k)) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (.f64 t (ratio-of-squares.f64 l (.f64 k k)))) (*.f64 t t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (.f64 (/.f64 l k) (/.f64 l k)) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (/.f64 (/.f64 (.f64 l l) k) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 (/.f64 l (.f64 k k)) (/.f64 l (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (+.f64 (/.f64 (ratio-of-squares.f64 l k) t) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (.f64 l l) t)) (.f64 (.f64 (.f64 k k) k) k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (.f64 l l))) (.f64 (.f64 k k) (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 #s(approx (/ ( (* k k) t) (cos k)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 (sin.f64 k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (/.f64 #s(literal 1 binary64) (pow.f64 k #s(literal -2 binary64))))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) #s(approx (- (+ 1 (pow (/ k t) 2)) 1) (ratio-of-squares.f64 k t))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 k (.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 l (/.f64 l (pow.f64 k #s(literal 4 binary64))))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (*.f64 (/.f64 (pow.f64 k #s(literal 4 binary64)) l) (/.f64 t l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) #s(approx (cos k) #s(literal 1 binary64))) (ratio-of-squares.f64 (sin.f64 k) l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 #s(approx (sin k) k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (+.f64 t (.f64 #s(literal 1/6 binary64) (.f64 (.f64 k k) t))) (*.f64 l l)) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (+.f64 (pow.f64 t #s(literal -1 binary64)) (.f64 (/.f64 (.f64 k k) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (/.f64 (.f64 (.f64 l l) #s(literal -1/6 binary64)) t) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64))) (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (.f64 (/.f64 (*.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 31/360 binary64) t) (.f64 #s(literal 173/5040 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64))) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l (exp.f64 (log.f64 k))) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 (exp.f64 (log.f64 l)) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 (exp.f64 (log.f64 l)) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 #s(approx (/ (cos k) (* (* k k) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(approx ( (/ (* l l) (* k k)) (cos k)) (ratio-of-squares.f64 l k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) (.f64 (.f64 #s(approx (* (/ (pow t 3) (* l l)) (sin k)) (*.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (tan.f64 k)) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k (.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (cos.f64 k) (ratio-of-squares.f64 l (sin.f64 k))) (.f64 (.f64 k k) t)) #s(literal 2 binary64)))

Outputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (*.f64 (/.f64 (cos.f64 k) (*.f64 k (*.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))

Calls

6 calls:

17.0ms	l
17.0ms	t
16.0ms	(*.f64 l l)
13.0ms	k
10.0ms	(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))

Results

Accuracy	Segments	Branch
87.0%	1	`(*.f64 l l)`
87.0%	1	`l`
87.0%	1	`(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))`
87.0%	1	`(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))`
87.0%	1	`t`
87.0%	1	`k`

Compiler

Compiled 54 to 50 computations (7.4% saved)

regimes75.0ms (0.3%)

Memory

36.5MiB live, 131.2MiB allocated; 4ms collecting garbage

Counts

51 → 2

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (/.f64 (ratio-of-squares.f64 l k) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 l l)) (.f64 (.f64 k k) t)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (.f64 (.f64 (.f64 k k) (.f64 k k)) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (.f64 t (ratio-of-squares.f64 l (.f64 k k)))) (*.f64 t t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (.f64 (/.f64 l k) (/.f64 l k)) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (/.f64 (/.f64 (.f64 l l) k) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 (/.f64 l (.f64 k k)) (/.f64 l (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (+.f64 (/.f64 (ratio-of-squares.f64 l k) t) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (.f64 l l) t)) (.f64 (.f64 (.f64 k k) k) k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (.f64 l l))) (.f64 (.f64 k k) (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 #s(approx (/ ( (* k k) t) (cos k)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 (sin.f64 k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (/.f64 #s(literal 1 binary64) (pow.f64 k #s(literal -2 binary64))))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) #s(approx (- (+ 1 (pow (/ k t) 2)) 1) (ratio-of-squares.f64 k t))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 k (.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 l (/.f64 l (pow.f64 k #s(literal 4 binary64))))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (*.f64 (/.f64 (pow.f64 k #s(literal 4 binary64)) l) (/.f64 t l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) #s(approx (cos k) #s(literal 1 binary64))) (ratio-of-squares.f64 (sin.f64 k) l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 #s(approx (sin k) k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (+.f64 t (.f64 #s(literal 1/6 binary64) (.f64 (.f64 k k) t))) (*.f64 l l)) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (+.f64 (pow.f64 t #s(literal -1 binary64)) (.f64 (/.f64 (.f64 k k) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (/.f64 (.f64 (.f64 l l) #s(literal -1/6 binary64)) t) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64))) (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (.f64 (/.f64 (*.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 31/360 binary64) t) (.f64 #s(literal 173/5040 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64))) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l (exp.f64 (log.f64 k))) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 (exp.f64 (log.f64 l)) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 (exp.f64 (log.f64 l)) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 #s(approx (/ (cos k) (* (* k k) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(approx ( (/ (* l l) (* k k)) (cos k)) (ratio-of-squares.f64 l k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) (.f64 (.f64 #s(approx (* (/ (pow t 3) (* l l)) (sin k)) (*.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (tan.f64 k)) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))

Outputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t))

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (*.f64 (ratio-of-squares.f64 l k) (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64)))

Calls

6 calls:

15.0ms	l
13.0ms	t
13.0ms	k
11.0ms	(*.f64 l l)
10.0ms	(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))

Results

Accuracy	Segments	Branch
79.9%	2	`(*.f64 l l)`
77.7%	1	`(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))`
77.7%	1	`(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))`
77.7%	1	`t`
79.9%	2	`l`
77.7%	1	`k`

Compiler

Compiled 54 to 50 computations (7.4% saved)

regimes27.0ms (0.1%)

Memory

-1.3MiB live, 45.7MiB allocated; 1ms collecting garbage

Counts

49 → 2

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (/.f64 (ratio-of-squares.f64 l k) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 l l)) (.f64 (.f64 k k) t)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (.f64 (.f64 (.f64 k k) (.f64 k k)) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (.f64 t (ratio-of-squares.f64 l (.f64 k k)))) (*.f64 t t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (.f64 (/.f64 l k) (/.f64 l k)) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (/.f64 (/.f64 (.f64 l l) k) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 (/.f64 l (.f64 k k)) (/.f64 l (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (+.f64 (/.f64 (ratio-of-squares.f64 l k) t) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (.f64 l l) t)) (.f64 (.f64 (.f64 k k) k) k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (.f64 l l))) (.f64 (.f64 k k) (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 #s(approx (/ ( (* k k) t) (cos k)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 (sin.f64 k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (/.f64 #s(literal 1 binary64) (pow.f64 k #s(literal -2 binary64))))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) #s(approx (- (+ 1 (pow (/ k t) 2)) 1) (ratio-of-squares.f64 k t))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 k (.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 l (/.f64 l (pow.f64 k #s(literal 4 binary64))))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (*.f64 (/.f64 (pow.f64 k #s(literal 4 binary64)) l) (/.f64 t l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (*.f64 k t)) #s(approx (cos k) #s(literal 1 binary64))) (ratio-of-squares.f64 (sin.f64 k) l))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 (*.f64 k k) t) (cos.f64 k)) (ratio-of-squares.f64 #s(approx (sin k) k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (+.f64 t (.f64 #s(literal 1/6 binary64) (.f64 (.f64 k k) t))) (*.f64 l l)) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (+.f64 (pow.f64 t #s(literal -1 binary64)) (.f64 (/.f64 (.f64 k k) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (/.f64 (.f64 (.f64 l l) #s(literal -1/6 binary64)) t) (.f64 k k)) (/.f64 (*.f64 l l) t)) (pow.f64 k #s(literal 4 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 k k)) (.f64 (/.f64 (.f64 l l) t) #s(literal 7/120 binary64))) (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 l l) t))) (.f64 k k)) (.f64 (/.f64 (*.f64 l l) t) #s(literal 2 binary64))) (pow.f64 k #s(literal 4 binary64))))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 31/360 binary64) t) (.f64 #s(literal 173/5040 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (.f64 (/.f64 t (.f64 l l)) #s(literal 1/6 binary64))) (.f64 k k)) (/.f64 t (*.f64 l l))) (pow.f64 k #s(literal 4 binary64)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l (exp.f64 (log.f64 k))) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 (exp.f64 (log.f64 l)) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 (exp.f64 (log.f64 l)) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 #s(approx (/ (cos k) (* (* k k) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t)) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(approx ( (/ (* l l) (* k k)) (cos k)) (ratio-of-squares.f64 l k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64)))

Outputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t))

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (*.f64 (/.f64 (cos.f64 k) (*.f64 (*.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) k))) #s(literal 2 binary64)))

Calls

2 calls:

12.0ms	l
12.0ms	(*.f64 l l)

Results

Accuracy	Segments	Branch
79.9%	2	`l`
79.9%	2	`(*.f64 l l)`

Compiler

Compiled 4 to 7 computations (-75% saved)

regimes43.0ms (0.2%)

Memory

-24.1MiB live, 74.8MiB allocated; 3ms collecting garbage

Counts

28 → 2

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (/.f64 (ratio-of-squares.f64 l k) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 l l)) (.f64 (.f64 k k) t)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (.f64 (.f64 (.f64 k k) (.f64 k k)) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (.f64 t (ratio-of-squares.f64 l (.f64 k k)))) (*.f64 t t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (.f64 (/.f64 l k) (/.f64 l k)) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (/.f64 (/.f64 (.f64 l l) k) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 (/.f64 l (.f64 k k)) (/.f64 l (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (+.f64 (/.f64 (ratio-of-squares.f64 l k) t) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (.f64 l l) t)) (.f64 (.f64 (.f64 k k) k) k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (.f64 l l))) (.f64 (.f64 k k) (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 #s(approx (/ ( (* k k) t) (cos k)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 (sin.f64 k) l))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (/.f64 #s(literal 1 binary64) (pow.f64 k #s(literal -2 binary64))))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) #s(approx (- (+ 1 (pow (/ k t) 2)) 1) (ratio-of-squares.f64 k t))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 k (.f64 k (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l)))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 #s(literal 2 binary64) (.f64 #s(approx ( (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (.f64 (.f64 k k) (ratio-of-squares.f64 (pow.f64 t #s(literal 3/2 binary64)) l))) (-.f64 #s(approx (+ 1 (pow (/ k t) 2)) #s(literal 1 binary64)) #s(literal 1 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 l (/.f64 l (pow.f64 k #s(literal 4 binary64))))))

Outputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t))

(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (*.f64 #s(approx (/ (* (* k k) t) (cos k)) (*.f64 (*.f64 k k) t)) (ratio-of-squares.f64 (sin.f64 k) l))))

Calls

6 calls:

8.0ms	(*.f64 l l)
7.0ms	l
7.0ms	t
7.0ms	k
6.0ms	(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))

Results

Accuracy	Segments	Branch
75.6%	1	`t`
75.6%	1	`(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))`
75.6%	1	`(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))`
77.9%	2	`k`
78.0%	2	`l`
78.0%	2	`(*.f64 l l)`

Compiler

Compiled 54 to 50 computations (7.4% saved)

regimes19.0ms (0.1%)

Memory

-13.5MiB live, 34.0MiB allocated; 1ms collecting garbage

Counts

22 → 2

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (/.f64 (ratio-of-squares.f64 l k) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 l l)) (.f64 (.f64 k k) t)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (.f64 (.f64 (.f64 k k) (.f64 k k)) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (.f64 t (ratio-of-squares.f64 l (.f64 k k)))) (*.f64 t t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (.f64 (/.f64 l k) (/.f64 l k)) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (/.f64 (/.f64 (.f64 l l) k) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 (/.f64 l (.f64 k k)) (/.f64 l (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (+.f64 (/.f64 (ratio-of-squares.f64 l k) t) (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64))) (*.f64 k k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) (/.f64 (+.f64 (.f64 (.f64 (/.f64 (.f64 l l) t) #s(literal -1/6 binary64)) (.f64 k k)) (/.f64 (.f64 l l) t)) (.f64 (.f64 (.f64 k k) k) k))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (+.f64 (.f64 (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) t) (.f64 #s(literal 31/360 binary64) (.f64 (.f64 k k) t))) (.f64 l l)) (.f64 k k)) (/.f64 t (.f64 l l))) (.f64 (.f64 k k) (.f64 k k)))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 #s(approx (cos k) (+.f64 (.f64 (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 k k)) #s(literal 1/24 binary64)) (.f64 k k)) #s(literal 1/2 binary64)) (.f64 k k)) #s(literal 1 binary64))) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) (.f64 (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 k k)) #s(literal 1/6 binary64)) (*.f64 k k)) #s(literal 1 binary64)) k)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) #s(approx (/ (cos k) (* (pow (sin k) 2) t)) (/.f64 (pow.f64 k #s(literal -2 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (*.f64 (pow.f64 k #s(literal 4 binary64)) t)))

Outputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (/.f64 #s(literal 2 binary64) t) (*.f64 (/.f64 l (*.f64 k k)) (/.f64 l (*.f64 k k)))))

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 #s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))

Calls

3 calls:

6.0ms	k
6.0ms	l
5.0ms	(*.f64 l l)

Results

Accuracy	Segments	Branch
77.9%	2	`k`
77.8%	2	`(*.f64 l l)`
77.8%	2	`l`

Compiler

Compiled 5 to 10 computations (-100% saved)

regimes12.0ms (0.1%)

Memory

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

Counts

12 → 2

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (/.f64 (ratio-of-squares.f64 l k) (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 l l)) (.f64 (.f64 k k) t)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (.f64 l l) #s(literal 2 binary64)) (.f64 (.f64 (.f64 k k) (.f64 k k)) t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 l (.f64 k k)) t) (.f64 t (ratio-of-squares.f64 l (.f64 k k)))) (*.f64 t t)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (.f64 (/.f64 l k) (/.f64 l k)) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (.f64 (/.f64 (/.f64 (/.f64 (.f64 l l) k) k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))

Outputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t))

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (*.f64 (*.f64 k k) t)))

Calls

3 calls:

4.0ms	l
4.0ms	k
3.0ms	(*.f64 l l)

Results

Accuracy	Segments	Branch
77.8%	2	`(*.f64 l l)`
77.8%	2	`l`
77.4%	2	`k`

Compiler

Compiled 5 to 10 computations (-100% saved)

regimes7.0ms (0%)

Memory

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

Counts

5 → 2

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t)))

Outputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (*.f64 (*.f64 k k) t)))

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 #s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))

Calls

3 calls:

2.0ms	k
2.0ms	l
2.0ms	(*.f64 l l)

Results

Accuracy	Segments	Branch
77.4%	2	`k`
75.4%	1	`(*.f64 l l)`
75.4%	1	`l`

Compiler

Compiled 5 to 10 computations (-100% saved)

regimes12.0ms (0.1%)

Memory

-26.6MiB live, 20.9MiB allocated; 1ms collecting garbage

Counts

4 → 2

Calls

Call 1

Inputs
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t))

Outputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (*.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (*.f64 k k))) t))

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 #s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))

Calls

6 calls:

3.0ms	t
2.0ms	k
2.0ms	l
2.0ms	(*.f64 l l)
2.0ms	(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))

Results

Accuracy	Segments	Branch
35.1%	2	`(*.f64 l l)`
35.1%	2	`l`
36.2%	2	`t`
37.8%	2	`(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))`
41.6%	2	`(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))`
49.7%	2	`k`

Compiler

Compiled 54 to 50 computations (7.4% saved)

regimes2.0ms (0%)

Memory

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

Counts

3 → 2

Calls

Call 1

Inputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 #s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 #s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (*.f64 k k))))

Outputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (*.f64 k k))))

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 #s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))

Calls

1 calls:

2.0ms

Results

Accuracy	Segments	Branch
49.7%	2	`k`

Compiler

Compiled 1 to 3 computations (-200% saved)

regimes8.0ms (0%)

Memory

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

Counts

2 → 1

Calls

Call 1

Inputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 #s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 #s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))

Outputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 #s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))

Calls

6 calls:

1.0ms	(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))
1.0ms	l
1.0ms	t
1.0ms	k
1.0ms	(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))

Results

Accuracy	Segments	Branch
31.2%	1	`(*.f64 l l)`
31.2%	1	`l`
31.2%	1	`t`
31.2%	1	`(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))`
31.2%	1	`(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))`
31.2%	1	`k`

Compiler

Compiled 54 to 50 computations (7.4% saved)

regimes6.0ms (0%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 #s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))

Outputs

#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (*.f64 #s(approx (* (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))

Calls

6 calls:

1.0ms	t
1.0ms	k
1.0ms	l
1.0ms	(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))
1.0ms	(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))

Results

Accuracy	Segments	Branch
31.2%	1	`(*.f64 l l)`
31.2%	1	`l`
31.2%	1	`t`
31.2%	1	`(.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64)))`
31.2%	1	`(/.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (pow.f64 t #s(literal 3 binary64)) (.f64 l l)) (sin.f64 k)) (tan.f64 k)) (-.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 k t) #s(literal 2 binary64))) #s(literal 1 binary64))))`
31.2%	1	`k`

Compiler

Compiled 54 to 50 computations (7.4% saved)

bsearch28.0ms (0.1%)

Memory

-7.5MiB live, 44.4MiB allocated; 2ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
24.0ms	1.6661153928666247e+60	2.548217738292299e+60

Samples

12.0ms	164×	0	valid
4.0ms	10×	3	valid
3.0ms	11×	2	valid
1.0ms	7×	1	valid

Compiler

Compiled 356 to 265 computations (25.6% saved)

Precisions

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

adjust: 3.0ms (18.9% of total)

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

ival-sin: 3.0ms (18.9% of total)

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

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

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

ival-tan: 1.0ms (6.3% of total)

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

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

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

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

exact: 0.0ms (0% of total)

bsearch43.0ms (0.2%)

Memory

-35.7MiB live, 57.9MiB allocated; 11ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
30.0ms	2.96316834975263e+75	7.180746490807792e+75

Samples

13.0ms	206×	0	valid
7.0ms	15×	2	valid
3.0ms	9×	3	valid
2.0ms	10×	1	valid

Compiler

Compiled 458 to 340 computations (25.8% saved)

Precisions

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

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

adjust: 3.0ms (17% of total)

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

ival-sin: 2.0ms (11.3% of total)

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

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

ival-tan: 1.0ms (5.7% of total)

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

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

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

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

exact: 0.0ms (0% of total)

bsearch10.0ms (0%)

Memory

15.1MiB live, 15.2MiB allocated; 0ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
8.0ms	2.96316834975263e+75	7.180746490807792e+75

Samples

6.0ms

160×

valid

Compiler

Compiled 458 to 340 computations (25.8% saved)

Precisions

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

ival-mult: 2.0ms (66.7% of total)

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

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

adjust: 0.0ms (0% of total)

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

bsearch78.0ms (0.4%)

Memory

-8.7MiB live, 87.7MiB allocated; 6ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
68.0ms	1.3028113524151223e-47	1.2394317167796396e-37

Samples

35.0ms	385×	0	valid
14.0ms	48×	2	valid
7.0ms	19×	3	valid
3.0ms	15×	1	valid
1.0ms	13×	0	invalid

Compiler

Compiled 828 to 625 computations (24.5% saved)

Precisions

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

adjust: 8.0ms (24.3% of total)

ival-mult: 8.0ms (24.3% of total)

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

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

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

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

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

ival-tan: 1.0ms (3% of total)

ival-sin: 1.0ms (3% of total)

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

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

exact: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	5.020958270038488e-274	2.2792129556523818e-263

Compiler

Compiled 28 to 25 computations (10.7% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	5.020958270038488e-274	2.2792129556523818e-263

Compiler

Compiled 28 to 25 computations (10.7% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	1.65457823946e-313	1.978628013289e-311

Compiler

Compiled 28 to 25 computations (10.7% saved)

bsearch26.0ms (0.1%)

Memory

-4.9MiB live, 42.0MiB allocated; 2ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
23.0ms	1257.481754124736	2152.7453884346223

Samples

10.0ms	99×	0	valid
6.0ms	18×	2	valid
3.0ms	6×	3	valid
1.0ms	5×	1	valid

Compiler

Compiled 496 to 309 computations (37.7% saved)

Precisions

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

adjust: 3.0ms (20.6% of total)

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

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

ival-tan: 2.0ms (13.7% of total)

ival-sin: 2.0ms (13.7% of total)

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

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

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

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

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

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

exact: 0.0ms (0% of total)

bsearch7.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	predicate-same

Steps

Time	Left	Right
6.0ms	2.240749488461057e-137	4.774110341888195e-132

Samples

2.0ms	40×	0	valid
2.0ms	5×	2	valid
1.0ms	3×	3	valid

Compiler

Compiled 100 to 78 computations (22% saved)

Precisions

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

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

adjust: 1.0ms (26.4% of total)

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

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

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

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

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

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

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

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

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

exact: 0.0ms (0% of total)

bsearch8.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
6.0ms	1257.481754124736	2152.7453884346223

Samples

5.0ms

128×

valid

Compiler

Compiled 480 to 309 computations (35.6% saved)

Precisions

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

ival-mult: 2.0ms (83.6% of total)

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

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

adjust: 0.0ms (0% of total)

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

bsearch8.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
6.0ms	1257.481754124736	2152.7453884346223

Samples

5.0ms

128×

valid

Compiler

Compiled 472 to 305 computations (35.4% saved)

Precisions

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

ival-mult: 2.0ms (83.8% of total)

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

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

adjust: 0.0ms (0% of total)

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

bsearch24.0ms (0.1%)

Memory

-37.4MiB live, 9.4MiB allocated; 3ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
23.0ms	1257.481754124736	2152.7453884346223

Samples

21.0ms

128×

valid

Compiler

Compiled 472 to 305 computations (35.4% saved)

Precisions

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

ival-mult: 2.0ms (84.7% of total)

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

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

adjust: 0.0ms (0% of total)

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

simplify56.0ms (0.3%)

Memory

24.3MiB live, 70.5MiB allocated; 2ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	154	1341
1	237	1341
2	643	1263
3	3922	1263

Stop Event

1×	node limit

Calls

Call 1

Inputs
(if (<=.f64 l #s(literal 2400000000000000021253893983573633386541344971381697813676032 binary64)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k (.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64))) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64))))
(if (<=.f64 l #s(literal 5199999999999999698353764330651748179343881336095363139875911071997525753856 binary64)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k (.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64))) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) k)))) t))) #s(literal 2 binary64))))
(if (<=.f64 l #s(literal 5199999999999999698353764330651748179343881336095363139875911071997525753856 binary64)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k (.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64))) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 k k)))) t)) #s(literal 2 binary64))))
(if (<=.f64 k #s(literal 7070527394739557/25711008708143844408671393477458601640355247900524685364822016 binary64)) (/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (.f64 k t)) #s(approx (cos k) #s(literal 1 binary64))) (ratio-of-squares.f64 (sin.f64 k) l)))) #s(approx (/ 2 ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)) #s(literal 2 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k (.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(if (<=.f64 (.f64 l l) #s(literal 152270531428125/152270531428124985630521599810549817357441044649921992607311038393952323293225407851025235404406410300395389316115760440366549529143798344477781051504885209680176214061819891091731088367032088255512493648112787169901337467584294921027286931491702587700433418798504336673153571718623657984 binary64)) #s(approx (/ 2 ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t)) #s(approx (/ 2 ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64))))
(if (<=.f64 (.f64 l l) #s(literal 152270531428125/152270531428124985630521599810549817357441044649921992607311038393952323293225407851025235404406410300395389316115760440366549529143798344477781051504885209680176214061819891091731088367032088255512493648112787169901337467584294921027286931491702587700433418798504336673153571718623657984 binary64)) #s(approx (/ 2 ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t)) #s(approx (/ 2 ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) k))) #s(literal 2 binary64))))
(if (<=.f64 (.f64 l l) #s(literal 40480450661/202402253307310618352495346718917307049556649764142118356901358027430339567995346891960383701437124495187077864316811911389808737385793476867013399940738509921517424276566361364466907742093216341239767678472745068562007483424692698618103355649159556340810056512358769552333414615230502532186327508646006263307707741093494784 binary64)) #s(approx (/ 2 ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t)) (/.f64 #s(literal 2 binary64) #s(approx ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 #s(approx (/ ( (* k k) t) (cos k)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 (sin.f64 k) l)))))
(if (<=.f64 k #s(literal 1800 binary64)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 (/.f64 l (.f64 k k)) (/.f64 l (.f64 k k))))) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64))))
(if (<=.f64 l #s(literal 8379879956214123/209496998905353079680844140596966345741865090946756146526930647558152562969899171512529285908857866057656747784163844544589904418936665155413025765720064 binary64)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t)) #s(approx (/ 2 ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t))))
(if (<=.f64 k #s(literal 1800 binary64)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (.f64 k k) t))) #s(approx (/ 2 ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64))))
(if (<=.f64 k #s(literal 1800 binary64)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64))))
(if (<=.f64 k #s(literal 1800 binary64)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k)))) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))

Outputs
(if (<=.f64 l #s(literal 2400000000000000021253893983573633386541344971381697813676032 binary64)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k (.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64))) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t)) #s(literal 2 binary64))))
(if (<=.f64 l #s(literal 5199999999999999698353764330651748179343881336095363139875911071997525753856 binary64)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k (.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64))) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 (cos.f64 k) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) k)))) t))) #s(literal 2 binary64))))
(if (<=.f64 l #s(literal 5199999999999999698353764330651748179343881336095363139875911071997525753856 binary64)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k (.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64))) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 (.f64 (ratio-of-squares.f64 l k) (cos.f64 k)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 k k)))) t)) #s(literal 2 binary64))))
(if (<=.f64 k #s(literal 7070527394739557/25711008708143844408671393477458601640355247900524685364822016 binary64)) (/.f64 #s(literal 2 binary64) #s(approx (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 (/.f64 (.f64 k (.f64 k t)) #s(approx (cos k) #s(literal 1 binary64))) (ratio-of-squares.f64 (sin.f64 k) l)))) #s(approx (/ 2 ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 (/.f64 l k) (sin.f64 k)) (/.f64 (cos.f64 k) t)) #s(literal 2 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 k (.f64 k t))) (ratio-of-squares.f64 l (sin.f64 k))) #s(literal 2 binary64)))
(if (<=.f64 (.f64 l l) #s(literal 152270531428125/152270531428124985630521599810549817357441044649921992607311038393952323293225407851025235404406410300395389316115760440366549529143798344477781051504885209680176214061819891091731088367032088255512493648112787169901337467584294921027286931491702587700433418798504336673153571718623657984 binary64)) #s(approx (/ 2 ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t)) #s(approx (/ 2 ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (ratio-of-squares.f64 l k) (/.f64 #s(approx (cos k) #s(literal 1 binary64)) (*.f64 (pow.f64 (sin.f64 k) #s(literal 2 binary64)) t))) #s(literal 2 binary64))))
(if (<=.f64 (.f64 l l) #s(literal 152270531428125/152270531428124985630521599810549817357441044649921992607311038393952323293225407851025235404406410300395389316115760440366549529143798344477781051504885209680176214061819891091731088367032088255512493648112787169901337467584294921027286931491702587700433418798504336673153571718623657984 binary64)) #s(approx (/ 2 ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t)) #s(approx (/ 2 ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (.f64 (/.f64 (cos.f64 k) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 l #s(approx (sin k) k))) #s(literal 2 binary64))))
(if (<=.f64 (.f64 l l) #s(literal 40480450661/202402253307310618352495346718917307049556649764142118356901358027430339567995346891960383701437124495187077864316811911389808737385793476867013399940738509921517424276566361364466907742093216341239767678472745068562007483424692698618103355649159556340810056512358769552333414615230502532186327508646006263307707741093494784 binary64)) #s(approx (/ 2 ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t)) (/.f64 #s(literal 2 binary64) #s(approx ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1)) (.f64 #s(approx (/ ( (* k k) t) (cos k)) (.f64 (.f64 k k) t)) (ratio-of-squares.f64 (sin.f64 k) l)))))
(if (<=.f64 k #s(literal 1800 binary64)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (.f64 (/.f64 l (.f64 k k)) (/.f64 l (.f64 k k))))) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64))))
(if (<=.f64 l #s(literal 8379879956214123/209496998905353079680844140596966345741865090946756146526930647558152562969899171512529285908857866057656747784163844544589904418936665155413025765720064 binary64)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 (/.f64 l k) k)) t)) #s(approx (/ 2 ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (*.f64 k k) t))))
(if (<=.f64 k #s(literal 1800 binary64)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 (ratio-of-squares.f64 l k) #s(literal 2 binary64)) (.f64 (.f64 k k) t))) #s(approx (/ 2 ( (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64))))
(if (<=.f64 k #s(literal 1800 binary64)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (/.f64 (.f64 #s(literal 2 binary64) (ratio-of-squares.f64 l (.f64 k k))) t)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64))))
(if (<=.f64 k #s(literal 1800 binary64)) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 (/.f64 #s(literal 2 binary64) t) (ratio-of-squares.f64 l (.f64 k k)))) #s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64))))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (/.f64 (*.f64 (ratio-of-squares.f64 l k) #s(literal -1/6 binary64)) t))) #s(literal 2 binary64)))
#s(approx (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))) (.f64 #s(approx ( (/ (cos k) (* (* k k) t)) (/ (* l l) (* (sin k) (sin k)))) #s(approx (/ (+ (* (* (/ (* l l) t) -1/6) (* k k)) (/ (* l l) t)) (pow k 4)) (*.f64 (/.f64 (ratio-of-squares.f64 l k) t) #s(literal -1/6 binary64)))) #s(literal 2 binary64)))

derivations475.0ms (2.2%)

Memory

-17.8MiB live, 508.4MiB allocated; 39ms collecting garbage

Stop Event

1×

fuel

Samples

52.0ms	1 346×	0	valid
7.0ms	190×	0	invalid

Compiler

Compiled 1 341 to 157 computations (88.3% saved)

Precisions

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

ival-mult: 19.0ms (67.4% of total)

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

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

ival-assert: 1.0ms (3.5% of total)

adjust: 0.0ms (0% of total)

preprocess3.3s (15.1%)

Memory

106.5MiB live, 4 883.7MiB allocated; 515ms collecting garbage

Remove

(negabs t)

(abs k)

Samples

2.1s	47 544×	0	valid
274.0ms	6 088×	0	invalid

Compiler

Compiled 3 420 to 664 computations (80.6% saved)

Precisions

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

ival-mult: 792.0ms (66.9% of total)

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

ival-true: 30.0ms (2.5% of total)

ival-assert: 21.0ms (1.8% of total)

adjust: 13.0ms (1.1% of total)

end0.0ms (0%)

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

start0.0ms (0%)

analyze821.0ms (3.8%)

sample3.3s (15.2%)

explain373.0ms (1.7%)

preprocess118.0ms (0.5%)

eval0.0ms (0%)

prune1.0ms (0%)

series68.0ms (0.3%)

rewrite146.0ms (0.7%)

eval695.0ms (3.2%)

prune222.0ms (1%)

series121.0ms (0.6%)

rewrite265.0ms (1.2%)

eval2.7s (12.5%)

prune888.0ms (4.1%)

series353.0ms (1.6%)

rewrite130.0ms (0.6%)

eval875.0ms (4%)

prune896.0ms (4.1%)

series83.0ms (0.4%)

rewrite186.0ms (0.9%)

eval4.0s (18.4%)

prune841.0ms (3.9%)

regimes125.0ms (0.6%)

regimes33.0ms (0.2%)

regimes32.0ms (0.1%)

regimes51.0ms (0.2%)

regimes88.0ms (0.4%)

regimes75.0ms (0.3%)

regimes27.0ms (0.1%)

regimes43.0ms (0.2%)

regimes19.0ms (0.1%)

regimes12.0ms (0.1%)

regimes7.0ms (0%)

regimes12.0ms (0.1%)

regimes2.0ms (0%)

regimes8.0ms (0%)

regimes6.0ms (0%)

bsearch28.0ms (0.1%)

bsearch43.0ms (0.2%)

bsearch10.0ms (0%)

bsearch78.0ms (0.4%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch26.0ms (0.1%)

bsearch7.0ms (0%)

bsearch8.0ms (0%)

bsearch8.0ms (0%)

bsearch24.0ms (0.1%)

simplify56.0ms (0.3%)

derivations475.0ms (2.2%)

preprocess3.3s (15.1%)

end0.0ms (0%)

Profiling