Metrics for Henrywood and Agarwal, Equation (9a)

start0.0ms (0%)

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

analyze1.3s (16%)

Memory

-79.8MiB live, 654.2MiB allocated; 1.1s collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.7%	0.3%	0%	0%	0%	0
0%	0%	99.7%	0.3%	0%	0%	0%	1
0%	0%	99.7%	0.3%	0%	0%	0%	2
0%	0%	99.7%	0.3%	0%	0%	0%	3
0%	0%	99.7%	0.3%	0%	0%	0%	4
0%	0%	99.7%	0.3%	0%	0%	0%	5
0%	0%	99.7%	0.3%	0%	0%	0%	6
12.5%	12.5%	87.2%	0.3%	0%	0%	0%	7
12.5%	12.5%	87.2%	0.3%	0%	0%	0%	8
12.5%	12.5%	87.2%	0.3%	0%	0%	0%	9
12.5%	12.5%	87.2%	0.3%	0%	0%	0%	10
12.5%	12.5%	87.2%	0.3%	0%	0%	0%	11
18.8%	18.7%	81%	0.3%	0%	0%	0%	12

Compiler

Compiled 20 to 19 computations (5% saved)

sample2.2s (28.2%)

Memory

31.6MiB live, 3 316.6MiB allocated; 647ms collecting garbage

Samples

1.1s	8 256×	0	valid
352.0ms	2 738×	0	invalid

Precisions

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

ival-mult: 334.0ms (36.5% of total)

ival-div: 204.0ms (22.3% of total)

ival-sqrt: 157.0ms (17.1% of total)

ival-pow2: 128.0ms (14% of total)

ival-sub: 62.0ms (6.8% of total)

exact: 14.0ms (1.5% of total)

ival-true: 9.0ms (1% of total)

adjust: 4.0ms (0.4% of total)

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

Bogosity

explain201.0ms (2.5%)

Memory

44.2MiB live, 472.9MiB allocated; 21ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
49	-	5	(1.018853598671905e-115 -5.22545171873186e-75 2.312748349898439e-157 1.46117406616721e-173 8.795152399683082e-302 -1.3699494812599862e-74)	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`
28	-	0	-	`(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))`
20	-	0	-	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
9	-	0	-	`(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))`
0	-	0	-	`D`
0	-	0	-	`(*.f64 #s(literal 2 binary64) d)`
0	-	0	-	`(/.f64 h l)`
0	-	0	-	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
0	-	0	-	`d`
0	-	0	-	`#s(literal 1 binary64)`
0	-	0	-	`(*.f64 M D)`
0	-	0	-	`w0`
0	-	0	-	`(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))`
0	-	0	-	`#s(literal 2 binary64)`
0	-	0	-	`l`
0	-	0	-	`M`
0	-	0	-	`h`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`sqrt.f64`	`(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))`	oflow-rescue	28	0
↳	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`	overflow	62
↳	`(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))`	overflow	62
↳	`(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))`	overflow	34
↳	`(*.f64 M D)`	overflow	21
↳	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	overflow	26
↳	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`	overflow	62
↳	`(/.f64 h l)`	overflow	28
`/.f64`	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	o/n	9	0
↳	`(*.f64 M D)`	overflow	21
`*.f64`	`(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))`	*no**	9	0
`*.f64`	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`	*no**	5	0
`*.f64`	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`	*uo**	2	0
↳	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`	underflow	104
↳	`(*.f64 M D)`	underflow	30
↳	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	underflow	51
↳	`(/.f64 h l)`	overflow	28
`*.f64`	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`	*ou**	1	0
↳	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`	overflow	62
↳	`(*.f64 M D)`	overflow	21
↳	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	overflow	26
↳	`(/.f64 h l)`	underflow	39

Confusion

	Predicted +	Predicted -
+	37	10
-	14	195

Precision

0.7254901960784313

Recall

0.7872340425531915

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	37	0	10
-	14	0	195

Precision?

0.7254901960784313

Recall?

0.7872340425531915

Freqs

test

number	freq
0	205
1	48
2	3

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

73.0ms

512×

valid

Compiler

Compiled 212 to 55 computations (74.1% saved)

Precisions

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

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

ival-div: 10.0ms (22.8% of total)

ival-pow2: 8.0ms (18.3% of total)

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

ival-sub: 3.0ms (6.8% of total)

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

exact: 1.0ms (2.3% of total)

adjust: 0.0ms (0% of total)

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

preprocess135.0ms (1.7%)

Memory

-2.5MiB live, 230.8MiB allocated; 18ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	167	501
1	461	492
2	1474	492
3	4405	492
0	17	18
0	26	18
1	47	18
2	122	18
3	873	18
4	5428	18
0	8411	18

Stop Event

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

Calls

Call 1

Inputs
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))

Outputs

(*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))

(*.f64 (sqrt.f64 (fma.f64 (/.f64 (neg.f64 h) l) (pow.f64 (*.f64 (/.f64 (/.f64 M d) #s(literal 2 binary64)) D) #s(literal 2 binary64)) #s(literal 1 binary64))) w0)

Symmetry

(abs d)

(abs D)

(abs M)

(negabs w0)

(sort M D)

Compiler

Compiled 18 to 17 computations (5.6% saved)

eval0.0ms (0%)

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

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	82.3%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))

Compiler

Compiled 18 to 17 computations (5.6% saved)

series108.0ms (1.4%)

Memory

10.0MiB live, 194.8MiB allocated; 41ms collecting garbage

Counts

17 → 100

Calls

Call 1

Inputs
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
w0
(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))
(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))
#s(literal 1 binary64)
(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))
(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))
(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))
(*.f64 M D)
M
D
(*.f64 #s(literal 2 binary64) d)
#s(literal 2 binary64)
d
(/.f64 h l)
h
l

Outputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx w0 #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (pow (/ (* M D) (* 2 d)) 2) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#s(approx (/ (* M D) (* 2 d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (* M D) #s(hole binary64 (* D M)))
#s(approx M #s(hole binary64 M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx D #s(hole binary64 D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx h #s(hole binary64 h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx l #s(hole binary64 l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (* 2 d) #s(hole binary64 (* 2 d)))
#s(approx d #s(hole binary64 d))

Calls

18 calls:

Time	Variable		Point	Expression
18.0ms	w0	@	-inf	((* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 d (/ h l) h l)
9.0ms	M	@	-inf	((* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 d (/ h l) h l)
9.0ms	h	@	0	((* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 d (/ h l) h l)
8.0ms	l	@	-inf	((* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 d (/ h l) h l)
6.0ms	D	@	-inf	((* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 d (/ h l) h l)

simplify176.0ms (2.2%)

Memory

-26.7MiB live, 260.1MiB allocated; 57ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	736	6042
1	2541	5986
0	8612	5840

Stop Event

1×	iter limit
1×	node limit

Counts

100 → 100

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx w0 #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (pow (/ (* M D) (* 2 d)) 2) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#s(approx (/ (* M D) (* 2 d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (* M D) #s(hole binary64 (* D M)))
#s(approx M #s(hole binary64 M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx D #s(hole binary64 D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx h #s(hole binary64 h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx l #s(hole binary64 l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (* 2 d) #s(hole binary64 (* 2 d)))
#s(approx d #s(hole binary64 d))

Outputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l)) #s(literal 1 binary64))) w0))
#s(approx w0 #s(hole binary64 w0))
#s(approx w0 w0)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 w0 (.f64 d d)) (/.f64 h l)) (.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 (/.f64 (.f64 h h) l) (/.f64 (.f64 M M) l)) (/.f64 w0 (pow.f64 d #s(literal 4 binary64)))))) (*.f64 M M) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 D d) (/.f64 D d))) (/.f64 (.f64 h w0) l) (.f64 (fma.f64 (.f64 #s(literal -1/1024 binary64) (pow.f64 D #s(literal 6 binary64))) (.f64 (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) M) M) (pow.f64 l #s(literal 3 binary64))) (/.f64 w0 (pow.f64 d #s(literal 6 binary64)))) (.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (.f64 (/.f64 w0 (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 h l) (/.f64 h l))))) (.f64 M M))) (.f64 M M) w0))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(literal 1 binary64))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (.f64 M M) h) h) (.f64 (.f64 (pow.f64 d #s(literal 4 binary64)) l) l)) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 h (.f64 (.f64 d d) l)))) (.f64 M M) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/1024 binary64) (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) M) M) (.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64)))) (.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (.f64 (/.f64 h (.f64 l l)) (/.f64 h (pow.f64 d #s(literal 4 binary64)))))) (.f64 M M) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 h (.f64 (.f64 d d) l)))) (*.f64 M M) #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(literal 1 binary64))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))
#s(approx (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l))))
#s(approx (pow (/ (* M D) (* 2 d)) 2) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#s(approx (pow (/ (* M D) (* 2 d)) 2) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 M d) (/.f64 M d))))
#s(approx (/ (* M D) (* 2 d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (/ (* M D) (* 2 d)) (.f64 (/.f64 (.f64 D M) d) #s(literal 1/2 binary64)))
#s(approx (* M D) #s(hole binary64 (* D M)))
#s(approx (* M D) (*.f64 D M))
#s(approx M #s(hole binary64 M))
#s(approx M M)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (.f64 (/.f64 w0 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (.f64 (/.f64 w0 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 (/.f64 d (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))) (fma.f64 (.f64 (/.f64 d (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 d (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 M M)) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 h (.f64 (.f64 d d) l)))) (.f64 M M)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (.f64 (neg.f64 D) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 M) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (.f64 (/.f64 w0 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (.f64 (/.f64 w0 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (.f64 (neg.f64 D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 M) (fma.f64 (.f64 (/.f64 d (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))) (fma.f64 (.f64 (/.f64 d (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 d (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 M M)) (.f64 (/.f64 w0 (.f64 d d)) (/.f64 h l)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) w0) (.f64 h h)) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))))) (.f64 D D) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 M #s(literal 4 binary64))) (.f64 (/.f64 w0 (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 h l) (/.f64 h l))) (.f64 (.f64 #s(literal -1/1024 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 l #s(literal 3 binary64))) (/.f64 w0 (pow.f64 d #s(literal 6 binary64)))))) (.f64 D D) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) h) w0) l))) (*.f64 D D) w0))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 h d) (/.f64 (.f64 M M) d)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) h) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))))) (*.f64 D D) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 M #s(literal 4 binary64))) (.f64 (/.f64 h (.f64 l l)) (/.f64 h (pow.f64 d #s(literal 4 binary64)))) (.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))))) (.f64 D D) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 M M)) (/.f64 h (.f64 (.f64 d d) l)))) (.f64 D D) #s(literal 1 binary64)))
#s(approx D #s(hole binary64 D))
#s(approx D D)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (/.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (pow.f64 D #s(literal 4 binary64)))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 D D)) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 M M)) (/.f64 h (.f64 (.f64 d d) l)))) (.f64 D D)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 D) (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (/.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (pow.f64 D #s(literal 4 binary64)))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 w0 (.f64 d d)) (/.f64 (.f64 M M) l)) (.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (.f64 (*.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) l) (/.f64 h l)) (/.f64 w0 (pow.f64 d #s(literal 4 binary64)))))) h w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 D d) (/.f64 D d))) (/.f64 (.f64 (.f64 M M) w0) l) (.f64 (fma.f64 (.f64 #s(literal -1/1024 binary64) (pow.f64 D #s(literal 6 binary64))) (.f64 (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (pow.f64 l #s(literal 3 binary64))) (/.f64 w0 (pow.f64 d #s(literal 6 binary64)))) (.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (.f64 (/.f64 w0 (pow.f64 d #s(literal 4 binary64))) (/.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 l l))))) h)) h w0))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 M l)) (.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (.f64 (/.f64 h (.f64 l l)) (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64)))))) h #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/1024 binary64) (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64)))) (.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 d #s(literal 4 binary64)) l) l)))) h (.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 D D) d) (/.f64 (*.f64 M M) d)))) h #s(literal 1 binary64)))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx (/ h l) (/.f64 h l))
#s(approx h #s(hole binary64 h))
#s(approx h h)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (/.f64 w0 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))) h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (/.f64 w0 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))))) h))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) h))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d)))) h))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 1/16 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))))) h))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 d D)) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 l h)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 D M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 d D)) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 D M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 d D)) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) (fma.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (/.f64 w0 (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 M #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 l h)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 h) (fma.f64 (.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 d D)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 l h)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 D M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 d D)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 l h))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 D M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 d D)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M) (fma.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 d #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h)))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (/.f64 w0 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (.f64 (sqrt.f64 (.f64 l h)) D) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l)))) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (/.f64 w0 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))))) (.f64 l l) (.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (fma.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l)))) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64))))) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))))) (.f64 l l) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 h d) (/.f64 (*.f64 M M) d)))) l))
#s(approx l #s(hole binary64 l))
#s(approx l l)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (*.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) w0)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))))) (fma.f64 (.f64 #s(literal -1/1024 binary64) (pow.f64 D #s(literal 6 binary64))) (.f64 (/.f64 (*.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 l #s(literal 3 binary64))) (/.f64 w0 (pow.f64 d #s(literal 6 binary64)))) w0)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l)) (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (*.f64 h h)) (pow.f64 d #s(literal 4 binary64))) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))))) (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) #s(literal 1 binary64))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (-.f64 w0 (/.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) d) (/.f64 w0 d)) (.f64 (.f64 #s(literal 1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (.f64 (/.f64 (.f64 (.f64 h h) w0) l) (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64)))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (-.f64 w0 (/.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) D) D) d) (/.f64 (fma.f64 (.f64 #s(literal -1/1024 binary64) (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) w0) (pow.f64 h #s(literal 3 binary64))) (.f64 (pow.f64 d #s(literal 6 binary64)) l)) (.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) w0) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))))) (neg.f64 l))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 D D)) (.f64 (/.f64 h d) (/.f64 (.f64 M M) d)) (.f64 (.f64 #s(literal 1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (.f64 (/.f64 (.f64 h h) l) (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64)))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) D) D) d) (/.f64 (fma.f64 (.f64 #s(literal -1/1024 binary64) (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (.f64 (pow.f64 d #s(literal 6 binary64)) l)) (.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (*.f64 (pow.f64 M #s(literal 4 binary64)) h) h) (pow.f64 d #s(literal 4 binary64))))) (neg.f64 l))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M)) D (.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d d) D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h)))) d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 d w0) d) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (.f64 D M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (.f64 (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D)) #s(literal 1/2 binary64))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (.f64 (/.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) #s(literal -1/8 binary64))) (.f64 d d) (.f64 (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D)) #s(literal 1/2 binary64))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d))))
#s(approx (* 2 d) #s(hole binary64 (* 2 d)))
#s(approx (* 2 d) (*.f64 #s(literal 2 binary64) d))
#s(approx d #s(hole binary64 d))
#s(approx d d)

rewrite68.0ms (0.9%)

Memory

4.2MiB live, 95.0MiB allocated; 16ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	17	95
0	26	95
1	75	95
0	470	95

Stop Event

1×	iter limit
1×	iter limit
1×	iter limit
1×	unsound
1×	iter limit

Counts

17 → 116

Calls

Call 1

Inputs
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
w0
(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))
(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))
#s(literal 1 binary64)
(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))
(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))
(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))
(*.f64 M D)
M
D
(*.f64 #s(literal 2 binary64) d)
#s(literal 2 binary64)
d
(/.f64 h l)
h
l

Outputs
(.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) w0)
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))))
w0
(.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))
(pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))))
(exp.f64 (.f64 (log1p.f64 (.f64 (neg.f64 (/.f64 h l)) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (neg.f64 (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) l))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64)))
(fma.f64 (neg.f64 (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64))
(fma.f64 (/.f64 h l) (neg.f64 (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 1 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 2 binary64)) (fma.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 3 binary64)) (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (neg.f64 (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) (/.f64 h l)))
(-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))
(+.f64 (neg.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (/.f64 h l)) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (neg.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))))
#s(literal 1 binary64)
(.f64 (.f64 #s(literal 1 binary64) (/.f64 h l)) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) (/.f64 h l))
(.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)))
(.f64 (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 1 binary64))
(.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) (/.f64 h l))
(.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) (/.f64 h l)))
(.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (neg.f64 h) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) (neg.f64 l))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 h (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) l)
(/.f64 (.f64 (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) (neg.f64 h)) (neg.f64 l))
(/.f64 (neg.f64 (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) (neg.f64 l))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) l))
(/.f64 (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) l)
(.f64 (.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) (/.f64 M #s(literal 2 binary64))) (/.f64 D d))
(.f64 (.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 M #s(literal 2 binary64))) (*.f64 (/.f64 D d) (/.f64 D d)))
(.f64 (.f64 M M) (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) (/.f64 (/.f64 D d) #s(literal 2 binary64))))
(.f64 (neg.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (neg.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))))
(.f64 (fabs.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (fabs.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))))
(.f64 (exp.f64 (log.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)))) (exp.f64 (log.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)))))
(*.f64 (pow.f64 (/.f64 M #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (/.f64 D d) #s(literal 2 binary64)))
(*.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) #s(literal 2 binary64)))
(.f64 (/.f64 M #s(literal 2 binary64)) (.f64 (/.f64 D d) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))))
(.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)))
(.f64 M (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))))
(pow.f64 (exp.f64 (log.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)))) #s(literal 2 binary64))
(pow.f64 (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 D (/.f64 M #s(literal 2 binary64))) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) d)
(/.f64 (.f64 (.f64 (neg.f64 M) D) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 (.f64 D M) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 d #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) (*.f64 D (/.f64 M #s(literal 2 binary64)))) d)
(/.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) (.f64 (neg.f64 M) D)) (.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) (.f64 D M)) (.f64 d #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 D (/.f64 M #s(literal 2 binary64))) (.f64 D (/.f64 M #s(literal 2 binary64)))) (.f64 d d))
(/.f64 (.f64 (.f64 D (/.f64 M #s(literal 2 binary64))) (.f64 (neg.f64 M) D)) (.f64 d (*.f64 #s(literal -2 binary64) d)))
(/.f64 (.f64 (.f64 D (/.f64 M #s(literal 2 binary64))) (.f64 D M)) (.f64 d (*.f64 d #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (neg.f64 M) D) (.f64 D (/.f64 M #s(literal 2 binary64)))) (.f64 (*.f64 #s(literal -2 binary64) d) d))
(/.f64 (.f64 (.f64 (neg.f64 M) D) (.f64 (neg.f64 M) D)) (.f64 (.f64 #s(literal -2 binary64) d) (.f64 #s(literal -2 binary64) d)))
(/.f64 (.f64 (.f64 (neg.f64 M) D) (.f64 D M)) (.f64 (.f64 #s(literal -2 binary64) d) (.f64 d #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 D M) (.f64 D (/.f64 M #s(literal 2 binary64)))) (.f64 (*.f64 d #s(literal 2 binary64)) d))
(/.f64 (.f64 (.f64 D M) (.f64 (neg.f64 M) D)) (.f64 (.f64 d #s(literal 2 binary64)) (.f64 #s(literal -2 binary64) d)))
(/.f64 (.f64 (.f64 D M) (.f64 D M)) (.f64 (.f64 d #s(literal 2 binary64)) (.f64 d #s(literal 2 binary64))))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) #s(literal 2 binary64))))
(.f64 (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 1/2 binary64)))
(*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))
(*.f64 (/.f64 M d) (/.f64 D #s(literal 2 binary64)))
(*.f64 (pow.f64 (/.f64 M #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 D d) #s(literal 1 binary64)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) (pow.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) #s(literal 1 binary64)))
(*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)
(*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64)))
(*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d))
(.f64 D (/.f64 M (.f64 d #s(literal 2 binary64))))
(*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 1 binary64))
(/.f64 (/.f64 (*.f64 D M) d) #s(literal 2 binary64))
(/.f64 (*.f64 M (/.f64 D d)) #s(literal 2 binary64))
(/.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) D) d)
(/.f64 (neg.f64 (*.f64 D (/.f64 M #s(literal 2 binary64)))) (neg.f64 d))
(/.f64 (neg.f64 (.f64 (neg.f64 M) D)) (neg.f64 (.f64 #s(literal -2 binary64) d)))
(/.f64 (*.f64 D (/.f64 M #s(literal 2 binary64))) d)
(/.f64 (.f64 (neg.f64 M) D) (.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 D M) (.f64 d #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 (neg.f64 M) D) (.f64 d #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 D M) (.f64 #s(literal -2 binary64) d)))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) #s(literal 1 binary64)))
(*.f64 D M)
(*.f64 M D)
M
D
(*.f64 d #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) d)
(/.f64 (-.f64 (.f64 d d) (.f64 d d)) (-.f64 d d))
(/.f64 (+.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 d #s(literal 3 binary64))) (fma.f64 d d (-.f64 (.f64 d d) (.f64 d d))))
(fma.f64 d #s(literal 1 binary64) (*.f64 d #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) d (*.f64 #s(literal 1 binary64) d))
(+.f64 (.f64 #s(literal 1 binary64) d) (.f64 #s(literal 1 binary64) d))
(+.f64 (.f64 d #s(literal 1 binary64)) (.f64 d #s(literal 1 binary64)))
(+.f64 d d)
#s(literal 2 binary64)
d
(/.f64 (neg.f64 (neg.f64 h)) (neg.f64 (neg.f64 l)))
(/.f64 (neg.f64 h) (neg.f64 l))
(/.f64 h l)
(neg.f64 (/.f64 (neg.f64 h) l))
(neg.f64 (/.f64 h (neg.f64 l)))
h
l

eval37.0ms (0.5%)

Memory: 9.5MiB live, 61.8MiB allocated; 12ms collecting garbage
Compiler: Compiled 8 812 to 1 395 computations (84.2% saved)

prune15.0ms (0.2%)

Memory

2.0MiB live, 44.6MiB allocated; 4ms collecting garbage

Pruning

12 alts after pruning (12 fresh and 0 done)

	Pruned	Kept	Total
New	204	12	216
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	205	12	217

Accuracy

89.0%

Counts

217 → 12

Alt Table

Click to see full alt table

Status	Accuracy	Program
	83.4%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 h l)))))
	80.7%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) (.f64 D M)) (.f64 d #s(literal 2 binary64))) (/.f64 h l)))))
	69.4%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 D M) (.f64 D M)) (.f64 (.f64 d #s(literal 2 binary64)) (.f64 d #s(literal 2 binary64)))) (/.f64 h l)))))
▶	84.6%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))))))
	65.6%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(approx (pow (/ (* M D) (* 2 d)) 2) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 M d) (/.f64 M d)))) (/.f64 h l)))))
	66.8%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
	55.2%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))))
▶	55.5%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d))))))
▶	13.2%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l))))))
▶	53.8%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
	50.5%	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) w0))
▶	66.2%	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Compiler

Compiled 756 to 570 computations (24.6% saved)

series290.0ms (3.7%)

Memory

5.6MiB live, 402.0MiB allocated; 239ms collecting garbage

Counts

45 → 220

Calls

Call 1

Inputs
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))))))
w0
(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)))))
(-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))))
#s(literal 1 binary64)
(.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)))
(.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)))
(/.f64 h l)
h
l
(*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))
(/.f64 D #s(literal 2 binary64))
D
#s(literal 2 binary64)
(/.f64 M d)
M
d
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))
(fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))
(.f64 #s(literal -1/8 binary64) (.f64 D D))
#s(literal -1/8 binary64)
(*.f64 D D)
(.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l))
(/.f64 h (*.f64 d d))
(*.f64 d d)
(/.f64 (*.f64 M M) l)
(*.f64 M M)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l))))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l))))
(.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l)))
(.f64 #s(literal -1/4 binary64) (.f64 D D))
#s(literal -1/4 binary64)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d))))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d))))
(-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d)))
(/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d))
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (*.f64 M M) h) l))
(.f64 #s(literal 1/4 binary64) (.f64 D D))
#s(literal 1/4 binary64)
(/.f64 (.f64 (.f64 M M) h) l)
(.f64 (.f64 M M) h)

Outputs
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx w0 #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (/ h l) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/2 (/ (* D (* M h)) (* d l)))))
#s(approx (* (/ D 2) (/ M d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (/ M d) #s(hole binary64 (/ M d)))
#s(approx M #s(hole binary64 M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (/ h (* d d)) (/ (* M M) l)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (/ (* M M) l) #s(hole binary64 (/ (pow M 2) l)))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (* -1/4 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 1))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))))
#s(approx (/ (* (* M M) h) l) #s(hole binary64 (/ (* (pow M 2) h) l)))
#s(approx (* (* M M) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ D 2) #s(hole binary64 (* 1/2 D)))
#s(approx D #s(hole binary64 D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* -1/8 (* D D)) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx (* -1/4 (* D D)) #s(hole binary64 (* -1/4 (pow D 2))))
#s(approx (* 1/4 (* D D)) #s(hole binary64 (* 1/4 (pow D 2))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx h #s(hole binary64 h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ h (* d d)) #s(hole binary64 (/ h (pow d 2))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx l #s(hole binary64 l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx d #s(hole binary64 d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))

Calls

18 calls:

Time	Variable		Point	Expression
104.0ms	D	@	0	((* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (* (/ h l) (* (/ D 2) (/ M d))) (/ h l) h l (* (/ D 2) (/ M d)) (/ D 2) D 2 (/ M d) M d (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (* -1/8 (* D D)) -1/8 (* D D) (* (/ h (* d d)) (/ (* M M) l)) (/ h (* d d)) (* d d) (/ (* M M) l) (* M M) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (* (* -1/4 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) (* -1/4 (* D D)) -1/4 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d)) (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* 1/4 (* D D)) 1/4 (/ (* (* M M) h) l) (* (* M M) h))
33.0ms	l	@	-inf	((* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (* (/ h l) (* (/ D 2) (/ M d))) (/ h l) h l (* (/ D 2) (/ M d)) (/ D 2) D 2 (/ M d) M d (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (* -1/8 (* D D)) -1/8 (* D D) (* (/ h (* d d)) (/ (* M M) l)) (/ h (* d d)) (* d d) (/ (* M M) l) (* M M) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (* (* -1/4 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) (* -1/4 (* D D)) -1/4 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d)) (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* 1/4 (* D D)) 1/4 (/ (* (* M M) h) l) (* (* M M) h))
27.0ms	D	@	-inf	((* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (* (/ h l) (* (/ D 2) (/ M d))) (/ h l) h l (* (/ D 2) (/ M d)) (/ D 2) D 2 (/ M d) M d (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (* -1/8 (* D D)) -1/8 (* D D) (* (/ h (* d d)) (/ (* M M) l)) (/ h (* d d)) (* d d) (/ (* M M) l) (* M M) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (* (* -1/4 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) (* -1/4 (* D D)) -1/4 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d)) (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* 1/4 (* D D)) 1/4 (/ (* (* M M) h) l) (* (* M M) h))
18.0ms	M	@	inf	((* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (* (/ h l) (* (/ D 2) (/ M d))) (/ h l) h l (* (/ D 2) (/ M d)) (/ D 2) D 2 (/ M d) M d (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (* -1/8 (* D D)) -1/8 (* D D) (* (/ h (* d d)) (/ (* M M) l)) (/ h (* d d)) (* d d) (/ (* M M) l) (* M M) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (* (* -1/4 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) (* -1/4 (* D D)) -1/4 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d)) (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* 1/4 (* D D)) 1/4 (/ (* (* M M) h) l) (* (* M M) h))
15.0ms	l	@	0	((* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (* (/ h l) (* (/ D 2) (/ M d))) (/ h l) h l (* (/ D 2) (/ M d)) (/ D 2) D 2 (/ M d) M d (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (* -1/8 (* D D)) -1/8 (* D D) (* (/ h (* d d)) (/ (* M M) l)) (/ h (* d d)) (* d d) (/ (* M M) l) (* M M) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (* (* -1/4 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) (* -1/4 (* D D)) -1/4 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d)) (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* 1/4 (* D D)) 1/4 (/ (* (* M M) h) l) (* (* M M) h))

simplify184.0ms (2.3%)

Memory

18.3MiB live, 293.9MiB allocated; 35ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	907	13945
1	2845	12735
0	8910	12410

Stop Event

1×	iter limit
1×	node limit

Counts

220 → 220

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx w0 #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (/ h l) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/2 (/ (* D (* M h)) (* d l)))))
#s(approx (* (/ D 2) (/ M d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (/ M d) #s(hole binary64 (/ M d)))
#s(approx M #s(hole binary64 M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (/ h (* d d)) (/ (* M M) l)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (/ (* M M) l) #s(hole binary64 (/ (pow M 2) l)))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (* -1/4 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 1))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))))
#s(approx (/ (* (* M M) h) l) #s(hole binary64 (/ (* (pow M 2) h) l)))
#s(approx (* (* M M) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ D 2) #s(hole binary64 (* 1/2 D)))
#s(approx D #s(hole binary64 D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* -1/8 (* D D)) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx (* -1/4 (* D D)) #s(hole binary64 (* -1/4 (pow D 2))))
#s(approx (* 1/4 (* D D)) #s(hole binary64 (* 1/4 (pow D 2))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx h #s(hole binary64 h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ h (* d d)) #s(hole binary64 (/ h (pow d 2))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx l #s(hole binary64 l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx d #s(hole binary64 d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))

Outputs
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (sqrt.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l))) #s(literal 1 binary64))) w0))
#s(approx w0 #s(hole binary64 w0))
#s(approx w0 w0)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (sqrt.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l))) #s(literal 1 binary64))) w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0)
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) w0) d) (/.f64 (*.f64 D D) d)) w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 (.f64 D D) h) d) (/.f64 w0 d)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 (.f64 h h) w0) (.f64 M M)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) (*.f64 M M) w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 D D) h) w0) l) (.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (.f64 M M)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 h h) w0) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) (.f64 M M))) (.f64 M M) w0))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(literal 1 binary64))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (*.f64 M M) l))) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 D D) d) (/.f64 h d)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 M h) (.f64 M h)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) (*.f64 M M) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 M M)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 h h) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) (.f64 M M) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 D D) h) l))) (*.f64 M M) #s(literal 1 binary64)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(literal 1 binary64))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (*.f64 M M) l))) #s(literal 1 binary64)))
#s(approx (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (.f64 (/.f64 #s(literal 1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))
#s(approx (* (/ h l) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/2 (/ (* D (* M h)) (* d l)))))
#s(approx (* (/ h l) (* (/ D 2) (/ M d))) (.f64 (/.f64 #s(literal 1/2 binary64) d) (/.f64 (.f64 (*.f64 M h) D) l)))
#s(approx (* (/ D 2) (/ M d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (* (/ D 2) (/ M d)) (.f64 (.f64 D (/.f64 M d)) #s(literal 1/2 binary64)))
#s(approx (/ M d) #s(hole binary64 (/ M d)))
#s(approx (/ M d) (/.f64 M d))
#s(approx M #s(hole binary64 M))
#s(approx M M)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) w0) d) (/.f64 (*.f64 D D) d)) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 (.f64 D D) h) d) (/.f64 w0 d)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 (.f64 h h) w0) (.f64 M M)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) (*.f64 M M) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 D D) h) w0) l) (.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (.f64 M M)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 h h) w0) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) (.f64 M M))) (.f64 M M) w0))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(literal 1 binary64))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (*.f64 M M) l))) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 D D) d) (/.f64 h d)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 M h) (.f64 M h)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) (*.f64 M M) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 M M)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 h h) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) (.f64 M M) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 D D) h) l))) (*.f64 M M) #s(literal 1 binary64)))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(literal 1 binary64))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (*.f64 M M) l))) #s(literal 1 binary64)))
#s(approx (* (/ h (* d d)) (/ (* M M) l)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (* (/ h (* d d)) (/ (* M M) l)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (*.f64 M h) l)))
#s(approx (/ (* M M) l) #s(hole binary64 (/ (pow M 2) l)))
#s(approx (/ (* M M) l) (/.f64 (*.f64 M M) l))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx (* M M) (*.f64 M M))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(literal 1 binary64))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (*.f64 M M) l))) #s(literal 1 binary64)))
#s(approx (* (* -1/4 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (* -1/4 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) (.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 1))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(literal 1 binary64))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (*.f64 M M) l))) #s(literal 1 binary64)))
#s(approx (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d)) (.f64 (/.f64 #s(literal 1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))
#s(approx (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))))
#s(approx (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (.f64 (.f64 h (/.f64 (.f64 M M) l)) (.f64 (*.f64 D D) #s(literal 1/4 binary64))))
#s(approx (/ (* (* M M) h) l) #s(hole binary64 (/ (* (pow M 2) h) l)))
#s(approx (/ (* (* M M) h) l) (.f64 h (/.f64 (.f64 M M) l)))
#s(approx (* (* M M) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (* (* M M) h) (.f64 (.f64 M M) h))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l)) (*.f64 M M))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 D D) h) l)) (*.f64 M M) #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l)) (*.f64 M M))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) (.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l)) (*.f64 M M))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (.f64 (neg.f64 D) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (.f64 (neg.f64 D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (.f64 (neg.f64 D) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (.f64 (neg.f64 D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 (.f64 M M) h) d) (/.f64 w0 d)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))))) (*.f64 D D) w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))))) (.f64 D D) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) h) w0) l))) (.f64 D D) w0))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 M M) d) (/.f64 h d)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))))) (*.f64 D D) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))))) (.f64 D D) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 h (/.f64 (.f64 M M) l)))) (*.f64 D D) #s(literal 1 binary64)))
#s(approx (/ D 2) #s(hole binary64 (* 1/2 D)))
#s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))
#s(approx D #s(hole binary64 D))
#s(approx D D)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 (.f64 M M) h) d) (/.f64 w0 d)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))))) (*.f64 D D) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))))) (.f64 D D) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) h) w0) l))) (.f64 D D) w0))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 M M) d) (/.f64 h d)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))))) (*.f64 D D) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))))) (.f64 D D) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 h (/.f64 (.f64 M M) l)))) (*.f64 D D) #s(literal 1 binary64)))
#s(approx (* -1/8 (* D D)) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (* -1/8 (* D D)) (.f64 #s(literal -1/8 binary64) (.f64 D D)))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx (* D D) (*.f64 D D))
#s(approx (* -1/4 (* D D)) #s(hole binary64 (* -1/4 (pow D 2))))
#s(approx (* -1/4 (* D D)) (.f64 #s(literal -1/4 binary64) (.f64 D D)))
#s(approx (* 1/4 (* D D)) #s(hole binary64 (* 1/4 (pow D 2))))
#s(approx (* 1/4 (* D D)) (.f64 (.f64 D D) #s(literal 1/4 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l)) (*.f64 D D))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 h (/.f64 (.f64 M M) l))) (*.f64 D D) #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l)) (*.f64 D D))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l)) (*.f64 D D))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 (.f64 M M) w0) d) (/.f64 (.f64 D D) d)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (*.f64 (pow.f64 M #s(literal 4 binary64)) h) w0) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) h w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) w0) (.f64 D D)) l) (.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) w0) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (*.f64 (pow.f64 M #s(literal 4 binary64)) w0) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) h)) h w0))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 D D) d) (/.f64 (.f64 M M) d)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (*.f64 (pow.f64 M #s(literal 4 binary64)) h) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) h #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) l) (.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) h)) h #s(literal 1 binary64)))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx (/ h l) (/.f64 h l))
#s(approx h #s(hole binary64 h))
#s(approx h h)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 (.f64 M M) w0) d) (/.f64 (.f64 D D) d)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (*.f64 (pow.f64 M #s(literal 4 binary64)) h) w0) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) h w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) w0) (.f64 D D)) l) (.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) w0) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (*.f64 (pow.f64 M #s(literal 4 binary64)) w0) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) h)) h w0))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 D D) d) (/.f64 (.f64 M M) d)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (*.f64 (pow.f64 M #s(literal 4 binary64)) h) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) h #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) l) (.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) h)) h #s(literal 1 binary64)))
#s(approx (/ h (* d d)) #s(hole binary64 (/ h (pow d 2))))
#s(approx (/ h (* d d)) (/.f64 h (*.f64 d d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) h))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))) h))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))))) h))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) h))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d)))) h))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))))) h))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) l) (.f64 (/.f64 (.f64 D D) d) (/.f64 (.f64 M M) d))) h #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))) h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))))) h))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) h))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d)))) h))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))))) h))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 D D) d) (/.f64 (.f64 M M) d))) h #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) l) (.f64 (/.f64 (.f64 D D) d) (/.f64 (.f64 M M) d))) h #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) l) (.f64 (/.f64 (.f64 D D) d) (/.f64 (.f64 M M) d))) h #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 (*.f64 d w0) M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 (.f64 d w0) M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (pow.f64 M #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 2 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 (*.f64 d w0) M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) D) (/.f64 d M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) D) (/.f64 d M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 M #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 2 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) D) (/.f64 d M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) l) (.f64 (/.f64 (.f64 D D) d) (/.f64 (.f64 M M) d))) h #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 (*.f64 d w0) M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 (.f64 d w0) M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (pow.f64 M #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 2 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 (*.f64 d w0) M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) D) (/.f64 d M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) D) (/.f64 d M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 M #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 2 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) D) (/.f64 d M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (neg.f64 h) (-.f64 (.f64 (/.f64 #s(literal 1/8 binary64) l) (.f64 (/.f64 (.f64 D D) d) (/.f64 (*.f64 M M) d))) (/.f64 #s(literal 1 binary64) h))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) l) (.f64 (/.f64 (.f64 D D) d) (/.f64 (.f64 M M) d))) h #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) l) (.f64 (/.f64 (.f64 D D) d) (/.f64 (.f64 M M) d))) h #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (/.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (/.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))))) (.f64 l l) (.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))))) (.f64 l l) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (*.f64 M M) l))) #s(literal 1 binary64)))
#s(approx l #s(hole binary64 l))
#s(approx l l)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (/.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (/.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))))) (.f64 l l) (.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))))) (.f64 l l) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (*.f64 M M) l))) #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (*.f64 M M) l))) #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (*.f64 M M) l))) #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) w0) d) (/.f64 (.f64 D D) d)) (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) w0)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (+.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) w0) d) (/.f64 (.f64 D D) d)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))))) (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) w0)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l))) (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (*.f64 h h)) (pow.f64 d #s(literal 4 binary64))) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (+.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))))) (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) #s(literal 1 binary64))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) w0) d) (/.f64 (.f64 D D) d)) (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) w0)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (+.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) w0) d) (/.f64 (.f64 D D) d)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))))) (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) w0)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l))) (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (*.f64 h h)) (pow.f64 d #s(literal 4 binary64))) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (+.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))))) (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) #s(literal 1 binary64))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (-.f64 w0 (/.f64 (fma.f64 (/.f64 #s(literal 1/128 binary64) l) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) w0) d) (/.f64 (.f64 D D) d)) #s(literal 1/8 binary64))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (-.f64 w0 (/.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) d) (/.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) l) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (*.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/128 binary64) l) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (/.f64 (.f64 (.f64 M M) h) d) (/.f64 (.f64 D D) d)) #s(literal 1/8 binary64))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) d) (/.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) l) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (-.f64 w0 (/.f64 (fma.f64 (/.f64 #s(literal 1/128 binary64) l) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) w0) d) (/.f64 (.f64 D D) d)) #s(literal 1/8 binary64))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (-.f64 w0 (/.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) d) (/.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) l) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (*.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/128 binary64) l) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (/.f64 (.f64 (.f64 M M) h) d) (/.f64 (.f64 D D) d)) #s(literal 1/8 binary64))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) d) (/.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) l) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (/.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 d d) w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (/.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 d d) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (.f64 d d) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))))) (.f64 d d) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d d) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 d d)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 d d)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))))) (.f64 d d) (.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (*.f64 M M) l))) #s(literal 1 binary64)))
#s(approx d #s(hole binary64 d))
#s(approx d d)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (/.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 d d) w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (/.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 d d) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (.f64 d d) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))))) (.f64 d d) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d d) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 d d)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 d d)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))))) (.f64 d d) (.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (fma.f64 (/.f64 (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l))) d) (/.f64 #s(literal -1/8 binary64) d) #s(literal 1 binary64)))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (* d d) (*.f64 d d))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (*.f64 M M) l))) #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (/ (* (* 1/4 (* D D)) (/ (* (* M M) h) l)) (* d d))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (*.f64 M M) l))) #s(literal 1 binary64)))

rewrite80.0ms (1%)

Memory

-3.4MiB live, 97.7MiB allocated; 9ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	54	569
0	85	545
1	272	545
0	1905	545

Stop Event

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

Counts

45 → 462

Calls

Call 1

Inputs
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))))))
w0
(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)))))
(-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))))
#s(literal 1 binary64)
(.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)))
(.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)))
(/.f64 h l)
h
l
(*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))
(/.f64 D #s(literal 2 binary64))
D
#s(literal 2 binary64)
(/.f64 M d)
M
d
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))
(fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))
(.f64 #s(literal -1/8 binary64) (.f64 D D))
#s(literal -1/8 binary64)
(*.f64 D D)
(.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l))
(/.f64 h (*.f64 d d))
(*.f64 d d)
(/.f64 (*.f64 M M) l)
(*.f64 M M)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l))))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l))))
(.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l)))
(.f64 #s(literal -1/4 binary64) (.f64 D D))
#s(literal -1/4 binary64)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d))))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d))))
(-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d)))
(/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d))
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (*.f64 M M) h) l))
(.f64 #s(literal 1/4 binary64) (.f64 D D))
#s(literal 1/4 binary64)
(/.f64 (.f64 (.f64 M M) h) l)
(.f64 (.f64 M M) h)

Outputs
(.f64 (sqrt.f64 (fma.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64))) w0)
(.f64 w0 (sqrt.f64 (fma.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64))))
w0
(.f64 (pow.f64 (fma.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (neg.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1/4 binary64)))
(pow.f64 (fma.f64 (neg.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)) (fma.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1 binary64))))
(sqrt.f64 (fma.f64 (neg.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64)))
(exp.f64 (.f64 (log1p.f64 (.f64 (neg.f64 (/.f64 h l)) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (neg.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)) (fma.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) (*.f64 #s(literal 2 binary64) l))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 2 binary64))) (fma.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 3 binary64))) (fma.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)) (fma.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 (neg.f64 (/.f64 h l)) (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) (/.f64 M #s(literal 2 binary64))) (/.f64 D d) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (neg.f64 (/.f64 h l)) (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) (/.f64 M d)) (/.f64 D #s(literal 2 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (neg.f64 (/.f64 h l)) (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (neg.f64 (/.f64 h l)) (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) (/.f64 D #s(literal 2 binary64))) (/.f64 M d) #s(literal 1 binary64))
(fma.f64 (.f64 (neg.f64 (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1 binary64))
(fma.f64 (neg.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (neg.f64 (/.f64 h l)) (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) #s(literal 1 binary64))
(fma.f64 (/.f64 h l) (neg.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 1 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)) (fma.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 3 binary64)) (fma.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)) (fma.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (neg.f64 (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M))) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) (/.f64 h l)))
(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)))
(+.f64 (.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (/.f64 D #s(literal 2 binary64)))) (/.f64 M d)))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (/.f64 h l)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l)))
#s(literal 1 binary64)
(.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (*.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (/.f64 D #s(literal 2 binary64)))) (/.f64 M d))
(.f64 (.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) (.f64 (*.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 h l)) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(.f64 (.f64 (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (/.f64 M #s(literal 2 binary64))) (/.f64 D d))
(.f64 (.f64 (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (/.f64 M d)) (/.f64 D #s(literal 2 binary64)))
(.f64 (.f64 (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (.f64 (/.f64 M d) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)))
(.f64 (.f64 (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (/.f64 D #s(literal 2 binary64))) (/.f64 M d))
(.f64 (/.f64 M #s(literal 2 binary64)) (.f64 (/.f64 D d) (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))))
(.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l))
(.f64 (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 1 binary64))
(.f64 (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M))
(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))))
(.f64 (/.f64 M d) (.f64 (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (/.f64 D #s(literal 2 binary64))))
(.f64 M (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))))
(.f64 (/.f64 D #s(literal 2 binary64)) (.f64 (/.f64 M d) (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))))
(.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(.f64 #s(literal 1 binary64) (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l)))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (/.f64 h l))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) l)
(/.f64 (.f64 (.f64 (/.f64 M d) D) (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 M (/.f64 D #s(literal 2 binary64))) (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))) d)
(/.f64 (.f64 (.f64 (neg.f64 D) M) (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 (.f64 M D) (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (*.f64 d #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 h) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (neg.f64 l))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) l)
(/.f64 (.f64 (.f64 (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (/.f64 D #s(literal 2 binary64))) (neg.f64 M)) (neg.f64 d))
(/.f64 (.f64 (.f64 (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (/.f64 D #s(literal 2 binary64))) M) d)
(/.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (neg.f64 h)) (neg.f64 l))
(/.f64 (.f64 (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (.f64 (/.f64 M d) D)) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (.f64 M (/.f64 D #s(literal 2 binary64)))) d)
(/.f64 (.f64 (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (.f64 (neg.f64 D) M)) (*.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (.f64 M D)) (*.f64 d #s(literal 2 binary64)))
(/.f64 (neg.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) (neg.f64 l))
(/.f64 (.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) (.f64 (/.f64 M d) D)) (*.f64 l #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) (.f64 M (/.f64 D #s(literal 2 binary64)))) (*.f64 l d))
(/.f64 (.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) (.f64 (neg.f64 D) M)) (.f64 l (.f64 #s(literal -2 binary64) d)))
(/.f64 (.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) (.f64 M D)) (.f64 l (.f64 d #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (/.f64 M d) D) (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d))) (*.f64 #s(literal 2 binary64) l))
(/.f64 (.f64 (.f64 M (/.f64 D #s(literal 2 binary64))) (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d))) (*.f64 d l))
(/.f64 (.f64 (.f64 (neg.f64 D) M) (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d))) (.f64 (.f64 #s(literal -2 binary64) d) l))
(/.f64 (.f64 (.f64 M D) (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d))) (.f64 (.f64 d #s(literal 2 binary64)) l))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) (.f64 #s(literal 2 binary64) l))
(/.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) l)
(.f64 (.f64 (/.f64 h l) (/.f64 M #s(literal 2 binary64))) (/.f64 D d))
(.f64 (.f64 (/.f64 h l) (/.f64 M d)) (/.f64 D #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (/.f64 M d))
(.f64 (/.f64 M #s(literal 2 binary64)) (.f64 (/.f64 D d) (/.f64 h l)))
(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (/.f64 h l))
(.f64 (/.f64 M d) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)))
(.f64 M (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) (/.f64 h l)))
(.f64 (/.f64 D #s(literal 2 binary64)) (.f64 (/.f64 M d) (/.f64 h l)))
(.f64 (/.f64 h l) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M))
(.f64 h (/.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) l))
(/.f64 (.f64 (.f64 (/.f64 M d) D) (/.f64 h l)) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 M (/.f64 D #s(literal 2 binary64))) (/.f64 h l)) d)
(/.f64 (.f64 (.f64 (neg.f64 D) M) (/.f64 h l)) (*.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 (.f64 M D) (/.f64 h l)) (*.f64 d #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 h) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) (neg.f64 l))
(/.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 M)) (neg.f64 d))
(/.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) M) d)
(/.f64 (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (neg.f64 h)) (neg.f64 l))
(/.f64 (.f64 (/.f64 h l) (.f64 (/.f64 M d) D)) #s(literal 2 binary64))
(/.f64 (.f64 (/.f64 h l) (.f64 M (/.f64 D #s(literal 2 binary64)))) d)
(/.f64 (.f64 (/.f64 h l) (.f64 (neg.f64 D) M)) (*.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 (/.f64 h l) (.f64 M D)) (*.f64 d #s(literal 2 binary64)))
(/.f64 (neg.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d))) (neg.f64 l))
(/.f64 (.f64 (.f64 (/.f64 M d) D) (neg.f64 h)) (*.f64 #s(literal 2 binary64) (neg.f64 l)))
(/.f64 (.f64 (.f64 (/.f64 M d) D) h) (*.f64 #s(literal 2 binary64) l))
(/.f64 (.f64 (.f64 M (/.f64 D #s(literal 2 binary64))) (neg.f64 h)) (*.f64 d (neg.f64 l)))
(/.f64 (.f64 (.f64 M (/.f64 D #s(literal 2 binary64))) h) (*.f64 d l))
(/.f64 (.f64 (.f64 (neg.f64 D) M) (neg.f64 h)) (.f64 (.f64 #s(literal -2 binary64) d) (neg.f64 l)))
(/.f64 (.f64 (.f64 (neg.f64 D) M) h) (.f64 (.f64 #s(literal -2 binary64) d) l))
(/.f64 (.f64 (.f64 M D) (neg.f64 h)) (.f64 (.f64 d #s(literal 2 binary64)) (neg.f64 l)))
(/.f64 (.f64 (.f64 M D) h) (.f64 (.f64 d #s(literal 2 binary64)) l))
(/.f64 (.f64 (neg.f64 h) (.f64 (/.f64 M d) D)) (*.f64 (neg.f64 l) #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 h) (.f64 M (/.f64 D #s(literal 2 binary64)))) (*.f64 (neg.f64 l) d))
(/.f64 (.f64 (neg.f64 h) (.f64 (neg.f64 D) M)) (.f64 (neg.f64 l) (.f64 #s(literal -2 binary64) d)))
(/.f64 (.f64 (neg.f64 h) (.f64 M D)) (.f64 (neg.f64 l) (.f64 d #s(literal 2 binary64))))
(/.f64 (.f64 h (.f64 (/.f64 M d) D)) (*.f64 l #s(literal 2 binary64)))
(/.f64 (.f64 h (.f64 M (/.f64 D #s(literal 2 binary64)))) (*.f64 l d))
(/.f64 (.f64 h (.f64 (neg.f64 D) M)) (.f64 l (.f64 #s(literal -2 binary64) d)))
(/.f64 (.f64 h (.f64 M D)) (.f64 l (.f64 d #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) l)
(/.f64 (neg.f64 (neg.f64 h)) (neg.f64 (neg.f64 l)))
(/.f64 (neg.f64 h) (neg.f64 l))
(/.f64 h l)
(neg.f64 (/.f64 (neg.f64 h) l))
(neg.f64 (/.f64 h (neg.f64 l)))
h
l
(.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (/.f64 M #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 D d) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 M d) #s(literal 1 binary64)) (pow.f64 (/.f64 D #s(literal 2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 D #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 M d) #s(literal 1 binary64)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) (pow.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) #s(literal 1 binary64)))
(*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)
(*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64)))
(*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d))
(*.f64 (/.f64 M d) (/.f64 D #s(literal 2 binary64)))
(*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))
(*.f64 D (/.f64 (/.f64 M d) #s(literal 2 binary64)))
(.f64 D (/.f64 M (.f64 d #s(literal 2 binary64))))
(pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1 binary64))
(/.f64 (*.f64 M (/.f64 D d)) #s(literal 2 binary64))
(/.f64 (*.f64 (neg.f64 M) (/.f64 D #s(literal 2 binary64))) (neg.f64 d))
(/.f64 (*.f64 (neg.f64 D) (/.f64 M d)) #s(literal -2 binary64))
(/.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) D) d)
(/.f64 (*.f64 (/.f64 M d) (neg.f64 D)) #s(literal -2 binary64))
(/.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (neg.f64 M)) (neg.f64 d))
(/.f64 (neg.f64 (*.f64 (/.f64 M d) D)) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 M (/.f64 D #s(literal 2 binary64)))) (neg.f64 d))
(/.f64 (neg.f64 (.f64 (neg.f64 D) M)) (neg.f64 (.f64 #s(literal -2 binary64) d)))
(/.f64 (.f64 (neg.f64 M) (neg.f64 D)) (.f64 (neg.f64 d) #s(literal -2 binary64)))
(/.f64 (.f64 (neg.f64 D) (neg.f64 M)) (.f64 #s(literal -2 binary64) (neg.f64 d)))
(/.f64 (*.f64 (/.f64 M d) D) #s(literal 2 binary64))
(/.f64 (*.f64 M (/.f64 D #s(literal 2 binary64))) d)
(/.f64 (.f64 (neg.f64 D) M) (.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 M D) (.f64 d #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 (neg.f64 D) M) (.f64 d #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 M D) (.f64 #s(literal -2 binary64) d)))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) #s(literal 1 binary64)))
(/.f64 (neg.f64 (neg.f64 D)) #s(literal 2 binary64))
(/.f64 (neg.f64 D) #s(literal -2 binary64))
(/.f64 D #s(literal 2 binary64))
(neg.f64 (/.f64 (neg.f64 D) #s(literal 2 binary64)))
(neg.f64 (/.f64 D #s(literal -2 binary64)))
D
#s(literal 2 binary64)
(/.f64 (neg.f64 (neg.f64 M)) (neg.f64 (neg.f64 d)))
(/.f64 (neg.f64 M) (neg.f64 d))
(/.f64 M d)
(neg.f64 (/.f64 (neg.f64 M) d))
(neg.f64 (/.f64 M (neg.f64 d)))
M
d
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal -1 binary64))))
(/.f64 (neg.f64 (fma.f64 #s(literal -1/512 binary64) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 D D)) #s(literal 3 binary64)) #s(literal 1 binary64))) (neg.f64 (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64)))) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (*.f64 D D) #s(literal -1/8 binary64))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal -1 binary64)))
(/.f64 (fma.f64 #s(literal -1/512 binary64) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 D D)) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (*.f64 D D) #s(literal -1/8 binary64))))))
(/.f64 (fma.f64 #s(literal -1/512 binary64) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 D D)) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64)))) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (*.f64 D D) #s(literal -1/8 binary64))) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (*.f64 d d)))) M) (/.f64 M l) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) #s(literal -1/8 binary64)) (*.f64 D D) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 M M) l)) (/.f64 h (*.f64 d d)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 D D)) #s(literal -1/8 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (.f64 d d)))) (.f64 (/.f64 (.f64 M M) l) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (.f64 d d)))) (/.f64 (*.f64 M M) l) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (.f64 (.f64 (/.f64 h (*.f64 d d)) M) (/.f64 M l))) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 M M) l) (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (*.f64 d d)))) #s(literal 1 binary64))
(fma.f64 (/.f64 h (.f64 d d)) (.f64 (/.f64 (.f64 M M) l) (.f64 (*.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (.f64 (/.f64 h (*.f64 d d)) M) (/.f64 M l)) #s(literal 1 binary64))
(fma.f64 (.f64 D D) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (/.f64 h (*.f64 d d)) M) (/.f64 M l))) #s(literal 1 binary64))
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 D D)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 D D)) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64)) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64)) #s(literal -1 binary64))))
(-.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (.f64 d d))))) (/.f64 (.f64 M M) l)))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l))) (.f64 (.f64 D D) #s(literal -1/8 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64))) (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l))))
(-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 D D))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 3 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64)))) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64)))) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 D D) #s(literal -1/8 binary64))))
(.f64 (.f64 #s(literal -1/8 binary64) (neg.f64 D)) (neg.f64 D))
(.f64 (.f64 #s(literal -1/8 binary64) (fabs.f64 D)) (fabs.f64 D))
(.f64 (.f64 #s(literal -1/8 binary64) D) D)
(.f64 (neg.f64 D) (.f64 (neg.f64 D) #s(literal -1/8 binary64)))
(.f64 (fabs.f64 D) (.f64 (fabs.f64 D) #s(literal -1/8 binary64)))
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(.f64 #s(literal -1/8 binary64) (.f64 D D))
(.f64 D (.f64 #s(literal -1/8 binary64) D))
#s(literal -1/8 binary64)
(*.f64 (neg.f64 (neg.f64 D)) (neg.f64 (neg.f64 D)))
(*.f64 (neg.f64 (fabs.f64 D)) (neg.f64 (fabs.f64 D)))
(*.f64 (fabs.f64 (fabs.f64 D)) (fabs.f64 (fabs.f64 D)))
(*.f64 (pow.f64 D #s(literal 1 binary64)) (pow.f64 D #s(literal 1 binary64)))
(*.f64 (pow.f64 D #s(literal 1 binary64)) D)
(*.f64 (neg.f64 D) (neg.f64 D))
(*.f64 (fabs.f64 D) (fabs.f64 D))
(*.f64 D D)
(pow.f64 (neg.f64 D) #s(literal 2 binary64))
(pow.f64 (fabs.f64 D) #s(literal 2 binary64))
(pow.f64 D #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 D) D))
(neg.f64 (*.f64 D (neg.f64 D)))
(fabs.f64 (*.f64 D D))
(exp.f64 (*.f64 (log.f64 D) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 h (*.f64 d d)) M) (/.f64 M l))
(.f64 (/.f64 h (neg.f64 d)) (/.f64 (/.f64 (.f64 M M) l) (neg.f64 d)))
(.f64 (/.f64 h (fabs.f64 d)) (/.f64 (/.f64 (.f64 M M) l) (fabs.f64 d)))
(.f64 (/.f64 (.f64 M M) (*.f64 d d)) (/.f64 h l))
(.f64 (/.f64 M (.f64 d d)) (/.f64 (*.f64 M h) l))
(.f64 (/.f64 (.f64 M M) (neg.f64 d)) (/.f64 (/.f64 h l) (neg.f64 d)))
(.f64 (/.f64 (.f64 M M) (fabs.f64 d)) (/.f64 (/.f64 h l) (fabs.f64 d)))
(.f64 (/.f64 (.f64 M M) d) (/.f64 (/.f64 h l) d))
(.f64 (/.f64 h d) (/.f64 (/.f64 (.f64 M M) l) d))
(.f64 (/.f64 (.f64 M M) l) (/.f64 h (*.f64 d d)))
(.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l)))
(.f64 (.f64 M M) (/.f64 (/.f64 h l) (*.f64 d d)))
(.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l))
(.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l)))
(.f64 M (.f64 (/.f64 M l) (/.f64 h (*.f64 d d))))
(.f64 h (/.f64 (/.f64 (.f64 M M) l) (*.f64 d d)))
(.f64 h (/.f64 (.f64 M M) (.f64 (.f64 d d) l)))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (/.f64 h (*.f64 d d))) (neg.f64 l))
(/.f64 (.f64 (/.f64 h d) (/.f64 (.f64 M M) l)) d)
(/.f64 (.f64 (neg.f64 h) (/.f64 (.f64 M M) l)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (/.f64 (.f64 M M) l) (/.f64 h d)) d)
(/.f64 (.f64 (/.f64 (.f64 M M) l) (neg.f64 h)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (/.f64 h (.f64 d d)) (*.f64 (neg.f64 M) M)) (neg.f64 l))
(/.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) (neg.f64 d)) (neg.f64 d))
(/.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) (fabs.f64 d)) (fabs.f64 d))
(/.f64 (neg.f64 (.f64 (.f64 (/.f64 h (*.f64 d d)) M) M)) (neg.f64 l))
(/.f64 (neg.f64 (.f64 (/.f64 (.f64 M M) l) h)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (/.f64 h d)) (*.f64 (neg.f64 l) d))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (neg.f64 h)) (.f64 (neg.f64 l) (.f64 (neg.f64 d) d)))
(/.f64 (.f64 (.f64 M M) (/.f64 h d)) (*.f64 l d))
(/.f64 (.f64 (/.f64 h d) (.f64 (neg.f64 M) M)) (*.f64 d (neg.f64 l)))
(/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l))
(/.f64 (.f64 (neg.f64 h) (.f64 (neg.f64 M) M)) (.f64 (.f64 (neg.f64 d) d) (neg.f64 l)))
(/.f64 (.f64 (.f64 (/.f64 h (*.f64 d d)) M) M) l)
(/.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) d)
(/.f64 (.f64 (.f64 (neg.f64 M) M) h) (neg.f64 (.f64 (.f64 d d) l)))
(/.f64 (.f64 (.f64 (neg.f64 M) M) h) (.f64 (neg.f64 l) (.f64 d d)))
(/.f64 (.f64 (.f64 (neg.f64 M) M) h) (.f64 l (.f64 (neg.f64 d) d)))
(/.f64 (.f64 (.f64 (neg.f64 M) M) h) (.f64 (.f64 (neg.f64 d) d) l))
(/.f64 (.f64 (.f64 (neg.f64 M) M) h) (.f64 (.f64 d d) (neg.f64 l)))
(/.f64 (.f64 (/.f64 (.f64 M M) l) h) (*.f64 d d))
(/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l))
(/.f64 (/.f64 h (neg.f64 d)) (neg.f64 d))
(/.f64 (/.f64 h (fabs.f64 d)) (fabs.f64 d))
(/.f64 (neg.f64 (/.f64 h d)) (neg.f64 d))
(/.f64 (neg.f64 (neg.f64 h)) (*.f64 d d))
(/.f64 (/.f64 h d) d)
(/.f64 (neg.f64 h) (*.f64 (neg.f64 d) d))
(/.f64 h (*.f64 d d))
(neg.f64 (/.f64 (neg.f64 h) (*.f64 d d)))
(neg.f64 (/.f64 h (*.f64 (neg.f64 d) d)))
(*.f64 (neg.f64 (neg.f64 d)) (neg.f64 (neg.f64 d)))
(*.f64 (neg.f64 (fabs.f64 d)) (neg.f64 (fabs.f64 d)))
(*.f64 (fabs.f64 (fabs.f64 d)) (fabs.f64 (fabs.f64 d)))
(*.f64 (pow.f64 d #s(literal 1 binary64)) (pow.f64 d #s(literal 1 binary64)))
(*.f64 (pow.f64 d #s(literal 1 binary64)) d)
(*.f64 (neg.f64 d) (neg.f64 d))
(*.f64 (fabs.f64 d) (fabs.f64 d))
(*.f64 d d)
(pow.f64 (neg.f64 d) #s(literal 2 binary64))
(pow.f64 (fabs.f64 d) #s(literal 2 binary64))
(pow.f64 d #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 d) d))
(fabs.f64 (*.f64 d d))
(exp.f64 (*.f64 (log.f64 d) #s(literal 2 binary64)))
(*.f64 (/.f64 M l) M)
(*.f64 (neg.f64 M) (/.f64 (neg.f64 M) l))
(*.f64 (fabs.f64 M) (/.f64 (fabs.f64 M) l))
(*.f64 M (/.f64 M l))
(/.f64 (*.f64 (neg.f64 M) M) (neg.f64 l))
(/.f64 (*.f64 M M) (neg.f64 (neg.f64 l)))
(/.f64 (*.f64 M M) l)
(neg.f64 (/.f64 (*.f64 (neg.f64 M) M) l))
(neg.f64 (/.f64 (*.f64 M M) (neg.f64 l)))
(*.f64 (neg.f64 (neg.f64 M)) (neg.f64 (neg.f64 M)))
(*.f64 (neg.f64 (fabs.f64 M)) (neg.f64 (fabs.f64 M)))
(*.f64 (fabs.f64 (fabs.f64 M)) (fabs.f64 (fabs.f64 M)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) (pow.f64 M #s(literal 1 binary64)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) M)
(*.f64 (neg.f64 M) (neg.f64 M))
(*.f64 (fabs.f64 M) (fabs.f64 M))
(*.f64 M M)
(pow.f64 (neg.f64 M) #s(literal 2 binary64))
(pow.f64 (fabs.f64 M) #s(literal 2 binary64))
(pow.f64 M #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 M) M))
(fabs.f64 (*.f64 M M))
(exp.f64 (*.f64 (log.f64 M) #s(literal 2 binary64)))
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l))))) w0)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l))))))
(.f64 (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)))))
(exp.f64 (.f64 (log.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l))))) #s(literal 1/2 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l))))
(.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (/.f64 h (.f64 d d)))) M) (/.f64 M l))
(.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (/.f64 (.f64 M M) l)) (/.f64 h (.f64 d d)))
(.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/4 binary64) D)) D)
(.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) #s(literal -1/4 binary64)) (.f64 D D))
(.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 D D)) #s(literal -1/4 binary64))
(.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l))))
(.f64 (.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (/.f64 h (.f64 d d)))) (/.f64 (.f64 M M) l))
(.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)))
(.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 D D)))
(.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/4 binary64) (.f64 D D)))
(.f64 (/.f64 (.f64 M M) l) (.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (/.f64 h (.f64 d d)))))
(.f64 (/.f64 h (.f64 d d)) (.f64 (/.f64 (.f64 M M) l) (.f64 #s(literal -1/4 binary64) (.f64 D D))))
(.f64 (.f64 D D) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l))))
(/.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) (.f64 #s(literal -1/4 binary64) (.f64 D D))) (.f64 d d))
(/.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal -1/4 binary64) (.f64 D D))) l)
(/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 #s(literal -1/4 binary64) (.f64 D D))) (.f64 (*.f64 d d) l))
(/.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (/.f64 h (.f64 d d)))) (.f64 (neg.f64 M) M)) (neg.f64 l))
(/.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (/.f64 h (.f64 d d)))) (.f64 M M)) l)
(/.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 M M) l) h)) (.f64 d d))
(/.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (.f64 d d)) M) M)) l)
(/.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 M M) h)) (.f64 (*.f64 d d) l))
(.f64 (.f64 #s(literal -1/4 binary64) (neg.f64 D)) (neg.f64 D))
(.f64 (.f64 #s(literal -1/4 binary64) (fabs.f64 D)) (fabs.f64 D))
(.f64 (.f64 #s(literal -1/4 binary64) D) D)
(.f64 (neg.f64 D) (.f64 (neg.f64 D) #s(literal -1/4 binary64)))
(.f64 (fabs.f64 D) (.f64 (fabs.f64 D) #s(literal -1/4 binary64)))
(.f64 #s(literal -1/4 binary64) (.f64 D D))
(.f64 (.f64 D D) #s(literal -1/4 binary64))
(.f64 D (.f64 #s(literal -1/4 binary64) D))
#s(literal -1/4 binary64)
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) d))))) w0)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) d))))))
(.f64 (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d)))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) d)))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) d)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) d)))))
(exp.f64 (.f64 (log.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) d))))) #s(literal 1/2 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) d))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) d) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d)) (fma.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (-.f64 (.f64 d #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (.f64 M M) l) h) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d)))) (.f64 d #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (neg.f64 d) d)) (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 M M) l) h) (.f64 D D))))) (.f64 #s(literal 2 binary64) (.f64 (neg.f64 d) d)))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 d d)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) #s(literal 1/4 binary64)) (.f64 D D)))) (.f64 #s(literal 2 binary64) (.f64 d d)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d)) #s(literal 2 binary64))) (fma.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) d) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d)) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d)) (fma.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d) #s(literal 1 binary64)) #s(literal 1 binary64)))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d)) #s(literal 2 binary64)) (fma.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) d) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d)) (fma.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d) #s(literal 1 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d)) #s(literal 3 binary64)) (fma.f64 (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d)) (fma.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) d) #s(literal 1 binary64)) #s(literal 1 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) d)))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d)) (/.f64 (.f64 (/.f64 (*.f64 M M) l) h) d)))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D))) (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l))))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d)) (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d))
(.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 D D))) (.f64 (.f64 (/.f64 h (*.f64 d d)) M) (/.f64 M l)))
(.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) (neg.f64 d)) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) (neg.f64 d)))
(.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (neg.f64 d)) (/.f64 (.f64 (/.f64 (*.f64 M M) l) h) (neg.f64 d)))
(.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) (fabs.f64 d)) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) (fabs.f64 d)))
(.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (fabs.f64 d)) (/.f64 (.f64 (/.f64 (*.f64 M M) l) h) (fabs.f64 d)))
(.f64 (/.f64 #s(literal 1/4 binary64) (neg.f64 d)) (/.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) (*.f64 D D)) (neg.f64 d)))
(.f64 (/.f64 #s(literal 1/4 binary64) (fabs.f64 d)) (/.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) (*.f64 D D)) (fabs.f64 d)))
(.f64 (/.f64 #s(literal 1/4 binary64) d) (/.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) (*.f64 D D)) d))
(.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l))))
(.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) d))
(.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d) (/.f64 (.f64 (/.f64 (*.f64 M M) l) h) d))
(.f64 (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d)) #s(literal 1 binary64))
(.f64 (.f64 (/.f64 (.f64 M M) l) h) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 d d)))
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 D D)))
(.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal 1/4 binary64) (.f64 D D)))
(.f64 (.f64 D D) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l))))
(.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d)))
(/.f64 (/.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) #s(literal 1/4 binary64)) (*.f64 D D)) (neg.f64 d)) (neg.f64 d))
(/.f64 (/.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) #s(literal 1/4 binary64)) (*.f64 D D)) (fabs.f64 d)) (fabs.f64 d))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d))) #s(literal 2 binary64))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 (.f64 M M) l) h) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d))) d)
(/.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 M M) l) h) (.f64 D D)))) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) #s(literal 1/4 binary64)) (.f64 D D))) (*.f64 d d))
(/.f64 (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d) (.f64 (/.f64 (*.f64 M M) l) h)) d)
(/.f64 (neg.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) d))) (neg.f64 d))
(/.f64 (neg.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 M M) l) h) (.f64 D D)))) (.f64 d d))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (.f64 M M) l) h) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d))) (*.f64 d #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 M M) l) h) (.f64 D D)))) (.f64 #s(literal 2 binary64) (.f64 (neg.f64 d) d)))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) #s(literal 1/4 binary64)) (.f64 D D))) (.f64 #s(literal 2 binary64) (.f64 d d)))
(/.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) d)) d)
(/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l))
(/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 M M) l) h) (.f64 D D))) (.f64 (neg.f64 d) d))
(/.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) #s(literal 1/4 binary64)) (.f64 D D)) (.f64 d d))
(neg.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 M M) l) h) (.f64 D D))) (.f64 d d)))
(neg.f64 (/.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) #s(literal 1/4 binary64)) (.f64 D D)) (.f64 (neg.f64 d) d)))
(.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) (*.f64 #s(literal 1/4 binary64) D)) D)
(.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) #s(literal 1/4 binary64)) (*.f64 D D))
(.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (*.f64 M M)) (/.f64 h l))
(.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) (*.f64 D D)) #s(literal 1/4 binary64))
(.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (/.f64 (*.f64 M M) l) h)))
(.f64 (.f64 (/.f64 (.f64 M M) l) h) (.f64 #s(literal 1/4 binary64) (*.f64 D D)))
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) l) h))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 (.f64 M M) l) h) (*.f64 D D)))
(.f64 (.f64 M M) (.f64 (/.f64 h l) (.f64 #s(literal 1/4 binary64) (*.f64 D D))))
(.f64 (.f64 D D) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (*.f64 M M) l) h)))
(/.f64 (.f64 (.f64 (.f64 (neg.f64 M) M) h) (.f64 #s(literal 1/4 binary64) (*.f64 D D))) (neg.f64 l))
(/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (*.f64 (neg.f64 M) M) h)) (neg.f64 l))
(/.f64 (neg.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (*.f64 M h))) (neg.f64 l))
(/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (*.f64 M h)) l)
(.f64 (.f64 #s(literal 1/4 binary64) (neg.f64 D)) (neg.f64 D))
(.f64 (.f64 #s(literal 1/4 binary64) (fabs.f64 D)) (fabs.f64 D))
(.f64 (.f64 #s(literal 1/4 binary64) D) D)
(.f64 (neg.f64 D) (.f64 (neg.f64 D) #s(literal 1/4 binary64)))
(.f64 (fabs.f64 D) (.f64 (fabs.f64 D) #s(literal 1/4 binary64)))
(.f64 #s(literal 1/4 binary64) (.f64 D D))
(.f64 (.f64 D D) #s(literal 1/4 binary64))
(.f64 D (.f64 #s(literal 1/4 binary64) D))
#s(literal 1/4 binary64)
(.f64 (.f64 M h) (/.f64 M l))
(.f64 (neg.f64 M) (.f64 (neg.f64 M) (/.f64 h l)))
(.f64 (fabs.f64 M) (.f64 (fabs.f64 M) (/.f64 h l)))
(.f64 (/.f64 (.f64 M M) l) h)
(.f64 (.f64 M M) (/.f64 h l))
(.f64 M (.f64 M (/.f64 h l)))
(.f64 M (/.f64 (.f64 M h) l))
(.f64 (/.f64 h l) (.f64 M M))
(.f64 h (/.f64 (.f64 M M) l))
(/.f64 (neg.f64 (.f64 (.f64 (neg.f64 M) M) h)) (neg.f64 (neg.f64 l)))
(/.f64 (.f64 (.f64 (neg.f64 M) M) h) (neg.f64 l))
(/.f64 (.f64 (.f64 M M) h) l)
(neg.f64 (/.f64 (.f64 (.f64 (neg.f64 M) M) h) l))
(neg.f64 (/.f64 (.f64 (.f64 M M) h) (neg.f64 l)))
(.f64 (.f64 h (neg.f64 M)) (neg.f64 M))
(.f64 (.f64 h (fabs.f64 M)) (fabs.f64 M))
(.f64 (.f64 M h) M)
(.f64 (neg.f64 M) (.f64 (neg.f64 M) h))
(.f64 (fabs.f64 M) (.f64 (fabs.f64 M) h))
(.f64 (.f64 M M) h)
(.f64 M (.f64 M h))
(.f64 h (.f64 M M))

eval144.0ms (1.8%)

Memory: -10.0MiB live, 233.0MiB allocated; 81ms collecting garbage
Compiler: Compiled 33 564 to 4 351 computations (87% saved)

prune41.0ms (0.5%)

Memory

6.2MiB live, 104.2MiB allocated; 10ms collecting garbage

Pruning

26 alts after pruning (25 fresh and 1 done)

	Pruned	Kept	Total
New	832	20	852
Fresh	2	5	7
Picked	4	1	5
Done	0	0	0
Total	838	26	864

Accuracy

89.7%

Counts

864 → 26

Alt Table

Click to see full alt table

Status	Accuracy	Program
	80.3%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) (.f64 M D)) (.f64 l (*.f64 d #s(literal 2 binary64)))))))
	83.4%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 h l)))))
	82.2%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 M D) h) (.f64 (.f64 d #s(literal 2 binary64)) l)) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))))))
	69.4%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 D M) (.f64 D M)) (.f64 (.f64 d #s(literal 2 binary64)) (.f64 d #s(literal 2 binary64)))) (/.f64 h l)))))
▶	84.6%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))))
	65.6%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(approx (pow (/ (* M D) (* 2 d)) 2) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 M d) (/.f64 M d)))) (/.f64 h l)))))
	66.8%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
	67.8%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) (.f64 #s(literal 1/4 binary64) D)) D) (.f64 d d))))))
▶	57.4%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l))))))
	18.9%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/4 binary64) D)) D))))
	17.2%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (/.f64 h (.f64 d d)))) M) (/.f64 M l)))))
	15.8%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (.f64 d l))))))
▶	16.3%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 (/.f64 h l) d))))))
	17.7%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (.f64 M h) l))))))
	16.2%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (*.f64 d d) l)))))))
	71.1%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
	69.4%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (*.f64 d d)))) M) (/.f64 M l) #s(literal 1 binary64))))
▶	59.4%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64))))
	57.1%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 M M) d) (/.f64 (/.f64 h l) d)) #s(literal 1 binary64))))
	56.9%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (*.f64 M h) l)) #s(literal 1 binary64))))
	55.1%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (/.f64 (.f64 M M) l) (*.f64 d d))) #s(literal 1 binary64))))
	54.4%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (.f64 M M) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
▶	56.1%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
	11.7%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))))
	50.5%	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) w0))
✓	66.2%	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Compiler

Compiled 1 784 to 1 344 computations (24.7% saved)

series149.0ms (1.9%)

Memory

-22.2MiB live, 204.9MiB allocated; 36ms collecting garbage

Counts

58 → 237

Calls

Call 1

Inputs
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))))
w0
(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))))
(-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))
#s(literal 1 binary64)
(.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))
(.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)))
(/.f64 h l)
h
l
(*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))
(/.f64 D #s(literal 2 binary64))
D
#s(literal 2 binary64)
(/.f64 M d)
M
d
(.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))
#s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))
(*.f64 #s(literal 1/2 binary64) D)
#s(literal 1/2 binary64)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64)))
(fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))
(.f64 #s(literal -1/8 binary64) (.f64 D D))
#s(literal -1/8 binary64)
(*.f64 D D)
(.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l)))
(/.f64 (.f64 M h) (.f64 (*.f64 d d) l))
(*.f64 M h)
(.f64 (.f64 d d) l)
(*.f64 d d)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64)))
(fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64))
(/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l))
(.f64 (/.f64 h d) (.f64 M M))
(/.f64 h d)
(*.f64 M M)
(*.f64 d l)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l))))
(-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l)))
(/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l))
(.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (*.f64 M h))
(.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M)
(.f64 #s(literal 1/4 binary64) (.f64 D D))
#s(literal 1/4 binary64)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 (/.f64 h l) d))))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 (/.f64 h l) d)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 (/.f64 h l) d))))
(.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 (/.f64 h l) d)))
(.f64 #s(literal -1/4 binary64) (.f64 D D))
#s(literal -1/4 binary64)
(.f64 (/.f64 (.f64 M M) d) (/.f64 (/.f64 h l) d))
(/.f64 (*.f64 M M) d)
(/.f64 (/.f64 h l) d)

Outputs
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx w0 #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (/ h l) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/2 (/ (* D (* M h)) (* d l)))))
#s(approx (* (/ D 2) (/ M d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (/ M d) #s(hole binary64 (/ M d)))
#s(approx M #s(hole binary64 M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 1))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* M (/ (* M h) (* (* d d) l))) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (/ (* M h) (* (* d d) l)) #s(hole binary64 (/ (* M h) (* (pow d 2) l))))
#s(approx (* M h) #s(hole binary64 (* M h)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (/ (* (/ h d) (* M M)) (* d l)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (* (/ h d) (* M M)) #s(hole binary64 (/ (* (pow M 2) h) d)))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 1))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (* (* 1/4 (* D D)) M) (* M h)) #s(hole binary64 (* 1/4 (* (pow D 2) (* (pow M 2) h)))))
#s(approx (* (* 1/4 (* D D)) M) #s(hole binary64 (* 1/4 (* (pow D 2) M))))
#s(approx (* (* -1/4 (* D D)) (* (/ (* M M) d) (/ (/ h l) d))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (/ (* M M) d) (/ (/ h l) d)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (/ (* M M) d) #s(hole binary64 (/ (pow M 2) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ D 2) #s(hole binary64 (* 1/2 D)))
#s(approx D #s(hole binary64 D))
#s(approx (* 1/2 D) #s(hole binary64 (* 1/2 D)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* -1/8 (* D D)) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx (* 1/4 (* D D)) #s(hole binary64 (* 1/4 (pow D 2))))
#s(approx (* -1/4 (* D D)) #s(hole binary64 (* -1/4 (pow D 2))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx h #s(hole binary64 h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ h d) #s(hole binary64 (/ h d)))
#s(approx (/ (/ h l) d) #s(hole binary64 (/ h (* d l))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx l #s(hole binary64 l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* (* d d) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* d l) #s(hole binary64 (* d l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx d #s(hole binary64 d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))

Calls

18 calls:

Time	Variable		Point	Expression
36.0ms	l	@	inf	((* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (* (/ h l) (* (/ D 2) (/ M d))) (/ h l) h l (* (/ D 2) (/ M d)) (/ D 2) D 2 (/ M d) M d (* (/ D 2) (/ M d)) (/ D 2) (* 1/2 D) 1/2 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) (* -1/8 (* D D)) -1/8 (* D D) (* M (/ (* M h) (* (* d d) l))) (/ (* M h) (* (* d d) l)) (* M h) (* (* d d) l) (* d d) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (/ (* (/ h d) (* M M)) (* d l)) (* (/ h d) (* M M)) (/ h d) (* M M) (* d l) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l)) (* (* (* 1/4 (* D D)) M) (* M h)) (* (* 1/4 (* D D)) M) (* 1/4 (* D D)) 1/4 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (* (* -1/4 (* D D)) (* (/ (* M M) d) (/ (/ h l) d))) (* -1/4 (* D D)) -1/4 (* (/ (* M M) d) (/ (/ h l) d)) (/ (* M M) d) (/ (/ h l) d))
9.0ms	h	@	0	((* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (* (/ h l) (* (/ D 2) (/ M d))) (/ h l) h l (* (/ D 2) (/ M d)) (/ D 2) D 2 (/ M d) M d (* (/ D 2) (/ M d)) (/ D 2) (* 1/2 D) 1/2 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) (* -1/8 (* D D)) -1/8 (* D D) (* M (/ (* M h) (* (* d d) l))) (/ (* M h) (* (* d d) l)) (* M h) (* (* d d) l) (* d d) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (/ (* (/ h d) (* M M)) (* d l)) (* (/ h d) (* M M)) (/ h d) (* M M) (* d l) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l)) (* (* (* 1/4 (* D D)) M) (* M h)) (* (* 1/4 (* D D)) M) (* 1/4 (* D D)) 1/4 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (* (* -1/4 (* D D)) (* (/ (* M M) d) (/ (/ h l) d))) (* -1/4 (* D D)) -1/4 (* (/ (* M M) d) (/ (/ h l) d)) (/ (* M M) d) (/ (/ h l) d))
9.0ms	M	@	-inf	((* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (* (/ h l) (* (/ D 2) (/ M d))) (/ h l) h l (* (/ D 2) (/ M d)) (/ D 2) D 2 (/ M d) M d (* (/ D 2) (/ M d)) (/ D 2) (* 1/2 D) 1/2 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) (* -1/8 (* D D)) -1/8 (* D D) (* M (/ (* M h) (* (* d d) l))) (/ (* M h) (* (* d d) l)) (* M h) (* (* d d) l) (* d d) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (/ (* (/ h d) (* M M)) (* d l)) (* (/ h d) (* M M)) (/ h d) (* M M) (* d l) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l)) (* (* (* 1/4 (* D D)) M) (* M h)) (* (* 1/4 (* D D)) M) (* 1/4 (* D D)) 1/4 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (* (* -1/4 (* D D)) (* (/ (* M M) d) (/ (/ h l) d))) (* -1/4 (* D D)) -1/4 (* (/ (* M M) d) (/ (/ h l) d)) (/ (* M M) d) (/ (/ h l) d))
7.0ms	M	@	inf	((* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (* (/ h l) (* (/ D 2) (/ M d))) (/ h l) h l (* (/ D 2) (/ M d)) (/ D 2) D 2 (/ M d) M d (* (/ D 2) (/ M d)) (/ D 2) (* 1/2 D) 1/2 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) (* -1/8 (* D D)) -1/8 (* D D) (* M (/ (* M h) (* (* d d) l))) (/ (* M h) (* (* d d) l)) (* M h) (* (* d d) l) (* d d) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (/ (* (/ h d) (* M M)) (* d l)) (* (/ h d) (* M M)) (/ h d) (* M M) (* d l) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l)) (* (* (* 1/4 (* D D)) M) (* M h)) (* (* 1/4 (* D D)) M) (* 1/4 (* D D)) 1/4 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (* (* -1/4 (* D D)) (* (/ (* M M) d) (/ (/ h l) d))) (* -1/4 (* D D)) -1/4 (* (/ (* M M) d) (/ (/ h l) d)) (/ (* M M) d) (/ (/ h l) d))
7.0ms	h	@	-inf	((* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (* (/ h l) (* (/ D 2) (/ M d))) (/ h l) h l (* (/ D 2) (/ M d)) (/ D 2) D 2 (/ M d) M d (* (/ D 2) (/ M d)) (/ D 2) (* 1/2 D) 1/2 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) (* -1/8 (* D D)) -1/8 (* D D) (* M (/ (* M h) (* (* d d) l))) (/ (* M h) (* (* d d) l)) (* M h) (* (* d d) l) (* d d) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (/ (* (/ h d) (* M M)) (* d l)) (* (/ h d) (* M M)) (/ h d) (* M M) (* d l) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l)) (* (* (* 1/4 (* D D)) M) (* M h)) (* (* 1/4 (* D D)) M) (* 1/4 (* D D)) 1/4 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (* (* -1/4 (* D D)) (* (/ (* M M) d) (/ (/ h l) d))) (* -1/4 (* D D)) -1/4 (* (/ (* M M) d) (/ (/ h l) d)) (/ (* M M) d) (/ (/ h l) d))

simplify185.0ms (2.3%)

Memory

17.1MiB live, 241.0MiB allocated; 49ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	935	14401
1	2901	13173
0	8226	12848

Stop Event

1×	iter limit
1×	node limit

Counts

237 → 237

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx w0 #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (/ h l) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/2 (/ (* D (* M h)) (* d l)))))
#s(approx (* (/ D 2) (/ M d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (/ M d) #s(hole binary64 (/ M d)))
#s(approx M #s(hole binary64 M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 1))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* M (/ (* M h) (* (* d d) l))) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (/ (* M h) (* (* d d) l)) #s(hole binary64 (/ (* M h) (* (pow d 2) l))))
#s(approx (* M h) #s(hole binary64 (* M h)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (/ (* (/ h d) (* M M)) (* d l)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (* (/ h d) (* M M)) #s(hole binary64 (/ (* (pow M 2) h) d)))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 1))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (* (* 1/4 (* D D)) M) (* M h)) #s(hole binary64 (* 1/4 (* (pow D 2) (* (pow M 2) h)))))
#s(approx (* (* 1/4 (* D D)) M) #s(hole binary64 (* 1/4 (* (pow D 2) M))))
#s(approx (* (* -1/4 (* D D)) (* (/ (* M M) d) (/ (/ h l) d))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (/ (* M M) d) (/ (/ h l) d)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (/ (* M M) d) #s(hole binary64 (/ (pow M 2) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ D 2) #s(hole binary64 (* 1/2 D)))
#s(approx D #s(hole binary64 D))
#s(approx (* 1/2 D) #s(hole binary64 (* 1/2 D)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* -1/8 (* D D)) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx (* 1/4 (* D D)) #s(hole binary64 (* 1/4 (pow D 2))))
#s(approx (* -1/4 (* D D)) #s(hole binary64 (* -1/4 (pow D 2))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx h #s(hole binary64 h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ h d) #s(hole binary64 (/ h d)))
#s(approx (/ (/ h l) d) #s(hole binary64 (/ h (* d l))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx l #s(hole binary64 l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* (* d d) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* d l) #s(hole binary64 (* d l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx d #s(hole binary64 d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))

Outputs
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (sqrt.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal 1 binary64))) w0))
#s(approx w0 #s(hole binary64 w0))
#s(approx w0 w0)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (sqrt.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal 1 binary64))) w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 d l)) w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 (.f64 h h) w0) (.f64 M M)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 D D) h) w0) (.f64 d l)))) (.f64 M M) w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 D D) h) w0) l) (.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (.f64 M M)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 h h) w0) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) (.f64 M M))) (.f64 M M) w0))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(literal 1 binary64))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) d) l) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 M h) (.f64 M h)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 D D) h) l))) (.f64 M M) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 M M)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 h h) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) (.f64 M M) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 D D) h) l))) (*.f64 M M) #s(literal 1 binary64)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(literal 1 binary64))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (/.f64 (.f64 (*.f64 M M) h) l)) #s(literal 1 binary64)))
#s(approx (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (.f64 (/.f64 (.f64 (.f64 D D) #s(literal 1/4 binary64)) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l)))
#s(approx (* (/ h l) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/2 (/ (* D (* M h)) (* d l)))))
#s(approx (* (/ h l) (* (/ D 2) (/ M d))) (.f64 (/.f64 #s(literal 1/2 binary64) d) (/.f64 (.f64 (*.f64 M h) D) l)))
#s(approx (* (/ D 2) (/ M d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (* (/ D 2) (/ M d)) (.f64 (.f64 D (/.f64 M d)) #s(literal 1/2 binary64)))
#s(approx (/ M d) #s(hole binary64 (/ M d)))
#s(approx (/ M d) (/.f64 M d))
#s(approx M #s(hole binary64 M))
#s(approx M M)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 d l)) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 (.f64 h h) w0) (.f64 M M)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 D D) h) w0) (.f64 d l)))) (.f64 M M) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 D D) h) w0) l) (.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (.f64 M M)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 h h) w0) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) (.f64 M M))) (.f64 M M) w0))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(literal 1 binary64))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) d) l) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 M h) (.f64 M h)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 D D) h) l))) (.f64 M M) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 M M)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 h h) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) (.f64 M M) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 D D) h) l))) (*.f64 M M) #s(literal 1 binary64)))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 1))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(literal 1 binary64))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) d) l) #s(literal 1 binary64)))
#s(approx (* M (/ (* M h) (* (* d d) l))) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (* M (/ (* M h) (* (* d d) l))) (.f64 (/.f64 (.f64 (/.f64 h d) M) d) (/.f64 M l)))
#s(approx (/ (* M h) (* (* d d) l)) #s(hole binary64 (/ (* M h) (* (pow d 2) l))))
#s(approx (/ (* M h) (* (* d d) l)) (.f64 (/.f64 M l) (/.f64 h (.f64 d d))))
#s(approx (* M h) #s(hole binary64 (* M h)))
#s(approx (* M h) (*.f64 M h))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(literal 1 binary64))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) d) l) #s(literal 1 binary64)))
#s(approx (/ (* (/ h d) (* M M)) (* d l)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (* (/ (* M M) d) (/ (/ h l) d)) (.f64 (/.f64 (.f64 (/.f64 h d) M) d) (/.f64 M l)))
#s(approx (* (/ h d) (* M M)) #s(hole binary64 (/ (* (pow M 2) h) d)))
#s(approx (* (/ h d) (* M M)) (/.f64 (.f64 (.f64 M M) h) d))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx (* M M) (*.f64 M M))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(literal 1 binary64))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (/.f64 (.f64 (*.f64 M M) h) l)) #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 1))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(literal 1 binary64))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (/.f64 (.f64 (*.f64 M M) h) l)) #s(literal 1 binary64)))
#s(approx (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l)) (.f64 (/.f64 (.f64 (.f64 D D) #s(literal 1/4 binary64)) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l)))
#s(approx (* (* (* 1/4 (* D D)) M) (* M h)) #s(hole binary64 (* 1/4 (* (pow D 2) (* (pow M 2) h)))))
#s(approx (* (* (* 1/4 (* D D)) M) (* M h)) (.f64 (.f64 (.f64 D D) #s(literal 1/4 binary64)) (.f64 (*.f64 M M) h)))
#s(approx (* (* 1/4 (* D D)) M) #s(hole binary64 (* 1/4 (* (pow D 2) M))))
#s(approx (* (* 1/4 (* D D)) M) (.f64 (.f64 (*.f64 D D) #s(literal 1/4 binary64)) M))
#s(approx (* (* -1/4 (* D D)) (* (/ (* M M) d) (/ (/ h l) d))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (* -1/4 (* D D)) (* (/ (* M M) d) (/ (/ h l) d))) (.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l))))
#s(approx (* (/ (* M M) d) (/ (/ h l) d)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (* (/ (* M M) d) (/ (/ h l) d)) (.f64 (/.f64 (.f64 (/.f64 h d) M) d) (/.f64 M l)))
#s(approx (/ (* M M) d) #s(hole binary64 (/ (pow M 2) d)))
#s(approx (/ (* M M) d) (*.f64 M (/.f64 M d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 (/.f64 d (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 d (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 d (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 D D) l))) (.f64 M M))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 (/.f64 d (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 d (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 d (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) d) (/.f64 (/.f64 (.f64 (*.f64 M M) h) d) l)))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 D D) h) l)) (*.f64 M M) #s(literal 1 binary64)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) d) (/.f64 (/.f64 (.f64 (*.f64 M M) h) d) l)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 D D) h) l)) (*.f64 M M) #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 D D) l))) (.f64 M M))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 D D) l))) (.f64 M M))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (.f64 (neg.f64 D) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 M) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 M) (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (.f64 (neg.f64 D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (.f64 (/.f64 d (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 d (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 d (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (.f64 (neg.f64 D) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 M) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 M) (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (.f64 (neg.f64 D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (.f64 (/.f64 d (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 d (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 d (.f64 D (.f64 M M))) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) h) w0) l))) (.f64 D D) w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))))) (.f64 D D) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) h) w0) l))) (.f64 D D) w0))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) (.f64 D D) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))))) (.f64 D D) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) (*.f64 D D) #s(literal 1 binary64)))
#s(approx (/ D 2) #s(hole binary64 (* 1/2 D)))
#s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))
#s(approx D #s(hole binary64 D))
#s(approx D D)
#s(approx (* 1/2 D) #s(hole binary64 (* 1/2 D)))
#s(approx (* 1/2 D) (*.f64 #s(literal 1/2 binary64) D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) h) w0) l))) (.f64 D D) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))))) (.f64 D D) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) h) w0) l))) (.f64 D D) w0))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) (.f64 D D) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))))) (.f64 D D) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) (*.f64 D D) #s(literal 1 binary64)))
#s(approx (* -1/8 (* D D)) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (* -1/8 (* D D)) (.f64 #s(literal -1/8 binary64) (.f64 D D)))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx (* D D) (*.f64 D D))
#s(approx (* 1/4 (* D D)) #s(hole binary64 (* 1/4 (pow D 2))))
#s(approx (* 1/4 (* D D)) (.f64 (.f64 D D) #s(literal 1/4 binary64)))
#s(approx (* -1/4 (* D D)) #s(hole binary64 (* -1/4 (pow D 2))))
#s(approx (* -1/4 (* D D)) (.f64 #s(literal -1/4 binary64) (.f64 D D)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D D) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D D) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D D) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 (/.f64 d (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 D D))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 d (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 D D))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 d (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 D D))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (/.f64 h d) M) d) (/.f64 M l))) (*.f64 D D))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D D) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D D) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D D) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 (/.f64 d (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 D D))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 d (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 D D))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 d (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 D D))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l)) (*.f64 D D) #s(literal 1 binary64)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l)) (*.f64 D D) #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (/.f64 h d) M) d) (/.f64 M l))) (*.f64 D D))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (/.f64 h d) M) d) (/.f64 M l))) (*.f64 D D))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 D) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D D) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D D) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D D) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (.f64 (/.f64 d (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 D D))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 d (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 D D))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 d (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 D D))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 D) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D D) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D D) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D D) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (.f64 (/.f64 d (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 D D))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 d (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 D D))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 d (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 D D))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) w0) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 M M) w0) (.f64 D D)) (.f64 d l)))) h w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) w0) (.f64 D D)) l) (.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) w0) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (*.f64 (pow.f64 M #s(literal 4 binary64)) w0) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) h)) h w0))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l)))) h #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) l) (.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) h)) h #s(literal 1 binary64)))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx (/ h l) (/.f64 h l))
#s(approx h #s(hole binary64 h))
#s(approx h h)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) w0) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 M M) w0) (.f64 D D)) (.f64 d l)))) h w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) w0) (.f64 D D)) l) (.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) w0) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (*.f64 (pow.f64 M #s(literal 4 binary64)) w0) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) h)) h w0))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l)))) h #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) l) (.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))))) h)) h #s(literal 1 binary64)))
#s(approx (/ h d) #s(hole binary64 (/ h d)))
#s(approx (/ h d) (/.f64 h d))
#s(approx (/ (/ h l) d) #s(hole binary64 (/ h (* d l))))
#s(approx (/ (/ h l) d) (/.f64 (/.f64 h d) l))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 M D)) (/.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) h))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 M D)) (/.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))) h))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 M D)) (/.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))))) h))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) h))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d)))) h))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 1/16 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))))) h))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 M D)) (/.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 M D)) (/.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))) h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 M D)) (/.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))))) h))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) h))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d)))) h))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 1/16 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))))) h))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 (*.f64 d w0) M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 (.f64 d w0) M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (pow.f64 M #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 2 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 (*.f64 d w0) M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 d M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 d M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 M #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 2 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 d M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 (*.f64 d w0) M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 (.f64 d w0) M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (pow.f64 M #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 2 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 (*.f64 d w0) M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 d M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 d M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 M #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 2 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 d M) (/.f64 (sqrt.f64 #s(literal -1 binary64)) D)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) (.f64 (neg.f64 h) (-.f64 (.f64 (/.f64 #s(literal 1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) (/.f64 #s(literal 1 binary64) h))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (.f64 (neg.f64 h) (-.f64 (.f64 (/.f64 #s(literal 1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) (/.f64 #s(literal 1 binary64) h))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 M D)) (/.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 w0 (.f64 M D)) (/.f64 d (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))))) (.f64 l l) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 w0 (.f64 M D)) (/.f64 d (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))))) (.f64 l l) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (/.f64 (-.f64 l (.f64 (/.f64 (.f64 (.f64 D D) #s(literal 1/4 binary64)) d) (/.f64 (.f64 (*.f64 M M) h) d))) l))
#s(approx l #s(hole binary64 l))
#s(approx l l)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 M D)) (/.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 w0 (.f64 M D)) (/.f64 d (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))))) (.f64 l l) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 w0 (.f64 M D)) (/.f64 d (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))))) (.f64 l l) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) d) (/.f64 (.f64 (.f64 M M) h) d)) #s(literal -1/8 binary64) l) l))
#s(approx (* (* d d) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx (* (* d d) l) (.f64 (.f64 d d) l))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) d) (/.f64 (.f64 (.f64 M M) h) d)) #s(literal -1/8 binary64) l) l))
#s(approx (* d l) #s(hole binary64 (* d l)))
#s(approx (* d l) (*.f64 d l))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (/.f64 (-.f64 l (.f64 (/.f64 (.f64 (.f64 D D) #s(literal 1/4 binary64)) d) (/.f64 (.f64 (*.f64 M M) h) d))) l))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (/.f64 (-.f64 l (.f64 (/.f64 (.f64 (.f64 D D) #s(literal 1/4 binary64)) d) (/.f64 (.f64 (*.f64 M M) h) d))) l))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (*.f64 d l)) w0)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 d l)))) (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) w0)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) d) l) (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (+.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) d) (/.f64 (/.f64 (.f64 (*.f64 M M) h) d) l) #s(literal 1 binary64))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (*.f64 d l)) w0)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 d l)))) (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) w0)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) d) l) (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (+.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) d) (/.f64 (/.f64 (.f64 (*.f64 M M) h) d) l) #s(literal 1 binary64))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (-.f64 w0 (/.f64 (fma.f64 (/.f64 #s(literal 1/128 binary64) l) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) w0) d) (/.f64 (.f64 D D) d)) #s(literal 1/8 binary64))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (-.f64 w0 (/.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) d) (/.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) l) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (*.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/128 binary64) l) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (/.f64 (.f64 D D) d) (/.f64 (.f64 (.f64 M M) h) d)) #s(literal 1/8 binary64))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) d) (/.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) l) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (-.f64 w0 (/.f64 (fma.f64 (/.f64 #s(literal 1/128 binary64) l) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) w0) d) (/.f64 (.f64 D D) d)) #s(literal 1/8 binary64))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (-.f64 w0 (/.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) d) (/.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) l) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (*.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/128 binary64) l) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (/.f64 (.f64 D D) d) (/.f64 (.f64 (.f64 M M) h) d)) #s(literal 1/8 binary64))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) d) (/.f64 (fma.f64 (/.f64 #s(literal -1/1024 binary64) l) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 d d) w0) (.f64 M D)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (.f64 (.f64 (.f64 d d) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 d d) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (.f64 M D)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (.f64 (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D)) #s(literal 1/2 binary64))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (.f64 (/.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) #s(literal -1/8 binary64))) (.f64 d d) (.f64 (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D)) #s(literal 1/2 binary64))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 D D) (/.f64 (.f64 (*.f64 M M) h) l)) d) (/.f64 #s(literal 1/4 binary64) d))))
#s(approx d #s(hole binary64 d))
#s(approx d d)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 d d) w0) (.f64 M D)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (.f64 (.f64 (.f64 d d) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 d d) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (.f64 M D)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (.f64 (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D)) #s(literal 1/2 binary64))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (.f64 (/.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) #s(literal -1/8 binary64))) (.f64 d d) (.f64 (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D)) #s(literal 1/2 binary64))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (/ (* M h) (* (* d d) l)))) 1) (fma.f64 (/.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) d) (/.f64 #s(literal -1/8 binary64) d) #s(literal 1 binary64)))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (* d d) (*.f64 d d))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (/.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) d) (/.f64 #s(literal -1/8 binary64) d) #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 D D) (/.f64 (.f64 (*.f64 M M) h) l)) d) (/.f64 #s(literal 1/4 binary64) d))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 D D) (/.f64 (.f64 (*.f64 M M) h) l)) d) (/.f64 #s(literal 1/4 binary64) d))))

rewrite131.0ms (1.7%)

Memory

16.8MiB live, 119.3MiB allocated; 40ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	67	722
0	110	722
1	339	722
0	2509	722

Stop Event

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

Counts

58 → 677

Calls

Call 1

Inputs
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))))
w0
(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))))
(-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))
#s(literal 1 binary64)
(.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))
(.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)))
(/.f64 h l)
h
l
(*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))
(/.f64 D #s(literal 2 binary64))
D
#s(literal 2 binary64)
(/.f64 M d)
M
d
(.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))
#s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))
(*.f64 #s(literal 1/2 binary64) D)
#s(literal 1/2 binary64)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64)))
(fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))
(.f64 #s(literal -1/8 binary64) (.f64 D D))
#s(literal -1/8 binary64)
(*.f64 D D)
(.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l)))
(/.f64 (.f64 M h) (.f64 (*.f64 d d) l))
(*.f64 M h)
(.f64 (.f64 d d) l)
(*.f64 d d)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64)))
(fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64))
(/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l))
(.f64 (/.f64 h d) (.f64 M M))
(/.f64 h d)
(*.f64 M M)
(*.f64 d l)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l))))
(-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l)))
(/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l))
(.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (*.f64 M h))
(.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M)
(.f64 #s(literal 1/4 binary64) (.f64 D D))
#s(literal 1/4 binary64)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 (/.f64 h l) d))))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 (/.f64 h l) d)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 (/.f64 h l) d))))
(.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 (/.f64 h l) d)))
(.f64 #s(literal -1/4 binary64) (.f64 D D))
#s(literal -1/4 binary64)
(.f64 (/.f64 (.f64 M M) d) (/.f64 (/.f64 h l) d))
(/.f64 (*.f64 M M) d)
(/.f64 (/.f64 h l) d)

Outputs
(.f64 (sqrt.f64 (fma.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 (/.f64 M d))) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) (/.f64 M d) #s(literal 1 binary64))) w0)
(.f64 w0 (sqrt.f64 (fma.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 (/.f64 M d))) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) (/.f64 M d) #s(literal 1 binary64))))
w0
(.f64 (pow.f64 (fma.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 (/.f64 M d))) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (/.f64 M d) #s(literal 1 binary64)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 (/.f64 M d))) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) (/.f64 M d) #s(literal 1 binary64)) #s(literal 1/4 binary64)))
(pow.f64 (fma.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 (/.f64 M d))) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (/.f64 M d) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1 binary64))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) (fma.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1 binary64)) #s(literal 1 binary64))))
(sqrt.f64 (fma.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 (/.f64 M d))) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (/.f64 M d) #s(literal 1 binary64)))
(exp.f64 (.f64 (log1p.f64 (.f64 (neg.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 (/.f64 M d))) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 (/.f64 M d))) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) (fma.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) #s(literal 2 binary64))) (fma.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) (fma.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1 binary64)) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 (/.f64 M d))) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (/.f64 M d) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 (/.f64 M d))) (/.f64 M d)) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 (/.f64 M d))) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) #s(literal 1 binary64))
(fma.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 (/.f64 M d))) #s(literal 1 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) #s(literal 2 binary64)) (fma.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) (fma.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) (fma.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1 binary64)) #s(literal 1 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 (/.f64 M d)))) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))
(-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)))
(+.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 (/.f64 M d))) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))) (/.f64 M d)))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (.f64 (*.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (.f64 (/.f64 (neg.f64 h) l) (.f64 (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (/.f64 M d)) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)))))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 (/.f64 M d))) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))
#s(literal 1 binary64)
(.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l))) (/.f64 M d))
(.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M))
(.f64 (.f64 (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (/.f64 M d)) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))) (/.f64 M d))
(.f64 (.f64 #s(literal 1 binary64) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 h l)) (.f64 (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (/.f64 M d)) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))))
(.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (/.f64 M d)) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) (/.f64 h l))
(.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (.f64 (/.f64 M d) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))
(.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (/.f64 M d))
(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (/.f64 h l) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))
(.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) #s(literal 1 binary64))
(.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (.f64 (*.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))))
(.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (.f64 (/.f64 M d) (.f64 (*.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))))
(.f64 (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))
(.f64 (/.f64 M d) (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))
(.f64 (/.f64 h l) (.f64 (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (/.f64 M d)) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))))
(.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)))
(/.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) M) (.f64 (*.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))) d)
(/.f64 (.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) l)
(/.f64 (.f64 (neg.f64 h) (.f64 (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (/.f64 M d)) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)))) (neg.f64 l))
(/.f64 (.f64 h (.f64 (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (/.f64 M d)) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)))) l)
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (/.f64 h l)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (neg.f64 M)) (neg.f64 d))
(/.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) M) d)
(/.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)) (.f64 (*.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d))) l)
(/.f64 (.f64 (.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) M)) d)
(/.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) M) (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d))) (.f64 d l))
(/.f64 (.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) M)) (.f64 d l))
(.f64 (.f64 (/.f64 h l) (/.f64 M #s(literal 2 binary64))) (/.f64 D d))
(.f64 (.f64 (/.f64 h l) (/.f64 M d)) (/.f64 D #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 h l) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (/.f64 M d))
(.f64 (/.f64 M #s(literal 2 binary64)) (.f64 (/.f64 D d) (/.f64 h l)))
(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (/.f64 h l))
(.f64 (/.f64 M d) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)))
(.f64 M (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) (/.f64 h l)))
(.f64 (/.f64 D #s(literal 2 binary64)) (.f64 (/.f64 M d) (/.f64 h l)))
(.f64 (/.f64 h l) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M))
(.f64 h (/.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) l))
(/.f64 (.f64 (.f64 (/.f64 M d) D) (/.f64 h l)) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 M (/.f64 D #s(literal 2 binary64))) (/.f64 h l)) d)
(/.f64 (.f64 (.f64 (neg.f64 M) D) (/.f64 h l)) (*.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 (.f64 M D) (/.f64 h l)) (*.f64 d #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 h) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) (neg.f64 l))
(/.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) (neg.f64 M)) (neg.f64 d))
(/.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 h l)) M) d)
(/.f64 (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (neg.f64 h)) (neg.f64 l))
(/.f64 (.f64 (/.f64 h l) (.f64 (/.f64 M d) D)) #s(literal 2 binary64))
(/.f64 (.f64 (/.f64 h l) (.f64 M (/.f64 D #s(literal 2 binary64)))) d)
(/.f64 (.f64 (/.f64 h l) (.f64 (neg.f64 M) D)) (*.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 (/.f64 h l) (.f64 M D)) (*.f64 d #s(literal 2 binary64)))
(/.f64 (neg.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d))) (neg.f64 l))
(/.f64 (.f64 (.f64 (/.f64 M d) D) (neg.f64 h)) (*.f64 #s(literal 2 binary64) (neg.f64 l)))
(/.f64 (.f64 (.f64 (/.f64 M d) D) h) (*.f64 #s(literal 2 binary64) l))
(/.f64 (.f64 (.f64 M (/.f64 D #s(literal 2 binary64))) (neg.f64 h)) (*.f64 (neg.f64 d) l))
(/.f64 (.f64 (.f64 M (/.f64 D #s(literal 2 binary64))) h) (*.f64 d l))
(/.f64 (.f64 (.f64 (neg.f64 M) D) (neg.f64 h)) (.f64 (.f64 #s(literal -2 binary64) d) (neg.f64 l)))
(/.f64 (.f64 (.f64 (neg.f64 M) D) h) (.f64 (.f64 #s(literal -2 binary64) d) l))
(/.f64 (.f64 (.f64 M D) (neg.f64 h)) (.f64 (.f64 d #s(literal 2 binary64)) (neg.f64 l)))
(/.f64 (.f64 (.f64 M D) h) (.f64 (.f64 d #s(literal 2 binary64)) l))
(/.f64 (.f64 (neg.f64 h) (.f64 (/.f64 M d) D)) (*.f64 (neg.f64 l) #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 h) (.f64 M (/.f64 D #s(literal 2 binary64)))) (*.f64 (neg.f64 d) l))
(/.f64 (.f64 (neg.f64 h) (.f64 (neg.f64 M) D)) (.f64 (neg.f64 l) (.f64 #s(literal -2 binary64) d)))
(/.f64 (.f64 (neg.f64 h) (.f64 M D)) (.f64 (neg.f64 l) (.f64 d #s(literal 2 binary64))))
(/.f64 (.f64 h (.f64 (/.f64 M d) D)) (*.f64 l #s(literal 2 binary64)))
(/.f64 (.f64 h (.f64 M (/.f64 D #s(literal 2 binary64)))) (*.f64 d l))
(/.f64 (.f64 h (.f64 (neg.f64 M) D)) (.f64 l (.f64 #s(literal -2 binary64) d)))
(/.f64 (.f64 h (.f64 M D)) (.f64 l (.f64 d #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) l)
(/.f64 (neg.f64 (neg.f64 h)) (neg.f64 (neg.f64 l)))
(/.f64 (neg.f64 h) (neg.f64 l))
(/.f64 h l)
(neg.f64 (/.f64 (neg.f64 h) l))
h
l
(.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (/.f64 M #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 D d) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 M d) #s(literal 1 binary64)) (pow.f64 (/.f64 D #s(literal 2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 D #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 M d) #s(literal 1 binary64)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) (pow.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) #s(literal 1 binary64)))
(*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)
(*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64)))
(*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d))
(*.f64 (/.f64 M d) (/.f64 D #s(literal 2 binary64)))
(*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))
(*.f64 D (/.f64 (/.f64 M d) #s(literal 2 binary64)))
(.f64 D (/.f64 M (.f64 d #s(literal 2 binary64))))
(pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1 binary64))
(/.f64 (*.f64 M (/.f64 D d)) #s(literal 2 binary64))
(/.f64 (*.f64 (neg.f64 M) (/.f64 D #s(literal 2 binary64))) (neg.f64 d))
(/.f64 (*.f64 (neg.f64 D) (/.f64 M d)) #s(literal -2 binary64))
(/.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) D) d)
(/.f64 (*.f64 (/.f64 M d) (neg.f64 D)) #s(literal -2 binary64))
(/.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (neg.f64 M)) (neg.f64 d))
(/.f64 (neg.f64 (*.f64 (/.f64 M d) D)) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 M (/.f64 D #s(literal 2 binary64)))) (neg.f64 d))
(/.f64 (neg.f64 (.f64 (neg.f64 M) D)) (neg.f64 (.f64 #s(literal -2 binary64) d)))
(/.f64 (.f64 (neg.f64 M) (neg.f64 D)) (.f64 (neg.f64 d) #s(literal -2 binary64)))
(/.f64 (.f64 (neg.f64 D) (neg.f64 M)) (.f64 #s(literal -2 binary64) (neg.f64 d)))
(/.f64 (*.f64 (/.f64 M d) D) #s(literal 2 binary64))
(/.f64 (*.f64 M (/.f64 D #s(literal 2 binary64))) d)
(/.f64 (.f64 (neg.f64 M) D) (.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 M D) (.f64 d #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 (neg.f64 M) D) (.f64 d #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 M D) (.f64 #s(literal -2 binary64) d)))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) #s(literal 1 binary64)))
(/.f64 (neg.f64 (neg.f64 D)) #s(literal 2 binary64))
(/.f64 (neg.f64 D) #s(literal -2 binary64))
(/.f64 D #s(literal 2 binary64))
(neg.f64 (/.f64 (neg.f64 D) #s(literal 2 binary64)))
(neg.f64 (/.f64 D #s(literal -2 binary64)))
D
#s(literal 2 binary64)
(/.f64 (neg.f64 (neg.f64 M)) (neg.f64 (neg.f64 d)))
(/.f64 (neg.f64 M) (neg.f64 d))
(/.f64 M d)
(neg.f64 (/.f64 (neg.f64 M) d))
(neg.f64 (/.f64 M (neg.f64 d)))
M
d
(.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))
(.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))
(/.f64 (.f64 (neg.f64 M) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (neg.f64 d))
(/.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (neg.f64 M)) (neg.f64 d))
(/.f64 (neg.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) M)) (neg.f64 d))
(/.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) M) d)
#s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))
(*.f64 #s(literal 1/2 binary64) D)
(*.f64 D #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (fma.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l) #s(literal -1 binary64))))
(/.f64 (neg.f64 (fma.f64 #s(literal -1/512 binary64) (pow.f64 (.f64 (.f64 (.f64 D D) M) (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))) #s(literal 3 binary64)) #s(literal 1 binary64))) (neg.f64 (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l))) (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 (/.f64 h d) M) M) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 2 binary64) (.f64 (.f64 d l) #s(literal 2 binary64))) (.f64 (*.f64 d l) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 d l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 h d) M) M) (.f64 (.f64 D D) #s(literal -1/8 binary64))))) (.f64 #s(literal 2 binary64) (*.f64 d l)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64)) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l) #s(literal -1 binary64)))
(/.f64 (fma.f64 #s(literal -1/512 binary64) (pow.f64 (.f64 (.f64 (.f64 D D) M) (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)))))
(/.f64 (fma.f64 #s(literal -1/512 binary64) (pow.f64 (.f64 (.f64 (.f64 D D) M) (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l))) (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) (/.f64 (/.f64 M d) d)) (/.f64 h l) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) #s(literal -1/8 binary64)) (.f64 D D) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))) M #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (/.f64 h d) d)) (/.f64 (.f64 M M) l) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 h d)) (/.f64 (/.f64 (.f64 M M) l) d) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) l) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) l) (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) M) (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))) #s(literal -1/8 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) (.f64 (*.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))) #s(literal 1 binary64))
(fma.f64 (/.f64 (/.f64 h d) d) (.f64 (/.f64 (.f64 M M) l) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (/.f64 h d) (.f64 (/.f64 (/.f64 (.f64 M M) l) d) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 (.f64 D D) #s(literal -1/8 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)) (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (.f64 (*.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) #s(literal 1 binary64))
(fma.f64 (.f64 D D) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))) #s(literal 1 binary64))
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (.f64 D D) M) (*.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 D D) M) (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))) #s(literal 1 binary64))
(fma.f64 M (.f64 (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64)) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l) #s(literal -1 binary64))))
(-.f64 (.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M)) (*.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))) (.f64 (*.f64 D D) #s(literal -1/8 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64))) (.f64 (*.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))))
(-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 D D) M) (*.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 3 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l))) (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l))) (pow.f64 (.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)))
(.f64 (.f64 #s(literal -1/8 binary64) (neg.f64 D)) (neg.f64 D))
(.f64 (.f64 #s(literal -1/8 binary64) (fabs.f64 D)) (fabs.f64 D))
(.f64 (.f64 #s(literal -1/8 binary64) D) D)
(.f64 (neg.f64 D) (.f64 (neg.f64 D) #s(literal -1/8 binary64)))
(.f64 (fabs.f64 D) (.f64 (fabs.f64 D) #s(literal -1/8 binary64)))
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(.f64 #s(literal -1/8 binary64) (.f64 D D))
(.f64 D (.f64 #s(literal -1/8 binary64) D))
#s(literal -1/8 binary64)
(*.f64 (neg.f64 (neg.f64 D)) (neg.f64 (neg.f64 D)))
(*.f64 (neg.f64 (fabs.f64 D)) (neg.f64 (fabs.f64 D)))
(*.f64 (fabs.f64 (fabs.f64 D)) (fabs.f64 (fabs.f64 D)))
(*.f64 (pow.f64 D #s(literal 1 binary64)) (pow.f64 D #s(literal 1 binary64)))
(*.f64 (pow.f64 D #s(literal 1 binary64)) D)
(*.f64 (neg.f64 D) (neg.f64 D))
(*.f64 (fabs.f64 D) (fabs.f64 D))
(*.f64 D D)
(pow.f64 (neg.f64 D) #s(literal 2 binary64))
(pow.f64 (fabs.f64 D) #s(literal 2 binary64))
(pow.f64 D #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 D) D))
(neg.f64 (*.f64 D (neg.f64 D)))
(fabs.f64 (*.f64 D D))
(exp.f64 (*.f64 (log.f64 D) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))
(.f64 (.f64 M (/.f64 (/.f64 M d) d)) (/.f64 h l))
(.f64 (/.f64 (.f64 (/.f64 h d) M) l) (/.f64 M d))
(.f64 (/.f64 (.f64 M M) (neg.f64 d)) (/.f64 (/.f64 h l) (neg.f64 d)))
(.f64 (/.f64 (.f64 M M) (fabs.f64 d)) (/.f64 (/.f64 h l) (fabs.f64 d)))
(.f64 (/.f64 M l) (.f64 M (/.f64 (/.f64 h d) d)))
(.f64 (/.f64 (/.f64 (.f64 M M) l) d) (/.f64 h d))
(.f64 (.f64 M (/.f64 (/.f64 h d) d)) (/.f64 M l))
(.f64 (.f64 (/.f64 h d) M) (/.f64 M (*.f64 d l)))
(.f64 (/.f64 (/.f64 M d) d) (.f64 (/.f64 h l) M))
(.f64 (/.f64 (/.f64 M d) d) (.f64 M (/.f64 h l)))
(.f64 (/.f64 (.f64 M M) l) (/.f64 (/.f64 h d) d))
(.f64 (/.f64 (/.f64 h d) d) (/.f64 (.f64 M M) l))
(.f64 (/.f64 (/.f64 h d) l) (.f64 (/.f64 M d) M))
(.f64 (.f64 (/.f64 M d) M) (/.f64 (/.f64 h d) l))
(.f64 (.f64 M M) (/.f64 (/.f64 (/.f64 h d) l) d))
(.f64 (.f64 M M) (/.f64 (/.f64 (/.f64 h d) d) l))
(.f64 (/.f64 h d) (/.f64 (/.f64 (.f64 M M) l) d))
(.f64 (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)) M)
(.f64 (/.f64 M d) (/.f64 (.f64 M h) (*.f64 d l)))
(.f64 M (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)))
(/.f64 (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (neg.f64 d)) (neg.f64 d))
(/.f64 (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (fabs.f64 d)) (fabs.f64 d))
(/.f64 (.f64 (/.f64 h d) (/.f64 (.f64 M M) l)) d)
(/.f64 (.f64 (neg.f64 h) (/.f64 (/.f64 (.f64 M M) l) d)) (neg.f64 d))
(/.f64 (.f64 h (/.f64 (/.f64 (.f64 M M) l) d)) d)
(/.f64 (.f64 (/.f64 (neg.f64 h) l) (.f64 (/.f64 M d) M)) (neg.f64 d))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (/.f64 (/.f64 h d) l)) (neg.f64 d))
(/.f64 (.f64 (.f64 M (/.f64 (/.f64 h d) d)) M) l)
(/.f64 (.f64 (.f64 (neg.f64 h) M) M) (.f64 d (.f64 (neg.f64 d) l)))
(/.f64 (.f64 (/.f64 (/.f64 h d) d) (.f64 M M)) l)
(/.f64 (.f64 (/.f64 (/.f64 h d) l) (.f64 (neg.f64 M) M)) (neg.f64 d))
(/.f64 (.f64 (.f64 (/.f64 M d) M) (/.f64 (neg.f64 h) l)) (neg.f64 d))
(/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l))
(/.f64 (.f64 M (.f64 M (/.f64 (/.f64 h d) d))) l)
(/.f64 (.f64 M (.f64 (neg.f64 h) M)) (.f64 d (.f64 (neg.f64 d) l)))
(/.f64 (/.f64 (.f64 (.f64 (/.f64 h d) M) M) l) d)
(/.f64 (neg.f64 (.f64 (.f64 (/.f64 h d) M) (/.f64 M d))) (neg.f64 l))
(/.f64 (neg.f64 (.f64 (.f64 (/.f64 h d) M) (neg.f64 M))) (neg.f64 (*.f64 (neg.f64 d) l)))
(/.f64 (neg.f64 (.f64 (/.f64 (/.f64 h d) l) (.f64 M M))) (neg.f64 d))
(/.f64 (neg.f64 (.f64 (.f64 M M) (/.f64 h l))) (neg.f64 (*.f64 d d)))
(/.f64 (neg.f64 (.f64 (.f64 M M) h)) (.f64 d (.f64 (neg.f64 d) l)))
(/.f64 (.f64 (neg.f64 h) (.f64 M M)) (.f64 d (.f64 (neg.f64 d) l)))
(/.f64 (.f64 (/.f64 (neg.f64 h) l) (.f64 (neg.f64 M) M)) (*.f64 d d))
(/.f64 (.f64 (/.f64 (neg.f64 h) l) (.f64 M M)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (/.f64 h l) (.f64 (neg.f64 M) M)) (*.f64 d (neg.f64 d)))
(/.f64 (.f64 h (.f64 (neg.f64 M) M)) (.f64 (.f64 d l) (neg.f64 d)))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (/.f64 (neg.f64 h) l)) (*.f64 d d))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (/.f64 h l)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (.f64 (neg.f64 M) M) h) (.f64 d (.f64 (neg.f64 d) l)))
(/.f64 (.f64 (.f64 M M) (/.f64 (neg.f64 h) l)) (*.f64 d (neg.f64 d)))
(/.f64 (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) l)
(/.f64 (.f64 (/.f64 (/.f64 h d) l) (.f64 M M)) d)
(/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l))
(/.f64 (.f64 (.f64 (/.f64 h d) M) (neg.f64 M)) (*.f64 (neg.f64 d) l))
(/.f64 (.f64 (.f64 M M) (/.f64 h l)) (*.f64 d d))
(/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l))
(neg.f64 (/.f64 (.f64 (.f64 (/.f64 h d) M) (neg.f64 M)) (*.f64 d l)))
(neg.f64 (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 (neg.f64 d) l)))
(*.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))
(*.f64 (/.f64 (/.f64 (/.f64 h d) d) l) M)
(*.f64 (/.f64 (/.f64 M d) d) (/.f64 h l))
(*.f64 (/.f64 (/.f64 h d) d) (/.f64 M l))
(.f64 (/.f64 h d) (/.f64 M (.f64 d l)))
(*.f64 (/.f64 M d) (/.f64 (/.f64 h d) l))
(*.f64 M (/.f64 (/.f64 (/.f64 h d) d) l))
(*.f64 (/.f64 h l) (/.f64 (/.f64 M d) d))
(.f64 h (/.f64 M (.f64 (*.f64 d d) l)))
(/.f64 (*.f64 (/.f64 (/.f64 M d) d) (neg.f64 h)) (neg.f64 l))
(/.f64 (*.f64 (/.f64 (/.f64 M d) d) h) l)
(/.f64 (neg.f64 (*.f64 M (/.f64 (/.f64 h d) d))) (neg.f64 l))
(/.f64 (neg.f64 (.f64 (neg.f64 h) M)) (neg.f64 (.f64 d (*.f64 (neg.f64 d) l))))
(/.f64 (*.f64 M (/.f64 (/.f64 h d) d)) l)
(/.f64 (.f64 (/.f64 h d) M) (.f64 d l))
(/.f64 (.f64 M (/.f64 h l)) (.f64 d d))
(/.f64 (.f64 (neg.f64 h) M) (.f64 d (*.f64 (neg.f64 d) l)))
(/.f64 (.f64 M h) (.f64 (*.f64 d d) l))
(neg.f64 (/.f64 (.f64 (neg.f64 h) M) (.f64 (*.f64 d d) l)))
(neg.f64 (/.f64 (.f64 M h) (.f64 d (*.f64 (neg.f64 d) l))))
(*.f64 M h)
(*.f64 h M)
(.f64 (.f64 l (fabs.f64 d)) (fabs.f64 d))
(.f64 (.f64 (neg.f64 d) l) (neg.f64 d))
(.f64 (neg.f64 d) (.f64 (neg.f64 d) l))
(.f64 (fabs.f64 d) (.f64 (fabs.f64 d) l))
(.f64 (.f64 d l) d)
(.f64 (.f64 d d) l)
(.f64 d (.f64 d l))
(.f64 l (.f64 d d))
(*.f64 (neg.f64 (neg.f64 d)) (neg.f64 (neg.f64 d)))
(*.f64 (neg.f64 (fabs.f64 d)) (neg.f64 (fabs.f64 d)))
(*.f64 (fabs.f64 (fabs.f64 d)) (fabs.f64 (fabs.f64 d)))
(*.f64 (pow.f64 d #s(literal 1 binary64)) (pow.f64 d #s(literal 1 binary64)))
(*.f64 (pow.f64 d #s(literal 1 binary64)) d)
(*.f64 (neg.f64 d) (neg.f64 d))
(*.f64 (fabs.f64 d) (fabs.f64 d))
(*.f64 d d)
(pow.f64 (neg.f64 d) #s(literal 2 binary64))
(pow.f64 (fabs.f64 d) #s(literal 2 binary64))
(pow.f64 d #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 d) d))
(neg.f64 (*.f64 d (neg.f64 d)))
(fabs.f64 (*.f64 d d))
(exp.f64 (*.f64 (log.f64 d) #s(literal 2 binary64)))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (fma.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l) #s(literal -1 binary64))))
(/.f64 (neg.f64 (fma.f64 #s(literal -1/512 binary64) (pow.f64 (.f64 (.f64 (.f64 D D) M) (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))) #s(literal 3 binary64)) #s(literal 1 binary64))) (neg.f64 (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l))) (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 (/.f64 h d) M) M) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 2 binary64) (.f64 (.f64 d l) #s(literal 2 binary64))) (.f64 (*.f64 d l) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 d l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (/.f64 h d) M) M) (.f64 (.f64 D D) #s(literal -1/8 binary64))))) (.f64 #s(literal 2 binary64) (*.f64 d l)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64)) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l) #s(literal -1 binary64)))
(/.f64 (fma.f64 #s(literal -1/512 binary64) (pow.f64 (.f64 (.f64 (.f64 D D) M) (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)))))
(/.f64 (fma.f64 #s(literal -1/512 binary64) (pow.f64 (.f64 (.f64 (.f64 D D) M) (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l))) (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) (/.f64 (/.f64 M d) d)) (/.f64 h l) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) #s(literal -1/8 binary64)) (.f64 D D) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))) M #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (/.f64 h d) d)) (/.f64 (.f64 M M) l) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 h d)) (/.f64 (/.f64 (.f64 M M) l) d) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) l) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) l) (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) M) (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))) #s(literal -1/8 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) (.f64 (*.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))) #s(literal 1 binary64))
(fma.f64 (/.f64 (/.f64 h d) d) (.f64 (/.f64 (.f64 M M) l) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (/.f64 h d) (.f64 (/.f64 (/.f64 (.f64 M M) l) d) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 (.f64 D D) #s(literal -1/8 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)) (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (.f64 (*.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) #s(literal 1 binary64))
(fma.f64 (.f64 D D) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))) #s(literal 1 binary64))
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (.f64 D D) M) (*.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 D D) M) (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))) #s(literal 1 binary64))
(fma.f64 M (.f64 (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64)) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l) #s(literal -1 binary64))))
(-.f64 (.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M)) (*.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))) (.f64 (*.f64 D D) #s(literal -1/8 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64))) (.f64 (*.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))))
(-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 D D) M) (*.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 3 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l))) (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l))) (pow.f64 (.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l)))
(.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))
(.f64 (.f64 M (/.f64 (/.f64 M d) d)) (/.f64 h l))
(.f64 (/.f64 (.f64 (/.f64 h d) M) l) (/.f64 M d))
(.f64 (/.f64 (.f64 M M) (neg.f64 d)) (/.f64 (/.f64 h l) (neg.f64 d)))
(.f64 (/.f64 (.f64 M M) (fabs.f64 d)) (/.f64 (/.f64 h l) (fabs.f64 d)))
(.f64 (/.f64 M l) (.f64 M (/.f64 (/.f64 h d) d)))
(.f64 (/.f64 (/.f64 (.f64 M M) l) d) (/.f64 h d))
(.f64 (.f64 M (/.f64 (/.f64 h d) d)) (/.f64 M l))
(.f64 (.f64 (/.f64 h d) M) (/.f64 M (*.f64 d l)))
(.f64 (/.f64 (/.f64 M d) d) (.f64 (/.f64 h l) M))
(.f64 (/.f64 (/.f64 M d) d) (.f64 M (/.f64 h l)))
(.f64 (/.f64 (.f64 M M) l) (/.f64 (/.f64 h d) d))
(.f64 (/.f64 (/.f64 h d) d) (/.f64 (.f64 M M) l))
(.f64 (/.f64 (/.f64 h d) l) (.f64 (/.f64 M d) M))
(.f64 (.f64 (/.f64 M d) M) (/.f64 (/.f64 h d) l))
(.f64 (.f64 M M) (/.f64 (/.f64 (/.f64 h d) l) d))
(.f64 (.f64 M M) (/.f64 (/.f64 (/.f64 h d) d) l))
(.f64 (/.f64 h d) (/.f64 (/.f64 (.f64 M M) l) d))
(.f64 (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)) M)
(.f64 (/.f64 M d) (/.f64 (.f64 M h) (*.f64 d l)))
(.f64 M (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)))
(/.f64 (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (neg.f64 d)) (neg.f64 d))
(/.f64 (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (fabs.f64 d)) (fabs.f64 d))
(/.f64 (.f64 (/.f64 h d) (/.f64 (.f64 M M) l)) d)
(/.f64 (.f64 (neg.f64 h) (/.f64 (/.f64 (.f64 M M) l) d)) (neg.f64 d))
(/.f64 (.f64 h (/.f64 (/.f64 (.f64 M M) l) d)) d)
(/.f64 (.f64 (/.f64 (neg.f64 h) l) (.f64 (/.f64 M d) M)) (neg.f64 d))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (/.f64 (/.f64 h d) l)) (neg.f64 d))
(/.f64 (.f64 (.f64 M (/.f64 (/.f64 h d) d)) M) l)
(/.f64 (.f64 (.f64 (neg.f64 h) M) M) (.f64 d (.f64 (neg.f64 d) l)))
(/.f64 (.f64 (/.f64 (/.f64 h d) d) (.f64 M M)) l)
(/.f64 (.f64 (/.f64 (/.f64 h d) l) (.f64 (neg.f64 M) M)) (neg.f64 d))
(/.f64 (.f64 (.f64 (/.f64 M d) M) (/.f64 (neg.f64 h) l)) (neg.f64 d))
(/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l))
(/.f64 (.f64 M (.f64 M (/.f64 (/.f64 h d) d))) l)
(/.f64 (.f64 M (.f64 (neg.f64 h) M)) (.f64 d (.f64 (neg.f64 d) l)))
(/.f64 (/.f64 (.f64 (.f64 (/.f64 h d) M) M) l) d)
(/.f64 (neg.f64 (.f64 (.f64 (/.f64 h d) M) (/.f64 M d))) (neg.f64 l))
(/.f64 (neg.f64 (.f64 (.f64 (/.f64 h d) M) (neg.f64 M))) (neg.f64 (*.f64 (neg.f64 d) l)))
(/.f64 (neg.f64 (.f64 (/.f64 (/.f64 h d) l) (.f64 M M))) (neg.f64 d))
(/.f64 (neg.f64 (.f64 (.f64 M M) (/.f64 h l))) (neg.f64 (*.f64 d d)))
(/.f64 (neg.f64 (.f64 (.f64 M M) h)) (.f64 d (.f64 (neg.f64 d) l)))
(/.f64 (.f64 (neg.f64 h) (.f64 M M)) (.f64 d (.f64 (neg.f64 d) l)))
(/.f64 (.f64 (/.f64 (neg.f64 h) l) (.f64 (neg.f64 M) M)) (*.f64 d d))
(/.f64 (.f64 (/.f64 (neg.f64 h) l) (.f64 M M)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (/.f64 h l) (.f64 (neg.f64 M) M)) (*.f64 d (neg.f64 d)))
(/.f64 (.f64 h (.f64 (neg.f64 M) M)) (.f64 (.f64 d l) (neg.f64 d)))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (/.f64 (neg.f64 h) l)) (*.f64 d d))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (/.f64 h l)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (.f64 (neg.f64 M) M) h) (.f64 d (.f64 (neg.f64 d) l)))
(/.f64 (.f64 (.f64 M M) (/.f64 (neg.f64 h) l)) (*.f64 d (neg.f64 d)))
(/.f64 (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) l)
(/.f64 (.f64 (/.f64 (/.f64 h d) l) (.f64 M M)) d)
(/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l))
(/.f64 (.f64 (.f64 (/.f64 h d) M) (neg.f64 M)) (*.f64 (neg.f64 d) l))
(/.f64 (.f64 (.f64 M M) (/.f64 h l)) (*.f64 d d))
(/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l))
(neg.f64 (/.f64 (.f64 (.f64 (/.f64 h d) M) (neg.f64 M)) (*.f64 d l)))
(neg.f64 (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 (neg.f64 d) l)))
(.f64 (.f64 (/.f64 h d) (neg.f64 M)) (neg.f64 M))
(.f64 (.f64 (/.f64 h d) (fabs.f64 M)) (fabs.f64 M))
(.f64 (.f64 (/.f64 h d) M) M)
(.f64 (neg.f64 M) (.f64 (neg.f64 M) (/.f64 h d)))
(.f64 (fabs.f64 M) (.f64 (fabs.f64 M) (/.f64 h d)))
(.f64 (.f64 M M) (/.f64 h d))
(.f64 (/.f64 h d) (.f64 M M))
(.f64 M (.f64 (/.f64 h d) M))
(.f64 h (.f64 (/.f64 M d) M))
(/.f64 (neg.f64 (.f64 (.f64 M M) h)) (neg.f64 d))
(/.f64 (.f64 (.f64 M M) (neg.f64 h)) (neg.f64 d))
(/.f64 (.f64 (neg.f64 h) (.f64 M M)) (neg.f64 d))
(/.f64 (.f64 (.f64 M M) h) d)
(/.f64 (neg.f64 (neg.f64 h)) (neg.f64 (neg.f64 d)))
(/.f64 (neg.f64 h) (neg.f64 d))
(/.f64 h d)
(neg.f64 (/.f64 (neg.f64 h) d))
(neg.f64 (/.f64 h (neg.f64 d)))
(*.f64 (neg.f64 (neg.f64 M)) (neg.f64 (neg.f64 M)))
(*.f64 (neg.f64 (fabs.f64 M)) (neg.f64 (fabs.f64 M)))
(*.f64 (fabs.f64 (fabs.f64 M)) (fabs.f64 (fabs.f64 M)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) (pow.f64 M #s(literal 1 binary64)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) M)
(*.f64 (neg.f64 M) (neg.f64 M))
(*.f64 (fabs.f64 M) (fabs.f64 M))
(*.f64 M M)
(pow.f64 (neg.f64 M) #s(literal 2 binary64))
(pow.f64 (fabs.f64 M) #s(literal 2 binary64))
(pow.f64 M #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 M) M))
(fabs.f64 (*.f64 M M))
(exp.f64 (*.f64 (log.f64 M) #s(literal 2 binary64)))
(*.f64 d l)
(*.f64 l d)
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l))))) w0)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l))))))
(.f64 (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)))))
(exp.f64 (.f64 (log.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l))))) #s(literal 1/2 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 h d)))) (.f64 #s(literal 2 binary64) l))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 d (.f64 (neg.f64 d) l))) (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) (neg.f64 h)))) (.f64 #s(literal 2 binary64) (.f64 d (.f64 (neg.f64 d) l))))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) l)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) h) M))) (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) l)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)) #s(literal 2 binary64))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l) #s(literal 1 binary64)) #s(literal 1 binary64)))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)) #s(literal 2 binary64)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l) #s(literal 1 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)) #s(literal 3 binary64)) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l) #s(literal 1 binary64)) #s(literal 1 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (/.f64 #s(literal 1/4 binary64) d) (/.f64 (.f64 (.f64 D D) M) d))) (*.f64 M (/.f64 h l))))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M)) (*.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))))
(.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) (/.f64 (/.f64 M d) d)) (/.f64 h l))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1/4 binary64) d) (/.f64 (.f64 (.f64 D D) M) d))) (.f64 M (/.f64 h l)))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M)) (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)))
(.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) (.f64 d d)) (/.f64 h l))
(.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l))
(.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) l) (/.f64 (/.f64 h d) d))
(.f64 (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) d) (/.f64 (.f64 M h) (.f64 d l)))
(.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 d d)) (.f64 (.f64 M M) (/.f64 h l)))
(.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) l) (.f64 (*.f64 (/.f64 h d) M) (/.f64 M d)))
(.f64 (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) l) (*.f64 M (/.f64 (/.f64 h d) d)))
(.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) d) (.f64 (/.f64 (/.f64 h d) l) (*.f64 M M)))
(.f64 (.f64 M (/.f64 (/.f64 h d) d)) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) l))
(.f64 (.f64 (/.f64 h d) M) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 d l)))
(.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) (/.f64 (/.f64 (/.f64 h d) d) l))
(.f64 (.f64 M (/.f64 h l)) (.f64 (/.f64 #s(literal 1/4 binary64) d) (/.f64 (.f64 (*.f64 D D) M) d)))
(.f64 (.f64 (/.f64 #s(literal 1/4 binary64) d) (/.f64 (.f64 (.f64 D D) M) d)) (*.f64 M (/.f64 h l)))
(.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)) #s(literal 1 binary64))
(.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (*.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)))
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (*.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 D D) M) (*.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))))
(.f64 (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)) (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M))
(.f64 (.f64 M h) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 (*.f64 d d) l)))
(.f64 M (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (*.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))))
(.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l)))
(/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) h) M) d) (.f64 d l))
(/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) h) M) l) (.f64 d d))
(/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M (/.f64 h l))) (.f64 d d))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 (/.f64 h d) l))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (/.f64 #s(literal 1/4 binary64) d) (/.f64 (.f64 (.f64 D D) M) d)) (*.f64 M h)) l)
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 h d))) l)
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) (neg.f64 h))) (.f64 d (.f64 (neg.f64 d) l)))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) h) M)) (.f64 (.f64 d d) l))
(/.f64 (neg.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) d) (/.f64 h d))) (neg.f64 l))
(/.f64 (neg.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) (neg.f64 h))) (neg.f64 (.f64 d (*.f64 (neg.f64 d) l))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) d) (/.f64 h d))) (*.f64 #s(literal 2 binary64) l))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) (neg.f64 h))) (.f64 #s(literal 2 binary64) (.f64 d (*.f64 (neg.f64 d) l))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) h) M)) (.f64 #s(literal 2 binary64) (.f64 (*.f64 d d) l)))
(/.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) d) (/.f64 h d)) l)
(/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) (neg.f64 h)) (.f64 d (*.f64 (neg.f64 d) l)))
(/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) h) M) (.f64 (*.f64 d d) l))
(neg.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) M) (neg.f64 h)) (.f64 (*.f64 d d) l)))
(neg.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) h) M) (.f64 d (*.f64 (neg.f64 d) l))))
(.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) h) M)
(.f64 (.f64 (.f64 M h) (.f64 #s(literal 1/4 binary64) (*.f64 D D))) M)
(.f64 (.f64 (.f64 M h) #s(literal 1/4 binary64)) (.f64 (*.f64 D D) M))
(.f64 (.f64 (.f64 M M) h) (.f64 #s(literal 1/4 binary64) (*.f64 D D)))
(.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (*.f64 M M) h)))
(.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M) h)
(.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (*.f64 M h))
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (*.f64 M M) h))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 D D) M) (*.f64 M h)))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 D D) (.f64 (*.f64 M M) h)))
(.f64 (.f64 M h) (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M))
(.f64 (.f64 D D) (.f64 #s(literal 1/4 binary64) (.f64 (*.f64 M M) h)))
(.f64 M (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (*.f64 M h)))
(.f64 M (.f64 h (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M)))
(.f64 h (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) M))
(.f64 (.f64 M (*.f64 #s(literal 1/4 binary64) D)) D)
(.f64 (.f64 M #s(literal 1/4 binary64)) (*.f64 D D))
(.f64 (.f64 (*.f64 D D) M) #s(literal 1/4 binary64))
(.f64 (.f64 #s(literal 1/4 binary64) D) (*.f64 M D))
(.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M)
(.f64 #s(literal 1/4 binary64) (.f64 (*.f64 D D) M))
(.f64 (.f64 D D) (*.f64 #s(literal 1/4 binary64) M))
(.f64 M (.f64 #s(literal 1/4 binary64) (*.f64 D D)))
(.f64 (.f64 #s(literal 1/4 binary64) (neg.f64 D)) (neg.f64 D))
(.f64 (.f64 #s(literal 1/4 binary64) (fabs.f64 D)) (fabs.f64 D))
(.f64 (.f64 #s(literal 1/4 binary64) D) D)
(.f64 (neg.f64 D) (.f64 (neg.f64 D) #s(literal 1/4 binary64)))
(.f64 (fabs.f64 D) (.f64 (fabs.f64 D) #s(literal 1/4 binary64)))
(.f64 #s(literal 1/4 binary64) (.f64 D D))
(.f64 (.f64 D D) #s(literal 1/4 binary64))
(.f64 D (.f64 #s(literal 1/4 binary64) D))
#s(literal 1/4 binary64)
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (*.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))))) w0)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (*.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))))))
(.f64 (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (*.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (*.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (*.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)))))
(exp.f64 (.f64 (log.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (*.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))))) #s(literal 1/2 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (*.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))))
(.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (*.f64 #s(literal -1/4 binary64) D)) D)
(.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) #s(literal -1/4 binary64)) (*.f64 D D))
(.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (/.f64 (/.f64 h d) l)) (*.f64 (/.f64 M d) M))
(.f64 (.f64 (.f64 (.f64 D D) M) (*.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))) #s(literal -1/4 binary64))
(.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) (/.f64 (/.f64 h d) l))
(.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (.f64 (*.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))))
(.f64 (/.f64 (/.f64 h d) l) (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (*.f64 D D)) M) (/.f64 M d)))
(.f64 (.f64 (/.f64 M d) M) (.f64 (/.f64 (/.f64 h d) l) (.f64 #s(literal -1/4 binary64) (*.f64 D D))))
(.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (*.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)))
(.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 D D) M) (*.f64 (/.f64 M l) (/.f64 (/.f64 h d) d))))
(.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 #s(literal -1/4 binary64) (*.f64 D D)))
(.f64 (.f64 D D) (.f64 #s(literal -1/4 binary64) (.f64 (*.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))))
(/.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) (.f64 M M)) (.f64 #s(literal -1/4 binary64) (*.f64 D D))) d)
(/.f64 (.f64 (.f64 (.f64 M M) (/.f64 h l)) (.f64 #s(literal -1/4 binary64) (.f64 D D))) (.f64 d d))
(/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) (/.f64 (neg.f64 h) l)) (neg.f64 d))
(/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) (/.f64 h l)) d)
(/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) M) (/.f64 M d)) h) (.f64 d l))
(/.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (/.f64 h d) l) (*.f64 M M))) d)
(/.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 M M) (/.f64 h l))) (.f64 d d))
(.f64 (.f64 #s(literal -1/4 binary64) (neg.f64 D)) (neg.f64 D))
(.f64 (.f64 #s(literal -1/4 binary64) (fabs.f64 D)) (fabs.f64 D))
(.f64 (.f64 #s(literal -1/4 binary64) D) D)
(.f64 (neg.f64 D) (.f64 (neg.f64 D) #s(literal -1/4 binary64)))
(.f64 (fabs.f64 D) (.f64 (fabs.f64 D) #s(literal -1/4 binary64)))
(.f64 #s(literal -1/4 binary64) (.f64 D D))
(.f64 (.f64 D D) #s(literal -1/4 binary64))
(.f64 D (.f64 #s(literal -1/4 binary64) D))
#s(literal -1/4 binary64)
(.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d))
(.f64 (.f64 M (/.f64 (/.f64 M d) d)) (/.f64 h l))
(.f64 (/.f64 (.f64 (/.f64 h d) M) l) (/.f64 M d))
(.f64 (/.f64 (.f64 M M) (neg.f64 d)) (/.f64 (/.f64 h l) (neg.f64 d)))
(.f64 (/.f64 (.f64 M M) (fabs.f64 d)) (/.f64 (/.f64 h l) (fabs.f64 d)))
(.f64 (/.f64 M l) (.f64 M (/.f64 (/.f64 h d) d)))
(.f64 (/.f64 (/.f64 (.f64 M M) l) d) (/.f64 h d))
(.f64 (.f64 M (/.f64 (/.f64 h d) d)) (/.f64 M l))
(.f64 (.f64 (/.f64 h d) M) (/.f64 M (*.f64 d l)))
(.f64 (/.f64 (/.f64 M d) d) (.f64 (/.f64 h l) M))
(.f64 (/.f64 (/.f64 M d) d) (.f64 M (/.f64 h l)))
(.f64 (/.f64 (.f64 M M) l) (/.f64 (/.f64 h d) d))
(.f64 (/.f64 (/.f64 h d) d) (/.f64 (.f64 M M) l))
(.f64 (/.f64 (/.f64 h d) l) (.f64 (/.f64 M d) M))
(.f64 (.f64 (/.f64 M d) M) (/.f64 (/.f64 h d) l))
(.f64 (.f64 M M) (/.f64 (/.f64 (/.f64 h d) l) d))
(.f64 (.f64 M M) (/.f64 (/.f64 (/.f64 h d) d) l))
(.f64 (/.f64 h d) (/.f64 (/.f64 (.f64 M M) l) d))
(.f64 (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)) M)
(.f64 (/.f64 M d) (/.f64 (.f64 M h) (*.f64 d l)))
(.f64 M (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)))
(/.f64 (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (neg.f64 d)) (neg.f64 d))
(/.f64 (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (fabs.f64 d)) (fabs.f64 d))
(/.f64 (.f64 (/.f64 h d) (/.f64 (.f64 M M) l)) d)
(/.f64 (.f64 (neg.f64 h) (/.f64 (/.f64 (.f64 M M) l) d)) (neg.f64 d))
(/.f64 (.f64 h (/.f64 (/.f64 (.f64 M M) l) d)) d)
(/.f64 (.f64 (/.f64 (neg.f64 h) l) (.f64 (/.f64 M d) M)) (neg.f64 d))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (/.f64 (/.f64 h d) l)) (neg.f64 d))
(/.f64 (.f64 (.f64 M (/.f64 (/.f64 h d) d)) M) l)
(/.f64 (.f64 (.f64 (neg.f64 h) M) M) (.f64 d (.f64 (neg.f64 d) l)))
(/.f64 (.f64 (/.f64 (/.f64 h d) d) (.f64 M M)) l)
(/.f64 (.f64 (/.f64 (/.f64 h d) l) (.f64 (neg.f64 M) M)) (neg.f64 d))
(/.f64 (.f64 (.f64 (/.f64 M d) M) (/.f64 (neg.f64 h) l)) (neg.f64 d))
(/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l))
(/.f64 (.f64 M (.f64 M (/.f64 (/.f64 h d) d))) l)
(/.f64 (.f64 M (.f64 (neg.f64 h) M)) (.f64 d (.f64 (neg.f64 d) l)))
(/.f64 (/.f64 (.f64 (.f64 (/.f64 h d) M) M) l) d)
(/.f64 (neg.f64 (.f64 (.f64 (/.f64 h d) M) (/.f64 M d))) (neg.f64 l))
(/.f64 (neg.f64 (.f64 (.f64 (/.f64 h d) M) (neg.f64 M))) (neg.f64 (*.f64 (neg.f64 d) l)))
(/.f64 (neg.f64 (.f64 (/.f64 (/.f64 h d) l) (.f64 M M))) (neg.f64 d))
(/.f64 (neg.f64 (.f64 (.f64 M M) (/.f64 h l))) (neg.f64 (*.f64 d d)))
(/.f64 (neg.f64 (.f64 (.f64 M M) h)) (.f64 d (.f64 (neg.f64 d) l)))
(/.f64 (.f64 (neg.f64 h) (.f64 M M)) (.f64 d (.f64 (neg.f64 d) l)))
(/.f64 (.f64 (/.f64 (neg.f64 h) l) (.f64 (neg.f64 M) M)) (*.f64 d d))
(/.f64 (.f64 (/.f64 (neg.f64 h) l) (.f64 M M)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (/.f64 h l) (.f64 (neg.f64 M) M)) (*.f64 d (neg.f64 d)))
(/.f64 (.f64 h (.f64 (neg.f64 M) M)) (.f64 (.f64 d l) (neg.f64 d)))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (/.f64 (neg.f64 h) l)) (*.f64 d d))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (/.f64 h l)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (.f64 (neg.f64 M) M) h) (.f64 d (.f64 (neg.f64 d) l)))
(/.f64 (.f64 (.f64 M M) (/.f64 (neg.f64 h) l)) (*.f64 d (neg.f64 d)))
(/.f64 (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) l)
(/.f64 (.f64 (/.f64 (/.f64 h d) l) (.f64 M M)) d)
(/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l))
(/.f64 (.f64 (.f64 (/.f64 h d) M) (neg.f64 M)) (*.f64 (neg.f64 d) l))
(/.f64 (.f64 (.f64 M M) (/.f64 h l)) (*.f64 d d))
(/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l))
(neg.f64 (/.f64 (.f64 (.f64 (/.f64 h d) M) (neg.f64 M)) (*.f64 d l)))
(neg.f64 (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 (neg.f64 d) l)))
(*.f64 (neg.f64 M) (/.f64 (neg.f64 M) d))
(*.f64 (fabs.f64 M) (/.f64 (fabs.f64 M) d))
(*.f64 (/.f64 M d) M)
(*.f64 M (/.f64 M d))
(/.f64 (*.f64 (neg.f64 M) M) (neg.f64 d))
(/.f64 (*.f64 M M) (neg.f64 (neg.f64 d)))
(/.f64 (*.f64 M M) d)
(neg.f64 (/.f64 (*.f64 (neg.f64 M) M) d))
(neg.f64 (/.f64 (*.f64 M M) (neg.f64 d)))
(/.f64 (neg.f64 h) (*.f64 (neg.f64 d) l))
(/.f64 (/.f64 (neg.f64 h) l) (neg.f64 d))
(/.f64 (/.f64 h d) l)
(/.f64 (/.f64 h l) (neg.f64 (neg.f64 d)))
(/.f64 (/.f64 h l) d)
(/.f64 h (*.f64 d l))
(neg.f64 (/.f64 (/.f64 (neg.f64 h) l) d))
(neg.f64 (/.f64 (/.f64 h l) (neg.f64 d)))

eval110.0ms (1.4%)

Memory: -22.2MiB live, 207.8MiB allocated; 37ms collecting garbage
Compiler: Compiled 35 380 to 4 400 computations (87.6% saved)

prune59.0ms (0.7%)

Memory

12.0MiB live, 158.0MiB allocated; 10ms collecting garbage

Pruning

31 alts after pruning (30 fresh and 1 done)

	Pruned	Kept	Total
New	833	18	851
Fresh	8	12	20
Picked	5	0	5
Done	0	1	1
Total	846	31	877

Accuracy

89.7%

Counts

877 → 31

Alt Table

Click to see full alt table

Status	Accuracy	Program
	83.4%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 h l)))))
	82.2%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 M D) h) (.f64 (.f64 d #s(literal 2 binary64)) l)) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))))
▶	84.6%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))))
	65.6%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(approx (pow (/ (* M D) (* 2 d)) 2) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 M d) (/.f64 M d)))) (/.f64 h l)))))
	66.8%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
	21.5%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) (/.f64 h l)) d))))
	20.5%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) M) (/.f64 M d)) h) (.f64 d l)))))
	65.0%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) h) M) d) (.f64 d l))))))
	67.8%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) (.f64 #s(literal 1/4 binary64) D)) D) (.f64 d d))))))
	66.0%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 M (.f64 #s(literal 1/4 binary64) D)) D) (.f64 M h)) (.f64 (*.f64 d d) l))))))
	60.4%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d l) d))))))
▶	66.7%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l))))))
	21.6%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (*.f64 #s(literal -1/4 binary64) D)) D))))
	18.9%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/4 binary64) D)) D))))
	17.2%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (/.f64 h (.f64 d d)))) M) (/.f64 M l)))))
	17.7%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (.f64 M h) l))))))
	16.2%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (*.f64 d d) l)))))))
▶	77.7%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64))))))
	61.3%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) l) (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) #s(literal 1 binary64))))
	76.8%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
	71.1%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
	69.4%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (*.f64 d d)))) M) (/.f64 M l) #s(literal 1 binary64))))
▶	61.6%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))))
	57.2%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (neg.f64 h) M) M) (.f64 d (.f64 (neg.f64 d) l))) #s(literal 1 binary64))))
	51.5%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (*.f64 d d)) #s(literal 1 binary64))))
	55.1%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (/.f64 (.f64 M M) l) (*.f64 d d))) #s(literal 1 binary64))))
	58.5%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d l) d))) #s(literal 1 binary64))))
▶	56.6%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))))
	73.1%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))
	11.7%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))))
✓	66.2%	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Compiler

Compiled 2 306 to 1 710 computations (25.8% saved)

series176.0ms (2.2%)

Memory

3.6MiB live, 480.5MiB allocated; 39ms collecting garbage

Counts

59 → 257

Calls

Call 1

Inputs
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))))
w0
(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))))
(-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))
#s(literal 1 binary64)
(.f64 (.f64 (/.f64 h l) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))
(.f64 (/.f64 h l) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))
(/.f64 h l)
h
l
(.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))
#s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))
(*.f64 #s(literal 1/2 binary64) D)
#s(literal 1/2 binary64)
D
(/.f64 M d)
M
d
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64)))
(fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))
(.f64 #s(literal -1/8 binary64) (.f64 D D))
#s(literal -1/8 binary64)
(*.f64 D D)
(.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l))))
(.f64 h (/.f64 M (.f64 (*.f64 d d) l)))
(/.f64 M (.f64 (.f64 d d) l))
(.f64 (.f64 d d) l)
(*.f64 d d)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64)))
(fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))
(/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l))
(.f64 (.f64 (/.f64 h d) M) M)
(*.f64 (/.f64 h d) M)
(/.f64 h d)
(*.f64 d l)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l))))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l))))
(-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l)))
(/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l))
(.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (*.f64 M M) h)))
(*.f64 #s(literal 1/4 binary64) D)
#s(literal 1/4 binary64)
(.f64 D (.f64 (*.f64 M M) h))
(.f64 (.f64 M M) h)
(*.f64 M M)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64))))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))
(fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64))
(.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l)))
(/.f64 #s(literal -1/4 binary64) d)
#s(literal -1/4 binary64)
(/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))
(.f64 (.f64 M D) (*.f64 M D))
(*.f64 M D)

Outputs
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx w0 #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (/ h l) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/2 (/ (* D (* M h)) (* d l)))))
#s(approx (* (/ D 2) (/ M d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (/ M d) #s(hole binary64 (/ M d)))
#s(approx M #s(hole binary64 M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 1))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* M (* h (/ M (* (* d d) l)))) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (* h (/ M (* (* d d) l))) #s(hole binary64 (/ (* M h) (* (pow d 2) l))))
#s(approx (/ M (* (* d d) l)) #s(hole binary64 (/ M (* (pow d 2) l))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (/ (* (* (/ h d) M) M) (* d l)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (* (* (/ h d) M) M) #s(hole binary64 (/ (* (pow M 2) h) d)))
#s(approx (* (/ h d) M) #s(hole binary64 (/ (* M h) d)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 1))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (* 1/4 D) (* D (* (* M M) h))) #s(hole binary64 (* 1/4 (* (pow D 2) (* (pow M 2) h)))))
#s(approx (* D (* (* M M) h)) #s(hole binary64 (* D (* (pow M 2) h))))
#s(approx (* (* M M) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 1))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 1))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))
#s(approx (/ (* (* M D) (* M D)) (* d l)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) (* d l))))
#s(approx (* (* M D) (* M D)) #s(hole binary64 (* (pow D 2) (pow M 2))))
#s(approx (* M D) #s(hole binary64 (* D M)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ D 2) #s(hole binary64 (* 1/2 D)))
#s(approx (* 1/2 D) #s(hole binary64 (* 1/2 D)))
#s(approx D #s(hole binary64 D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* -1/8 (* D D)) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx (* 1/4 D) #s(hole binary64 (* 1/4 D)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx h #s(hole binary64 h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ h d) #s(hole binary64 (/ h d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx l #s(hole binary64 l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* (* d d) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* d l) #s(hole binary64 (* d l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx d #s(hole binary64 d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (/ -1/4 d) #s(hole binary64 (/ -1/4 d)))

Calls

18 calls:

Time	Variable		Point	Expression
23.0ms	M	@	-inf	((* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (* (/ h l) (* (/ D 2) (/ M d))) (/ h l) h l (* (/ D 2) (/ M d)) (/ D 2) (* 1/2 D) 1/2 D (/ M d) M d (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) (* -1/8 (* D D)) -1/8 (* D D) (* M (* h (/ M (* (* d d) l)))) (* h (/ M (* (* d d) l))) (/ M (* (* d d) l)) (* (* d d) l) (* d d) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (/ (* (* (/ h d) M) M) (* d l)) (* (* (/ h d) M) M) (* (/ h d) M) (/ h d) (* d l) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l)) (* (* 1/4 D) (* D (* (* M M) h))) (* 1/4 D) 1/4 (* D (* (* M M) h)) (* (* M M) h) (* M M) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (/ -1/4 d) -1/4 (/ (* (* M D) (* M D)) (* d l)) (* (* M D) (* M D)) (* M D))
15.0ms	l	@	-inf	((* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (* (/ h l) (* (/ D 2) (/ M d))) (/ h l) h l (* (/ D 2) (/ M d)) (/ D 2) (* 1/2 D) 1/2 D (/ M d) M d (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) (* -1/8 (* D D)) -1/8 (* D D) (* M (* h (/ M (* (* d d) l)))) (* h (/ M (* (* d d) l))) (/ M (* (* d d) l)) (* (* d d) l) (* d d) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (/ (* (* (/ h d) M) M) (* d l)) (* (* (/ h d) M) M) (* (/ h d) M) (/ h d) (* d l) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l)) (* (* 1/4 D) (* D (* (* M M) h))) (* 1/4 D) 1/4 (* D (* (* M M) h)) (* (* M M) h) (* M M) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (/ -1/4 d) -1/4 (/ (* (* M D) (* M D)) (* d l)) (* (* M D) (* M D)) (* M D))
14.0ms	h	@	-inf	((* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (* (/ h l) (* (/ D 2) (/ M d))) (/ h l) h l (* (/ D 2) (/ M d)) (/ D 2) (* 1/2 D) 1/2 D (/ M d) M d (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) (* -1/8 (* D D)) -1/8 (* D D) (* M (* h (/ M (* (* d d) l)))) (* h (/ M (* (* d d) l))) (/ M (* (* d d) l)) (* (* d d) l) (* d d) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (/ (* (* (/ h d) M) M) (* d l)) (* (* (/ h d) M) M) (* (/ h d) M) (/ h d) (* d l) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l)) (* (* 1/4 D) (* D (* (* M M) h))) (* 1/4 D) 1/4 (* D (* (* M M) h)) (* (* M M) h) (* M M) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (/ -1/4 d) -1/4 (/ (* (* M D) (* M D)) (* d l)) (* (* M D) (* M D)) (* M D))
13.0ms	h	@	inf	((* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (* (/ h l) (* (/ D 2) (/ M d))) (/ h l) h l (* (/ D 2) (/ M d)) (/ D 2) (* 1/2 D) 1/2 D (/ M d) M d (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) (* -1/8 (* D D)) -1/8 (* D D) (* M (* h (/ M (* (* d d) l)))) (* h (/ M (* (* d d) l))) (/ M (* (* d d) l)) (* (* d d) l) (* d d) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (/ (* (* (/ h d) M) M) (* d l)) (* (* (/ h d) M) M) (* (/ h d) M) (/ h d) (* d l) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l)) (* (* 1/4 D) (* D (* (* M M) h))) (* 1/4 D) 1/4 (* D (* (* M M) h)) (* (* M M) h) (* M M) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (/ -1/4 d) -1/4 (/ (* (* M D) (* M D)) (* d l)) (* (* M D) (* M D)) (* M D))
12.0ms	l	@	0	((* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (* (/ h l) (* (/ D 2) (/ M d))) (/ h l) h l (* (/ D 2) (/ M d)) (/ D 2) (* 1/2 D) 1/2 D (/ M d) M d (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) (* -1/8 (* D D)) -1/8 (* D D) (* M (* h (/ M (* (* d d) l)))) (* h (/ M (* (* d d) l))) (/ M (* (* d d) l)) (* (* d d) l) (* d d) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (/ (* (* (/ h d) M) M) (* d l)) (* (* (/ h d) M) M) (* (/ h d) M) (/ h d) (* d l) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l)) (* (* 1/4 D) (* D (* (* M M) h))) (* 1/4 D) 1/4 (* D (* (* M M) h)) (* (* M M) h) (* M M) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (/ -1/4 d) -1/4 (/ (* (* M D) (* M D)) (* d l)) (* (* M D) (* M D)) (* M D))

simplify171.0ms (2.2%)

Memory

-6.1MiB live, 322.3MiB allocated; 29ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	977	15110
1	3022	13856
0	8509	13486

Stop Event

1×	iter limit
1×	node limit

Counts

257 → 257

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx w0 #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (/ h l) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/2 (/ (* D (* M h)) (* d l)))))
#s(approx (* (/ D 2) (/ M d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (/ M d) #s(hole binary64 (/ M d)))
#s(approx M #s(hole binary64 M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 1))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* M (* h (/ M (* (* d d) l)))) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (* h (/ M (* (* d d) l))) #s(hole binary64 (/ (* M h) (* (pow d 2) l))))
#s(approx (/ M (* (* d d) l)) #s(hole binary64 (/ M (* (pow d 2) l))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (/ (* (* (/ h d) M) M) (* d l)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (* (* (/ h d) M) M) #s(hole binary64 (/ (* (pow M 2) h) d)))
#s(approx (* (/ h d) M) #s(hole binary64 (/ (* M h) d)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 1))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (* 1/4 D) (* D (* (* M M) h))) #s(hole binary64 (* 1/4 (* (pow D 2) (* (pow M 2) h)))))
#s(approx (* D (* (* M M) h)) #s(hole binary64 (* D (* (pow M 2) h))))
#s(approx (* (* M M) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 1))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 1))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))
#s(approx (/ (* (* M D) (* M D)) (* d l)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) (* d l))))
#s(approx (* (* M D) (* M D)) #s(hole binary64 (* (pow D 2) (pow M 2))))
#s(approx (* M D) #s(hole binary64 (* D M)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ D 2) #s(hole binary64 (* 1/2 D)))
#s(approx (* 1/2 D) #s(hole binary64 (* 1/2 D)))
#s(approx D #s(hole binary64 D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* -1/8 (* D D)) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx (* 1/4 D) #s(hole binary64 (* 1/4 D)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx h #s(hole binary64 h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ h d) #s(hole binary64 (/ h d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx l #s(hole binary64 l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* (* d d) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* d l) #s(hole binary64 (* d l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx d #s(hole binary64 d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (/ -1/4 d) #s(hole binary64 (/ -1/4 d)))

Outputs
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M)) #s(literal 1 binary64))) w0))
#s(approx w0 #s(hole binary64 w0))
#s(approx w0 w0)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M)) #s(literal 1 binary64))) w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (.f64 h h) w0) (.f64 M M)) (.f64 l l))) #s(literal -1/128 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) w0) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64))) (*.f64 M M) w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (.f64 M M)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 h h) w0) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 M M) (.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) w0) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64))) (*.f64 M M) w0))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(literal 1 binary64))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 h h) (.f64 M M)) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/8 binary64)) (.f64 (.f64 d d) l))) (*.f64 M M) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 M M)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 h h) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 M M) (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/8 binary64)) (.f64 (.f64 d d) l))) (.f64 M M) #s(literal 1 binary64)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(literal 1 binary64))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) #s(literal 1 binary64)))
#s(approx (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))) (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))
#s(approx (* (/ h l) (* (/ D 2) (/ M d))) #s(hole binary64 (* 1/2 (/ (* D (* M h)) (* d l)))))
#s(approx (* (/ h l) (* (/ D 2) (/ M d))) (/.f64 (.f64 (/.f64 (.f64 (*.f64 M h) D) d) #s(literal 1/2 binary64)) l))
#s(approx (* (/ D 2) (/ M d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (* (/ D 2) (/ M d)) (.f64 (.f64 D (/.f64 M d)) #s(literal 1/2 binary64)))
#s(approx (/ M d) #s(hole binary64 (/ M d)))
#s(approx (/ M d) (/.f64 M d))
#s(approx M #s(hole binary64 M))
#s(approx M M)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (.f64 h h) w0) (.f64 M M)) (.f64 l l))) #s(literal -1/128 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) w0) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64))) (*.f64 M M) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (.f64 M M)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 h h) w0) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 M M) (.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) w0) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64))) (*.f64 M M) w0))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(literal 1 binary64))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 h h) (.f64 M M)) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/8 binary64)) (.f64 (.f64 d d) l))) (*.f64 M M) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 M M)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 h h) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 M M) (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/8 binary64)) (.f64 (.f64 d d) l))) (.f64 M M) #s(literal 1 binary64)))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 1))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(literal 1 binary64))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) #s(literal 1 binary64)))
#s(approx (* M (* h (/ M (* (* d d) l)))) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (* M (* h (/ M (* (* d d) l)))) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M))
#s(approx (* h (/ M (* (* d d) l))) #s(hole binary64 (/ (* M h) (* (pow d 2) l))))
#s(approx (* h (/ M (* (* d d) l))) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h))
#s(approx (/ M (* (* d d) l)) #s(hole binary64 (/ M (* (pow d 2) l))))
#s(approx (/ M (* (* d d) l)) (/.f64 M (.f64 (.f64 d d) l)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(literal 1 binary64))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) #s(literal 1 binary64)))
#s(approx (/ (* (* (/ h d) M) M) (* d l)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (/ (* (* (/ h d) M) M) (* d l)) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M))
#s(approx (* (* (/ h d) M) M) #s(hole binary64 (/ (* (pow M 2) h) d)))
#s(approx (* (* (/ h d) M) M) (.f64 (.f64 (/.f64 h d) M) M))
#s(approx (* (/ h d) M) #s(hole binary64 (/ (* M h) d)))
#s(approx (* (/ h d) M) (*.f64 (/.f64 h d) M))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(literal 1 binary64))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 1))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(literal 1 binary64))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) #s(literal 1 binary64)))
#s(approx (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l)) (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))
#s(approx (* (* 1/4 D) (* D (* (* M M) h))) #s(hole binary64 (* 1/4 (* (pow D 2) (* (pow M 2) h)))))
#s(approx (* (* 1/4 D) (* D (* (* M M) h))) (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) (.f64 (*.f64 M M) h)))
#s(approx (* D (* (* M M) h)) #s(hole binary64 (* D (* (pow M 2) h))))
#s(approx (* D (* (* M M) h)) (.f64 (.f64 (*.f64 M M) h) D))
#s(approx (* (* M M) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (* (* M M) h) (.f64 (.f64 M M) h))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx (* M M) (*.f64 M M))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 1))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(literal 1 binary64))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) #s(literal 1 binary64)))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 1))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(literal 1 binary64))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) #s(literal 1 binary64)))
#s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))
#s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64)))
#s(approx (/ (* (* M D) (* M D)) (* d l)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) (* d l))))
#s(approx (/ (* (* M D) (* M D)) (* d l)) (.f64 (/.f64 (.f64 D D) d) (/.f64 (*.f64 M M) l)))
#s(approx (* (* M D) (* M D)) #s(hole binary64 (* (pow D 2) (pow M 2))))
#s(approx (* (* M D) (* M D)) (.f64 (.f64 (*.f64 M D) M) D))
#s(approx (* M D) #s(hole binary64 (* D M)))
#s(approx (* M D) (*.f64 M D))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/8 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/8 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (.f64 (neg.f64 D) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (.f64 (neg.f64 D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (.f64 (neg.f64 D) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (.f64 (neg.f64 D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) #s(literal -1/8 binary64)) (.f64 (.f64 d d) l))) (*.f64 D D) w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 h h) w0) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 D D) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) #s(literal -1/8 binary64)) (.f64 (.f64 d d) l))) (*.f64 D D) w0))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (.f64 l l))) #s(literal -1/128 binary64) (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) #s(literal -1/8 binary64))) (*.f64 D D) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 h h) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 D D) (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) #s(literal -1/8 binary64))) (.f64 D D) #s(literal 1 binary64)))
#s(approx (/ D 2) #s(hole binary64 (* 1/2 D)))
#s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))
#s(approx (* 1/2 D) #s(hole binary64 (* 1/2 D)))
#s(approx (* 1/2 D) (*.f64 #s(literal 1/2 binary64) D))
#s(approx D #s(hole binary64 D))
#s(approx D D)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) #s(literal -1/8 binary64)) (.f64 (.f64 d d) l))) (*.f64 D D) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 h h) w0) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 D D) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) #s(literal -1/8 binary64)) (.f64 (.f64 d d) l))) (*.f64 D D) w0))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (.f64 l l))) #s(literal -1/128 binary64) (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) #s(literal -1/8 binary64))) (*.f64 D D) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 h h) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 D D) (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) #s(literal -1/8 binary64))) (.f64 D D) #s(literal 1 binary64)))
#s(approx (* -1/8 (* D D)) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (* -1/8 (* D D)) (.f64 #s(literal -1/8 binary64) (.f64 D D)))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx (* D D) (*.f64 D D))
#s(approx (* 1/4 D) #s(hole binary64 (* 1/4 D)))
#s(approx (* 1/4 D) (*.f64 #s(literal 1/4 binary64) D))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) #s(literal -1/4 binary64)) (.f64 D D) #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) #s(literal -1/8 binary64)) (.f64 D D) #s(literal 1 binary64)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) #s(literal -1/8 binary64)) (.f64 D D) #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) #s(literal -1/4 binary64)) (.f64 D D) #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) #s(literal -1/4 binary64)) (.f64 D D) #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) #s(literal -1/4 binary64)) (.f64 D D) #s(literal 1 binary64)))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) #s(literal -1/4 binary64)) (.f64 D D) #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 d w0)) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) w0) (.f64 l l))) #s(literal -1/128 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64))) h w0))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) w0) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) w0) (.f64 l l))) #s(literal -1/128 binary64))) h (.f64 (/.f64 (.f64 (.f64 (.f64 M M) w0) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64))) h w0))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) (.f64 l l))) #s(literal -1/128 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64))) h #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 l l))) #s(literal -1/128 binary64))) h (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64))) h #s(literal 1 binary64)))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx (/ h l) (/.f64 h l))
#s(approx h #s(hole binary64 h))
#s(approx h h)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) w0) (.f64 l l))) #s(literal -1/128 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64))) h w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) w0) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) w0) (.f64 l l))) #s(literal -1/128 binary64))) h (.f64 (/.f64 (.f64 (.f64 (.f64 M M) w0) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64))) h w0))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) (.f64 l l))) #s(literal -1/128 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64))) h #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 l l))) #s(literal -1/128 binary64))) h (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64))) h #s(literal 1 binary64)))
#s(approx (/ h d) #s(hole binary64 (/ h d)))
#s(approx (/ h d) (/.f64 h d))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) h))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))) h))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))))) h))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) h))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d)))) h))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))))) h))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64)) h #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))) h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))))) h))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) h))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d)))) h))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))))) h))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64)) h #s(literal 1 binary64)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64)) h #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64)) h #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64)) h #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64)) h #s(literal 1 binary64)))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64)) h #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 d D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 M #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 2 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 d D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 M #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 2 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64)) h #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 d D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 M #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 2 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (/.f64 d D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 M #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 2 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (*.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) (.f64 (neg.f64 h) (-.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (*.f64 d d) l))) (/.f64 #s(literal 1 binary64) h))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (neg.f64 h) (-.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (*.f64 d d) l))) (/.f64 #s(literal 1 binary64) h))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64)) h #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64)) h #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64)) h #s(literal 1 binary64)))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (.f64 (neg.f64 h) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (*.f64 d d) l)) #s(literal 1/4 binary64)) (/.f64 #s(literal 1 binary64) h))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))))) (.f64 l l) (.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))))) (.f64 l l) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) #s(literal 1 binary64)))
#s(approx l #s(hole binary64 l))
#s(approx l l)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 d #s(literal 5 binary64)) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))))) (.f64 l l) (.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))))) (.f64 l l) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) #s(literal 1 binary64)))
#s(approx (* (* d d) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx (* (* d d) l) (.f64 (.f64 d d) l))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) #s(literal 1 binary64)))
#s(approx (* d l) #s(hole binary64 (* d l)))
#s(approx (* d l) (*.f64 d l))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) #s(literal 1 binary64)))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) #s(literal 1 binary64)))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) #s(literal 1 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (.f64 l l))) #s(literal -1/128 binary64) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) w0)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (.f64 l l))) #s(literal -1/128 binary64))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) w0)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (.f64 l l))) #s(literal -1/128 binary64) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (+.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (.f64 l l))) #s(literal -1/128 binary64) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) #s(literal 1 binary64))) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (.f64 l l))) #s(literal -1/128 binary64) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) w0)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (.f64 l l))) #s(literal -1/128 binary64))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) w0)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (.f64 l l))) #s(literal -1/128 binary64) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (+.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (.f64 l l))) #s(literal -1/128 binary64) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) #s(literal 1 binary64))) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (*.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64))))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (-.f64 w0 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 d d)) #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (.f64 (pow.f64 d #s(literal 4 binary64)) l)) #s(literal 1/128 binary64))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (-.f64 w0 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 d d)) #s(literal 1/8 binary64) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (.f64 (pow.f64 d #s(literal 6 binary64)) l)) #s(literal -1/1024 binary64) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (*.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (.f64 (pow.f64 d #s(literal 4 binary64)) l)) #s(literal 1/128 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 d d)) #s(literal 1/8 binary64))) l)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 d d)) #s(literal 1/8 binary64) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 D #s(literal 6 binary64))) (.f64 (pow.f64 d #s(literal 6 binary64)) l)) #s(literal -1/1024 binary64) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (-.f64 w0 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 d d)) #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (.f64 (pow.f64 d #s(literal 4 binary64)) l)) #s(literal 1/128 binary64))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (-.f64 w0 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 d d)) #s(literal 1/8 binary64) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (.f64 (pow.f64 d #s(literal 6 binary64)) l)) #s(literal -1/1024 binary64) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (*.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (.f64 (pow.f64 d #s(literal 4 binary64)) l)) #s(literal 1/128 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 d d)) #s(literal 1/8 binary64))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 d d)) #s(literal 1/8 binary64) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 D #s(literal 6 binary64))) (.f64 (pow.f64 d #s(literal 6 binary64)) l)) #s(literal -1/1024 binary64) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l)))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 d d) w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 d d) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (* w0 (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (.f64 d d) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))))) (.f64 d d) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d d) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 d d)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 d d)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))))) (.f64 d d) (.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal 1/4 binary64)) (.f64 d d))))
#s(approx d #s(hole binary64 d))
#s(approx d d)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 d d) w0) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 d d) w0)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (.f64 d d) w0)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))))) (.f64 d d) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d d) D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 d d)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 d d)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))))) (.f64 d d) (.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* -1/8 (* D D)) (* M (* h (/ M (* (* d d) l))))) 1) (+.f64 (/.f64 (.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/8 binary64)) (.f64 d d)) #s(literal 1 binary64)))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (* d d) (*.f64 d d))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (+.f64 (/.f64 (.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/8 binary64)) (.f64 d d)) #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (* (* (/ h l) (* (/ D 2) (/ M d))) (* (/ D 2) (/ M d)))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal 1/4 binary64)) (.f64 d d))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal 1/4 binary64)) (.f64 d d))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (- 1 (/ (* (* 1/4 D) (* D (* (* M M) h))) (* (* d d) l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal 1/4 binary64)) (.f64 d d))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal 1/4 binary64)) (.f64 d d))))
#s(approx (/ -1/4 d) #s(hole binary64 (/ -1/4 d)))
#s(approx (/ -1/4 d) (/.f64 #s(literal -1/4 binary64) d))

rewrite102.0ms (1.3%)

Memory

8.8MiB live, 197.0MiB allocated; 15ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	78	858
0	123	842
1	392	782
0	2714	782

Stop Event

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

Counts

59 → 634

Calls

Call 1

Inputs
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))))
w0
(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))))
(-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))
#s(literal 1 binary64)
(.f64 (.f64 (/.f64 h l) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))
(.f64 (/.f64 h l) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))
(/.f64 h l)
h
l
(.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))
#s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))
(*.f64 #s(literal 1/2 binary64) D)
#s(literal 1/2 binary64)
D
(/.f64 M d)
M
d
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64)))
(fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))
(.f64 #s(literal -1/8 binary64) (.f64 D D))
#s(literal -1/8 binary64)
(*.f64 D D)
(.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l))))
(.f64 h (/.f64 M (.f64 (*.f64 d d) l)))
(/.f64 M (.f64 (.f64 d d) l))
(.f64 (.f64 d d) l)
(*.f64 d d)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64)))
(fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))
(/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l))
(.f64 (.f64 (/.f64 h d) M) M)
(*.f64 (/.f64 h d) M)
(/.f64 h d)
(*.f64 d l)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l))))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l))))
(-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l)))
(/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l))
(.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (*.f64 M M) h)))
(*.f64 #s(literal 1/4 binary64) D)
#s(literal 1/4 binary64)
(.f64 D (.f64 (*.f64 M M) h))
(.f64 (.f64 M M) h)
(*.f64 M M)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64))))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))
(fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64))
(.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l)))
(/.f64 #s(literal -1/4 binary64) d)
#s(literal -1/4 binary64)
(/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))
(.f64 (.f64 M D) (*.f64 M D))
(*.f64 M D)

Outputs
(.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)))) w0)
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)))))
w0
(.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l))) #s(literal 1/4 binary64)) (pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l))) #s(literal 1/4 binary64)))
(pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l))) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)) (fma.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1 binary64))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l))))
(exp.f64 (.f64 (log1p.f64 (.f64 (neg.f64 (/.f64 h l)) (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (neg.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)) (fma.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 2 binary64))) (fma.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 3 binary64))) (fma.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)) (fma.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 (neg.f64 (/.f64 h l)) (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))) (/.f64 M d)) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (neg.f64 (/.f64 h l)) (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) (/.f64 M d) #s(literal 1 binary64))
(fma.f64 (.f64 (neg.f64 (/.f64 h l)) (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))) (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (.f64 (neg.f64 (/.f64 h l)) (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)))) #s(literal 1 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)) (fma.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 3 binary64)) (fma.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)) (fma.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (neg.f64 (/.f64 h l)) (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))))) (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))))
(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)))
(+.f64 (neg.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 h l)) (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))))) (/.f64 M d)))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))) (.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (/.f64 h l))))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (/.f64 h l)) (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (neg.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l))))
#s(literal 1 binary64)
(.f64 (.f64 (.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (/.f64 h l)) (/.f64 M d)) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 h l)) (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))))) (/.f64 M d))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (/.f64 h l))) (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))) (.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) (/.f64 h l)))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 h l)) (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l))
(.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 h l)) (.f64 (/.f64 M d) (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))))
(.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 h l)) (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))) (/.f64 M d))
(.f64 (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 1 binary64))
(.f64 (.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (/.f64 h l)) (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))))
(.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (/.f64 h l)))
(.f64 (/.f64 M d) (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 h l)) (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))))
(.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (.f64 (/.f64 M d) (.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (/.f64 h l))))
(.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)))
(.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l)))
(/.f64 (.f64 (.f64 (.f64 (/.f64 h d) M) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))) l)
(/.f64 (.f64 (.f64 M #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (/.f64 h l))) d)
(/.f64 (.f64 (neg.f64 h) (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64))) (neg.f64 l))
(/.f64 (.f64 h (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64))) l)
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) #s(literal 2 binary64)) (/.f64 h l))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 h l)) (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))) (neg.f64 M)) (neg.f64 d))
(/.f64 (.f64 (.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 h l)) (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))) M) d)
(/.f64 (.f64 (.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (/.f64 h l)) (.f64 M #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))) d)
(/.f64 (.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (.f64 (.f64 (/.f64 h d) M) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))) l)
(/.f64 (.f64 (.f64 (.f64 (/.f64 h d) M) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (.f64 M #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))) (*.f64 d l))
(/.f64 (.f64 (.f64 M #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (.f64 (.f64 (/.f64 h d) M) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))) (*.f64 d l))
(.f64 (.f64 (/.f64 h l) (/.f64 M d)) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)))
(.f64 (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 h l)) (/.f64 M d))
(.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) (/.f64 h l))
(.f64 (/.f64 M d) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 h l)))
(.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (*.f64 (/.f64 M d) (/.f64 h l)))
(.f64 (/.f64 h l) (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))))
(.f64 h (/.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) l))
(/.f64 (.f64 (.f64 M #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) (/.f64 h l)) d)
(/.f64 (.f64 (neg.f64 h) (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)))) (neg.f64 l))
(/.f64 (.f64 (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 h l)) (neg.f64 M)) (neg.f64 d))
(/.f64 (.f64 (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 h l)) M) d)
(/.f64 (.f64 (.f64 (/.f64 M d) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) (neg.f64 h)) (neg.f64 l))
(/.f64 (.f64 (/.f64 h l) (.f64 M #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)))) d)
(/.f64 (neg.f64 (.f64 (.f64 (/.f64 h d) M) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)))) (neg.f64 l))
(/.f64 (.f64 (.f64 M #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (neg.f64 h)) (.f64 (neg.f64 d) l))
(/.f64 (.f64 (.f64 M #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) h) (.f64 d l))
(/.f64 (.f64 (neg.f64 h) (.f64 M #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))) (.f64 (neg.f64 d) l))
(/.f64 (.f64 h (.f64 M #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))) (.f64 d l))
(/.f64 (.f64 (.f64 (/.f64 h d) M) #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))) l)
(/.f64 (neg.f64 (neg.f64 h)) (neg.f64 (neg.f64 l)))
(/.f64 (neg.f64 h) (neg.f64 l))
(/.f64 h l)
(neg.f64 (/.f64 (neg.f64 h) l))
(neg.f64 (/.f64 h (neg.f64 l)))
h
l
(.f64 (/.f64 M d) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))
(.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))
(/.f64 (.f64 (neg.f64 M) #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) (neg.f64 d))
(/.f64 (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (neg.f64 M)) (neg.f64 d))
(/.f64 (neg.f64 (.f64 M #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)))) (neg.f64 d))
(/.f64 (.f64 M #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D))) d)
#s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D))
(*.f64 #s(literal 1/2 binary64) D)
(*.f64 D #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
D
(/.f64 (neg.f64 (neg.f64 M)) (neg.f64 (neg.f64 d)))
(/.f64 (neg.f64 M) (neg.f64 d))
(/.f64 M d)
(neg.f64 (/.f64 (neg.f64 M) d))
(neg.f64 (/.f64 M (neg.f64 d)))
M
d
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (fma.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal -1 binary64))))
(/.f64 (neg.f64 (fma.f64 #s(literal -1/512 binary64) (pow.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal 3 binary64)) #s(literal 1 binary64))) (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)))))))
(/.f64 (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (.f64 (.f64 (/.f64 h d) M) M))) #s(literal 2 binary64) (.f64 (.f64 d l) #s(literal 2 binary64))) (.f64 (*.f64 d l) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 d l) (.f64 #s(literal 2 binary64) (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (.f64 (.f64 (/.f64 h d) M) M))))) (.f64 #s(literal 2 binary64) (*.f64 d l)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64)) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal -1 binary64)))
(/.f64 (fma.f64 #s(literal -1/512 binary64) (pow.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))))))
(/.f64 (fma.f64 #s(literal -1/512 binary64) (pow.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))))))
(fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) (/.f64 M (.f64 (.f64 d d) l))) h #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M h)) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) M #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) #s(literal -1/8 binary64)) (.f64 D D) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (/.f64 h d) M) d)) (/.f64 M l) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h d) M)) (/.f64 (/.f64 M l) d) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) l) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) l) (.f64 M (/.f64 (.f64 (/.f64 h d) M) d)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal -1/8 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (/.f64 h d) M) d) (.f64 (/.f64 M l) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (*.f64 d d) l))) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 M h) (.f64 (/.f64 M (.f64 (.f64 d d) l)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 (.f64 D D) #s(literal -1/8 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 h d) M) (.f64 (/.f64 (/.f64 M l) d) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) #s(literal 1 binary64))
(fma.f64 (.f64 D D) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) #s(literal 1 binary64))
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal 1 binary64))
(fma.f64 M (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (*.f64 d d) l))) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64)) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 (.f64 D D) #s(literal -1/8 binary64)) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal -1 binary64))))
(-.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (*.f64 d d) l))) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) (.f64 (*.f64 D D) #s(literal -1/8 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64))) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M)))
(-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M)) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)))))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (*.f64 d d) l)))))))
(+.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (*.f64 d d) l))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (*.f64 d d) l))))
(.f64 (.f64 #s(literal -1/8 binary64) (neg.f64 D)) (neg.f64 D))
(.f64 (.f64 #s(literal -1/8 binary64) (fabs.f64 D)) (fabs.f64 D))
(.f64 (.f64 #s(literal -1/8 binary64) D) D)
(.f64 (neg.f64 D) (.f64 (neg.f64 D) #s(literal -1/8 binary64)))
(.f64 (fabs.f64 D) (.f64 (fabs.f64 D) #s(literal -1/8 binary64)))
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(.f64 #s(literal -1/8 binary64) (.f64 D D))
(.f64 D (.f64 #s(literal -1/8 binary64) D))
#s(literal -1/8 binary64)
(*.f64 (neg.f64 (neg.f64 D)) (neg.f64 (neg.f64 D)))
(*.f64 (neg.f64 (fabs.f64 D)) (neg.f64 (fabs.f64 D)))
(*.f64 (fabs.f64 (fabs.f64 D)) (fabs.f64 (fabs.f64 D)))
(*.f64 (pow.f64 D #s(literal 1 binary64)) (pow.f64 D #s(literal 1 binary64)))
(*.f64 (pow.f64 D #s(literal 1 binary64)) D)
(*.f64 (neg.f64 D) (neg.f64 D))
(*.f64 (fabs.f64 D) (fabs.f64 D))
(*.f64 D D)
(pow.f64 (neg.f64 D) #s(literal 2 binary64))
(pow.f64 (fabs.f64 D) #s(literal 2 binary64))
(pow.f64 D #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 D) D))
(neg.f64 (*.f64 D (neg.f64 D)))
(fabs.f64 (*.f64 D D))
(exp.f64 (*.f64 (log.f64 D) #s(literal 2 binary64)))
(.f64 (.f64 M (/.f64 M (.f64 (.f64 d d) l))) h)
(.f64 (/.f64 (/.f64 h d) d) (/.f64 (.f64 M M) l))
(.f64 (/.f64 (/.f64 h d) l) (/.f64 (.f64 M M) d))
(.f64 (/.f64 (.f64 (/.f64 h d) M) l) (/.f64 M d))
(.f64 (/.f64 (/.f64 M l) d) (.f64 (/.f64 h d) M))
(.f64 (/.f64 M l) (/.f64 (.f64 (/.f64 h d) M) d))
(.f64 (/.f64 (.f64 (/.f64 h d) M) d) (/.f64 M l))
(.f64 (.f64 M h) (/.f64 M (.f64 (.f64 d d) l)))
(.f64 (.f64 (/.f64 h d) M) (/.f64 (/.f64 M l) d))
(.f64 (/.f64 h d) (/.f64 (.f64 M M) (*.f64 d l)))
(.f64 (/.f64 h d) (.f64 M (/.f64 (/.f64 M l) d)))
(.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)
(.f64 (/.f64 M (.f64 (.f64 d d) l)) (.f64 M h))
(.f64 (/.f64 M d) (/.f64 (.f64 (/.f64 h d) M) l))
(.f64 M (.f64 (/.f64 M (.f64 (.f64 d d) l)) h))
(.f64 h (.f64 (/.f64 M (.f64 (.f64 d d) l)) M))
(.f64 h (.f64 M (/.f64 M (.f64 (.f64 d d) l))))
(/.f64 (.f64 (.f64 (/.f64 h d) M) (/.f64 M l)) d)
(/.f64 (.f64 (.f64 M h) (/.f64 (/.f64 M l) d)) d)
(/.f64 (.f64 (.f64 M h) (/.f64 (/.f64 M d) d)) l)
(/.f64 (.f64 (.f64 M h) (neg.f64 M)) (.f64 (neg.f64 l) (.f64 d d)))
(/.f64 (.f64 (/.f64 (.f64 (/.f64 h d) M) d) M) l)
(/.f64 (/.f64 (.f64 (.f64 (/.f64 h d) M) M) l) d)
(/.f64 (neg.f64 (.f64 M (/.f64 (.f64 (/.f64 h d) M) d))) (neg.f64 l))
(/.f64 (neg.f64 (.f64 (neg.f64 M) (.f64 (/.f64 h d) M))) (neg.f64 (*.f64 (neg.f64 d) l)))
(/.f64 (.f64 M (/.f64 (.f64 (/.f64 h d) M) d)) l)
(/.f64 (.f64 (neg.f64 M) (.f64 (/.f64 h d) M)) (*.f64 (neg.f64 d) l))
(/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l))
(/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l))
(neg.f64 (/.f64 (.f64 (neg.f64 M) (.f64 (/.f64 h d) M)) (*.f64 d l)))
(neg.f64 (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 (neg.f64 d) l)))
(.f64 (/.f64 h (.f64 d d)) (/.f64 M l))
(*.f64 (/.f64 (/.f64 M d) d) (/.f64 h l))
(.f64 (/.f64 M l) (/.f64 h (.f64 d d)))
(*.f64 (/.f64 h d) (/.f64 (/.f64 M l) d))
(.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)
(.f64 (/.f64 M d) (/.f64 h (.f64 d l)))
(.f64 M (/.f64 h (.f64 (*.f64 d d) l)))
(*.f64 (/.f64 h l) (/.f64 (/.f64 M d) d))
(.f64 h (/.f64 M (.f64 (*.f64 d d) l)))
(/.f64 (*.f64 (/.f64 (/.f64 M d) d) h) l)
(/.f64 (*.f64 h (/.f64 (/.f64 M d) d)) l)
(/.f64 (.f64 (neg.f64 M) h) (.f64 (neg.f64 l) (*.f64 d d)))
(/.f64 (.f64 h (neg.f64 M)) (.f64 (neg.f64 l) (*.f64 d d)))
(/.f64 (neg.f64 (.f64 M h)) (.f64 (neg.f64 l) (*.f64 d d)))
(/.f64 (.f64 M (/.f64 h l)) (.f64 d d))
(/.f64 (/.f64 (*.f64 (/.f64 h d) M) d) l)
(/.f64 (.f64 M h) (.f64 (*.f64 d d) l))
(/.f64 (.f64 (/.f64 h d) M) (.f64 d l))
(/.f64 (neg.f64 (/.f64 (/.f64 M d) d)) (neg.f64 l))
(/.f64 (neg.f64 (neg.f64 M)) (neg.f64 (.f64 (neg.f64 l) (.f64 d d))))
(/.f64 (/.f64 (/.f64 M d) d) l)
(/.f64 (/.f64 M l) (*.f64 d d))
(/.f64 (neg.f64 M) (.f64 (neg.f64 l) (.f64 d d)))
(/.f64 (/.f64 M d) (*.f64 d l))
(/.f64 M (.f64 (.f64 d d) l))
(neg.f64 (/.f64 (neg.f64 M) (.f64 (.f64 d d) l)))
(neg.f64 (/.f64 M (.f64 (neg.f64 l) (.f64 d d))))
(.f64 (.f64 l (fabs.f64 d)) (fabs.f64 d))
(.f64 (.f64 (neg.f64 d) l) (neg.f64 d))
(.f64 (neg.f64 d) (.f64 (neg.f64 d) l))
(.f64 (fabs.f64 d) (.f64 (fabs.f64 d) l))
(.f64 (.f64 d l) d)
(.f64 (.f64 d d) l)
(.f64 d (.f64 d l))
(.f64 l (.f64 d d))
(*.f64 (neg.f64 (neg.f64 d)) (neg.f64 (neg.f64 d)))
(*.f64 (neg.f64 (fabs.f64 d)) (neg.f64 (fabs.f64 d)))
(*.f64 (fabs.f64 (fabs.f64 d)) (fabs.f64 (fabs.f64 d)))
(*.f64 (pow.f64 d #s(literal 1 binary64)) (pow.f64 d #s(literal 1 binary64)))
(*.f64 (pow.f64 d #s(literal 1 binary64)) d)
(*.f64 (neg.f64 d) (neg.f64 d))
(*.f64 (fabs.f64 d) (fabs.f64 d))
(*.f64 d d)
(pow.f64 (neg.f64 d) #s(literal 2 binary64))
(pow.f64 (fabs.f64 d) #s(literal 2 binary64))
(pow.f64 d #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 d) d))
(neg.f64 (*.f64 d (neg.f64 d)))
(fabs.f64 (*.f64 d d))
(exp.f64 (*.f64 (log.f64 d) #s(literal 2 binary64)))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (fma.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal -1 binary64))))
(/.f64 (neg.f64 (fma.f64 #s(literal -1/512 binary64) (pow.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal 3 binary64)) #s(literal 1 binary64))) (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)))))))
(/.f64 (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (.f64 (.f64 (/.f64 h d) M) M))) #s(literal 2 binary64) (.f64 (.f64 d l) #s(literal 2 binary64))) (.f64 (*.f64 d l) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 d l) (.f64 #s(literal 2 binary64) (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (.f64 (.f64 (/.f64 h d) M) M))))) (.f64 #s(literal 2 binary64) (*.f64 d l)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64)) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal -1 binary64)))
(/.f64 (fma.f64 #s(literal -1/512 binary64) (pow.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))))))
(/.f64 (fma.f64 #s(literal -1/512 binary64) (pow.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))))))
(fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) (/.f64 M (.f64 (.f64 d d) l))) h #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M h)) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) M #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) #s(literal -1/8 binary64)) (.f64 D D) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (/.f64 h d) M) d)) (/.f64 M l) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h d) M)) (/.f64 (/.f64 M l) d) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) l) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) l) (.f64 M (/.f64 (.f64 (/.f64 h d) M) d)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal -1/8 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (/.f64 h d) M) d) (.f64 (/.f64 M l) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (*.f64 d d) l))) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 M h) (.f64 (/.f64 M (.f64 (.f64 d d) l)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 (.f64 D D) #s(literal -1/8 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 h d) M) (.f64 (/.f64 (/.f64 M l) d) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) #s(literal 1 binary64))
(fma.f64 (.f64 D D) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) #s(literal 1 binary64))
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal 1 binary64))
(fma.f64 M (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (*.f64 d d) l))) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64)) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 (.f64 D D) #s(literal -1/8 binary64)) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal -1 binary64))))
(-.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (*.f64 d d) l))) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) (.f64 (*.f64 D D) #s(literal -1/8 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64))) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M)))
(-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M)) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)))))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (*.f64 d d) l)))))))
(+.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (*.f64 d d) l))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (*.f64 d d) l))))
(.f64 (.f64 M (/.f64 M (.f64 (.f64 d d) l))) h)
(.f64 (/.f64 (/.f64 h d) d) (/.f64 (.f64 M M) l))
(.f64 (/.f64 (/.f64 h d) l) (/.f64 (.f64 M M) d))
(.f64 (/.f64 (.f64 (/.f64 h d) M) l) (/.f64 M d))
(.f64 (/.f64 (/.f64 M l) d) (.f64 (/.f64 h d) M))
(.f64 (/.f64 M l) (/.f64 (.f64 (/.f64 h d) M) d))
(.f64 (/.f64 (.f64 (/.f64 h d) M) d) (/.f64 M l))
(.f64 (.f64 M h) (/.f64 M (.f64 (.f64 d d) l)))
(.f64 (.f64 (/.f64 h d) M) (/.f64 (/.f64 M l) d))
(.f64 (/.f64 h d) (/.f64 (.f64 M M) (*.f64 d l)))
(.f64 (/.f64 h d) (.f64 M (/.f64 (/.f64 M l) d)))
(.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)
(.f64 (/.f64 M (.f64 (.f64 d d) l)) (.f64 M h))
(.f64 (/.f64 M d) (/.f64 (.f64 (/.f64 h d) M) l))
(.f64 M (.f64 (/.f64 M (.f64 (.f64 d d) l)) h))
(.f64 h (.f64 (/.f64 M (.f64 (.f64 d d) l)) M))
(.f64 h (.f64 M (/.f64 M (.f64 (.f64 d d) l))))
(/.f64 (.f64 (.f64 (/.f64 h d) M) (/.f64 M l)) d)
(/.f64 (.f64 (.f64 M h) (/.f64 (/.f64 M l) d)) d)
(/.f64 (.f64 (.f64 M h) (/.f64 (/.f64 M d) d)) l)
(/.f64 (.f64 (.f64 M h) (neg.f64 M)) (.f64 (neg.f64 l) (.f64 d d)))
(/.f64 (.f64 (/.f64 (.f64 (/.f64 h d) M) d) M) l)
(/.f64 (/.f64 (.f64 (.f64 (/.f64 h d) M) M) l) d)
(/.f64 (neg.f64 (.f64 M (/.f64 (.f64 (/.f64 h d) M) d))) (neg.f64 l))
(/.f64 (neg.f64 (.f64 (neg.f64 M) (.f64 (/.f64 h d) M))) (neg.f64 (*.f64 (neg.f64 d) l)))
(/.f64 (.f64 M (/.f64 (.f64 (/.f64 h d) M) d)) l)
(/.f64 (.f64 (neg.f64 M) (.f64 (/.f64 h d) M)) (*.f64 (neg.f64 d) l))
(/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l))
(/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l))
(neg.f64 (/.f64 (.f64 (neg.f64 M) (.f64 (/.f64 h d) M)) (*.f64 d l)))
(neg.f64 (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 (neg.f64 d) l)))
(.f64 (.f64 (/.f64 h d) (neg.f64 M)) (neg.f64 M))
(.f64 (.f64 (/.f64 h d) (fabs.f64 M)) (fabs.f64 M))
(.f64 (.f64 M M) (/.f64 h d))
(.f64 (.f64 (/.f64 h d) M) M)
(.f64 (/.f64 h d) (.f64 M M))
(.f64 M (.f64 (/.f64 h d) M))
(/.f64 (.f64 (neg.f64 h) (.f64 M M)) (neg.f64 d))
(/.f64 (.f64 (.f64 M M) h) d)
(*.f64 (/.f64 h d) M)
(*.f64 M (/.f64 h d))
(*.f64 h (/.f64 M d))
(/.f64 (*.f64 (neg.f64 h) M) (neg.f64 d))
(/.f64 (*.f64 M (neg.f64 h)) (neg.f64 d))
(/.f64 (neg.f64 (*.f64 M h)) (neg.f64 d))
(/.f64 (*.f64 M h) d)
(/.f64 (neg.f64 (neg.f64 h)) (neg.f64 (neg.f64 d)))
(/.f64 (neg.f64 h) (neg.f64 d))
(/.f64 h d)
(neg.f64 (/.f64 (neg.f64 h) d))
(neg.f64 (/.f64 h (neg.f64 d)))
(*.f64 d l)
(*.f64 l d)
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d)))))) w0)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d)))))))
(.f64 (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d))))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d))))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d))))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d))))))
(exp.f64 (.f64 (log.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d)))))) #s(literal 1/2 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d)))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (*.f64 d d)) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d))) (fma.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (*.f64 d d)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) d) (/.f64 h d)))) (.f64 #s(literal 2 binary64) l))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (neg.f64 l) (.f64 d d))) (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h)))) (.f64 #s(literal 2 binary64) (.f64 (neg.f64 l) (.f64 d d))))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) l)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) #s(literal 1/4 binary64)))) (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) l)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d))) #s(literal 2 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (*.f64 d d)) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d))) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d))) (fma.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (*.f64 d d)) #s(literal 1 binary64)) #s(literal 1 binary64)))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d))) #s(literal 2 binary64)) (fma.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d)) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d))) (fma.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d)) #s(literal 1 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d))) #s(literal 3 binary64)) (fma.f64 (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d))) (fma.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d))))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (/.f64 #s(literal 1/4 binary64) d) (/.f64 D d))) (/.f64 (.f64 (.f64 (*.f64 M M) h) D) l)))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) d) (/.f64 M d))) (*.f64 M (/.f64 h l))))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) M)) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 #s(literal 1/4 binary64) D)) (.f64 D (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))
(.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) M) (/.f64 M (.f64 (*.f64 d d) l))) h)
(.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) M) h) (/.f64 M (.f64 (*.f64 d d) l)))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1/4 binary64) d) (/.f64 D d))) (/.f64 (.f64 (.f64 (.f64 M M) h) D) l))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) d) (/.f64 M d))) (.f64 M (/.f64 h l)))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) M)) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h))
(.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) D)) (.f64 D (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)))
(.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 d d)) (/.f64 h l))
(.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (.f64 d d)))
(.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) M) l) (/.f64 (*.f64 (/.f64 h d) M) d))
(.f64 (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))
(.f64 (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) l) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))
(.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) D) (.f64 d d)) (/.f64 (.f64 #s(literal 1/4 binary64) D) l))
(.f64 (/.f64 (.f64 #s(literal 1/4 binary64) D) l) (/.f64 (.f64 (.f64 (.f64 M M) h) D) (.f64 d d)))
(.f64 (/.f64 #s(literal 1/4 binary64) (.f64 d d)) (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) l))
(.f64 (/.f64 #s(literal 1/4 binary64) l) (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) (.f64 d d)))
(.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) d) (/.f64 h (.f64 d l)))
(.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) M) d) (/.f64 (.f64 M h) (.f64 d l)))
(.f64 (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) d) (/.f64 (.f64 (.f64 M M) h) (.f64 d l)))
(.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) D) d) (/.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 d l)))
(.f64 (/.f64 (.f64 #s(literal 1/4 binary64) D) d) (/.f64 (.f64 (.f64 (.f64 M M) h) D) (.f64 d l)))
(.f64 (/.f64 #s(literal 1/4 binary64) d) (/.f64 (.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) d) h) l))
(.f64 (.f64 D (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)) (*.f64 #s(literal 1/4 binary64) D))
(.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) (/.f64 h (.f64 (*.f64 d d) l)))
(.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) D) l) (*.f64 (/.f64 #s(literal 1/4 binary64) d) (/.f64 D d)))
(.f64 (.f64 (/.f64 #s(literal 1/4 binary64) d) (/.f64 D d)) (/.f64 (.f64 (.f64 (*.f64 M M) h) D) l))
(.f64 (.f64 M (/.f64 h l)) (.f64 (/.f64 (.f64 (*.f64 #s(literal 1/4 binary64) D) D) d) (/.f64 M d)))
(.f64 (.f64 (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) d) (/.f64 M d)) (*.f64 M (/.f64 h l)))
(.f64 (/.f64 (.f64 (/.f64 h d) M) d) (/.f64 (.f64 (.f64 (*.f64 #s(literal 1/4 binary64) D) D) M) l))
(.f64 (.f64 M h) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) M) (.f64 (*.f64 d d) l)))
(.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h))
(.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))
(.f64 (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (*.f64 d d))) #s(literal 1 binary64))
(.f64 (.f64 (.f64 (.f64 M M) h) D) (/.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (*.f64 d d) l)))
(.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M)))
(.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) (.f64 (*.f64 d d) l)))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))
(.f64 (.f64 (/.f64 h d) M) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) M) (.f64 d l)))
(.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) (.f64 (.f64 (*.f64 #s(literal 1/4 binary64) D) D) M))
(.f64 M (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))
(.f64 D (.f64 #s(literal 1/4 binary64) (.f64 D (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))
(.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (*.f64 d d))))
(/.f64 (/.f64 (.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) #s(literal 1/4 binary64)) l) (.f64 d d))
(/.f64 (/.f64 (.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) #s(literal 1/4 binary64)) d) (.f64 d l))
(/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (/.f64 (.f64 (.f64 (.f64 M M) h) D) l)) (.f64 d d))
(/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) M) (.f64 M (/.f64 h l))) (.f64 d d))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) l) (/.f64 h (*.f64 d d)))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (/.f64 #s(literal 1/4 binary64) d) (/.f64 D d)) (.f64 (.f64 (*.f64 M M) h) D)) l)
(/.f64 (.f64 (.f64 (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) d) (/.f64 M d)) (*.f64 M h)) l)
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) d) (/.f64 h d))) l)
(/.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h))) (.f64 (neg.f64 l) (.f64 d d)))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) #s(literal 1/4 binary64))) (.f64 (.f64 d d) l))
(/.f64 (neg.f64 (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 M D) #s(literal 2 binary64))) d) (/.f64 h d))) (neg.f64 l))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) d) (/.f64 h d))) (*.f64 #s(literal 2 binary64) l))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h))) (.f64 #s(literal 2 binary64) (.f64 (neg.f64 l) (*.f64 d d))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) #s(literal 1/4 binary64))) (.f64 #s(literal 2 binary64) (.f64 (*.f64 d d) l)))
(/.f64 (.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 M D) #s(literal 2 binary64))) d) (/.f64 h d)) l)
(/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h)) (.f64 (neg.f64 l) (*.f64 d d)))
(/.f64 (.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) #s(literal 1/4 binary64)) (neg.f64 (.f64 (neg.f64 l) (*.f64 d d))))
(/.f64 (.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) #s(literal 1/4 binary64)) (.f64 (*.f64 d d) l))
(neg.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h)) (.f64 (*.f64 d d) l)))
(neg.f64 (/.f64 (.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) #s(literal 1/4 binary64)) (.f64 (neg.f64 l) (*.f64 d d))))
(.f64 (.f64 (.f64 M h) (.f64 (*.f64 #s(literal 1/4 binary64) D) D)) M)
(.f64 (.f64 (.f64 M h) #s(literal 1/4 binary64)) (.f64 (*.f64 M D) D))
(.f64 (.f64 (.f64 (.f64 (*.f64 #s(literal 1/4 binary64) D) D) M) h) M)
(.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) h) (*.f64 M M))
(.f64 (.f64 (.f64 (.f64 (*.f64 M M) h) D) #s(literal 1/4 binary64)) D)
(.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (*.f64 M D) M)) h)
(.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (*.f64 M M) h)) D)
(.f64 (.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) h) #s(literal 1/4 binary64))
(.f64 (.f64 (.f64 M D) M) (.f64 h (*.f64 #s(literal 1/4 binary64) D)))
(.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 M D) #s(literal 2 binary64))) h)
(.f64 (.f64 M h) (.f64 (.f64 (*.f64 #s(literal 1/4 binary64) D) D) M))
(.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) M) (*.f64 M h))
(.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) (.f64 (*.f64 M M) h))
(.f64 (.f64 (.f64 (.f64 M M) h) D) (*.f64 #s(literal 1/4 binary64) D))
(.f64 (.f64 (.f64 M M) h) (.f64 (*.f64 #s(literal 1/4 binary64) D) D))
(.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (.f64 (*.f64 M M) h) D))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 M D) D) (*.f64 M h)))
(.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) h))
(.f64 (.f64 D D) (.f64 #s(literal 1/4 binary64) (.f64 (*.f64 M M) h)))
(.f64 M (.f64 h (.f64 (.f64 (*.f64 #s(literal 1/4 binary64) D) D) M)))
(.f64 M (.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) D) (*.f64 M h)))
(.f64 D (.f64 (.f64 (.f64 M M) h) (*.f64 #s(literal 1/4 binary64) D)))
(.f64 D (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (*.f64 M M) h) D)))
(.f64 h (.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 M D) #s(literal 2 binary64))))
(neg.f64 (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) h)))
(*.f64 #s(literal 1/4 binary64) D)
(*.f64 D #s(literal 1/4 binary64))
(neg.f64 (*.f64 D #s(literal -1/4 binary64)))
(neg.f64 (*.f64 #s(literal -1/4 binary64) D))
#s(literal 1/4 binary64)
(.f64 (.f64 D h) (*.f64 M M))
(.f64 (.f64 (*.f64 M D) M) h)
(.f64 (.f64 M D) (*.f64 M h))
(.f64 (.f64 (*.f64 M M) h) D)
(.f64 (.f64 M M) (*.f64 h D))
(.f64 M (.f64 (*.f64 M h) D))
(.f64 D (.f64 (*.f64 M M) h))
(.f64 h (.f64 (*.f64 M D) M))
(.f64 (.f64 h (neg.f64 M)) (neg.f64 M))
(.f64 (.f64 h (fabs.f64 M)) (fabs.f64 M))
(.f64 (neg.f64 M) (.f64 (neg.f64 M) h))
(.f64 (fabs.f64 M) (.f64 (fabs.f64 M) h))
(.f64 (.f64 M h) M)
(.f64 (.f64 M M) h)
(.f64 M (.f64 M h))
(.f64 h (.f64 M M))
(*.f64 (neg.f64 (neg.f64 M)) (neg.f64 (neg.f64 M)))
(*.f64 (neg.f64 (fabs.f64 M)) (neg.f64 (fabs.f64 M)))
(*.f64 (fabs.f64 (fabs.f64 M)) (fabs.f64 (fabs.f64 M)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) (pow.f64 M #s(literal 1 binary64)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) M)
(*.f64 (neg.f64 M) (neg.f64 M))
(*.f64 (fabs.f64 M) (fabs.f64 M))
(*.f64 M M)
(pow.f64 (neg.f64 M) #s(literal 2 binary64))
(pow.f64 (fabs.f64 M) #s(literal 2 binary64))
(pow.f64 M #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 M) M))
(neg.f64 (*.f64 M (neg.f64 M)))
(fabs.f64 (*.f64 M M))
(exp.f64 (*.f64 (log.f64 M) #s(literal 2 binary64)))
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) #s(literal 1 binary64))))) w0)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) #s(literal 1 binary64))))))
(.f64 (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) #s(literal 1 binary64)))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) #s(literal 1 binary64)))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) #s(literal 1 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) #s(literal 1 binary64)))))
(exp.f64 (.f64 (log.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) #s(literal 1 binary64))))) #s(literal 1/2 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) #s(literal 1 binary64))))
#s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (fma.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l) d) #s(literal -1 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal 3 binary64)) #s(literal -1 binary64))) (neg.f64 (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d))) (pow.f64 (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal 2 binary64)) #s(literal 1 binary64)) (fma.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l) d) #s(literal -1 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal 2 binary64)) (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l) d)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d))) (pow.f64 (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal 2 binary64))))
(fma.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) h) l) (/.f64 #s(literal -1/4 binary64) d) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 (/.f64 #s(literal -1/4 binary64) d) d) (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l)) (*.f64 h #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 (/.f64 #s(literal -1/4 binary64) d) d) (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l)) h #s(literal 1 binary64))
(fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) (.f64 (/.f64 #s(literal -1/4 binary64) d) h) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 (/.f64 (.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) d) h) l) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) h) l) #s(literal 1 binary64))
(fma.f64 h (.f64 (.f64 (/.f64 (/.f64 #s(literal -1/4 binary64) d) d) (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 h (.f64 (/.f64 (/.f64 #s(literal -1/4 binary64) d) d) (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l)) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal 2 binary64)) (fma.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l) d) #s(literal -1 binary64))))
(-.f64 (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (/.f64 (/.f64 #s(literal -1/4 binary64) d) d) (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l))) h))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) d) h) l)))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 h) (.f64 (/.f64 (/.f64 #s(literal -1/4 binary64) d) d) (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal 3 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d))) (pow.f64 (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d))) (pow.f64 (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l) d)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 h (/.f64 #s(literal -1/4 binary64) d)) (/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l) d)))
(.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 D (/.f64 M d))) (.f64 D (/.f64 M l)))
(.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 M D)) (.f64 D (/.f64 (/.f64 M l) d)))
(.f64 (/.f64 (/.f64 #s(literal -1/4 binary64) d) d) (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l))
(.f64 (/.f64 (/.f64 #s(literal -1/4 binary64) d) l) (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d))
(.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l))
(.f64 (/.f64 #s(literal -1/4 binary64) l) (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) (*.f64 d d)))
(.f64 (.f64 D (/.f64 M d)) (.f64 (.f64 D (/.f64 M l)) (/.f64 #s(literal -1/4 binary64) d)))
(.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) (/.f64 #s(literal -1/4 binary64) d))
(.f64 (.f64 M D) (.f64 (.f64 D (/.f64 (/.f64 M l) d)) (/.f64 #s(literal -1/4 binary64) d)))
(.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d))
(.f64 #s(literal -1/4 binary64) (/.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) d))
(.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) (.f64 (.f64 d d) l)))
(/.f64 (/.f64 (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) #s(literal -1/4 binary64)) d) d) l)
(/.f64 (/.f64 (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) #s(literal -1/4 binary64)) d) l) d)
(/.f64 (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (*.f64 d d)) l)
(/.f64 (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) #s(literal -1/4 binary64)) l) (*.f64 d d))
(/.f64 (.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (/.f64 #s(literal -1/4 binary64) d)) l)
(/.f64 (.f64 (neg.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64))) (/.f64 #s(literal -1/4 binary64) d)) (*.f64 (neg.f64 d) l))
(/.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d)) (neg.f64 d))
(/.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) #s(literal 1/4 binary64)) (neg.f64 d))
(/.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d)) l)
(/.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (neg.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)))) (*.f64 (neg.f64 d) l))
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d)) l)) (neg.f64 d))
(/.f64 (neg.f64 (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) #s(literal -1/4 binary64)) d)) (*.f64 (neg.f64 d) l))
(/.f64 (neg.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 (neg.f64 l) (.f64 d d)))
(/.f64 (.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) #s(literal -1/4 binary64)) (*.f64 d l))
(/.f64 (.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) #s(literal 1/4 binary64)) (*.f64 (neg.f64 d) l))
(/.f64 (.f64 (neg.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64))) #s(literal -1/4 binary64)) (.f64 (.f64 (neg.f64 d) l) d))
(/.f64 (.f64 (neg.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64))) #s(literal 1/4 binary64)) (.f64 (.f64 d d) l))
(/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (.f64 (.f64 d l) (neg.f64 d)))
(/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d)) (*.f64 d l))
(/.f64 (.f64 #s(literal -1/4 binary64) (neg.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)))) (.f64 (neg.f64 l) (.f64 d d)))
(/.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d)) (*.f64 (neg.f64 d) l))
(/.f64 (.f64 #s(literal 1/4 binary64) (neg.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)))) (.f64 (.f64 d d) l))
(/.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d)) l) d)
(/.f64 (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) #s(literal -1/4 binary64)) d) (*.f64 d l))
(/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (neg.f64 l) (.f64 d d)))
(/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l))
(/.f64 #s(literal -1/4 binary64) (neg.f64 (neg.f64 d)))
(/.f64 #s(literal -1/4 binary64) d)
(/.f64 #s(literal 1/4 binary64) (neg.f64 d))
(neg.f64 (/.f64 #s(literal -1/4 binary64) (neg.f64 d)))
(neg.f64 (/.f64 #s(literal 1/4 binary64) d))
#s(literal -1/4 binary64)
(.f64 (/.f64 (.f64 (*.f64 M D) M) d) (/.f64 D l))
(.f64 (/.f64 (.f64 (*.f64 M D) M) l) (/.f64 D d))
(.f64 (/.f64 (.f64 (neg.f64 D) M) d) (/.f64 (*.f64 (neg.f64 D) M) l))
(.f64 (/.f64 (.f64 (neg.f64 D) M) l) (/.f64 (*.f64 (neg.f64 D) M) d))
(.f64 (/.f64 (fabs.f64 (.f64 M D)) d) (/.f64 (fabs.f64 (*.f64 M D)) l))
(.f64 (/.f64 (fabs.f64 (.f64 M D)) l) (/.f64 (fabs.f64 (*.f64 M D)) d))
(.f64 (/.f64 (.f64 M M) l) (/.f64 (*.f64 D D) d))
(.f64 (/.f64 (.f64 M M) d) (/.f64 (*.f64 D D) l))
(.f64 (.f64 D (/.f64 (/.f64 M l) d)) (*.f64 M D))
(.f64 (.f64 (.f64 M D) M) (/.f64 D (.f64 d l)))
(.f64 (.f64 D (/.f64 M l)) (*.f64 D (/.f64 M d)))
(.f64 (.f64 D (/.f64 M d)) (*.f64 D (/.f64 M l)))
(.f64 (/.f64 M l) (/.f64 (.f64 (*.f64 M D) D) d))
(.f64 (.f64 (neg.f64 D) M) (/.f64 (.f64 (neg.f64 D) M) (.f64 d l)))
(.f64 (fabs.f64 (.f64 M D)) (/.f64 (fabs.f64 (.f64 M D)) (.f64 d l)))
(.f64 (.f64 M D) (*.f64 D (/.f64 (/.f64 M l) d)))
(.f64 (.f64 M M) (/.f64 (.f64 D D) (.f64 d l)))
(.f64 (/.f64 M d) (/.f64 (.f64 (*.f64 M D) D) l))
(.f64 M (/.f64 (.f64 (.f64 M D) D) (.f64 d l)))
(.f64 M (.f64 D (*.f64 D (/.f64 (/.f64 M l) d))))
(.f64 D (.f64 M (*.f64 D (/.f64 (/.f64 M l) d))))
(/.f64 (.f64 (.f64 M D) (*.f64 D (/.f64 M l))) d)
(/.f64 (.f64 (.f64 D (/.f64 M d)) (*.f64 M D)) l)
(/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l) d)
(/.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) d)) (neg.f64 l))
(/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) d) l)
(/.f64 (neg.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (neg.f64 d) l))
(/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) (neg.f64 (.f64 (neg.f64 d) l)))
(/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) (.f64 d l))
(neg.f64 (/.f64 (neg.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 d l)))
(neg.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) (.f64 (neg.f64 d) l)))
(.f64 (.f64 (*.f64 M M) (neg.f64 D)) (neg.f64 D))
(.f64 (.f64 (*.f64 M M) (fabs.f64 D)) (fabs.f64 D))
(.f64 (.f64 (neg.f64 M) (neg.f64 D)) (*.f64 (neg.f64 M) (neg.f64 D)))
(.f64 (.f64 (neg.f64 M) (fabs.f64 D)) (*.f64 (neg.f64 M) (fabs.f64 D)))
(.f64 (.f64 (fabs.f64 M) (neg.f64 D)) (*.f64 (fabs.f64 M) (neg.f64 D)))
(.f64 (.f64 (fabs.f64 M) D) (*.f64 (fabs.f64 M) D))
(.f64 (.f64 M (fabs.f64 D)) (*.f64 M (fabs.f64 D)))
(.f64 (neg.f64 (.f64 (neg.f64 D) M)) (neg.f64 (*.f64 (neg.f64 D) M)))
(.f64 (neg.f64 (fabs.f64 (.f64 M D))) (neg.f64 (fabs.f64 (*.f64 M D))))
(.f64 (fabs.f64 (fabs.f64 (.f64 M D))) (fabs.f64 (fabs.f64 (*.f64 M D))))
(.f64 (pow.f64 (.f64 M D) #s(literal 1 binary64)) (pow.f64 (*.f64 M D) #s(literal 1 binary64)))
(.f64 (pow.f64 (.f64 M D) #s(literal 1 binary64)) (*.f64 M D))
(.f64 (.f64 (*.f64 M D) D) M)
(.f64 (.f64 (*.f64 M D) M) D)
(.f64 (.f64 (neg.f64 D) M) (*.f64 (neg.f64 D) M))
(.f64 (neg.f64 M) (.f64 (neg.f64 M) (*.f64 D D)))
(.f64 (fabs.f64 (.f64 M D)) (fabs.f64 (*.f64 M D)))
(.f64 (fabs.f64 M) (.f64 (fabs.f64 M) (*.f64 D D)))
(.f64 (.f64 M D) (*.f64 M D))
(.f64 (.f64 M M) (*.f64 D D))
(.f64 (.f64 D D) (*.f64 M M))
(.f64 M (.f64 (*.f64 M D) D))
(.f64 D (.f64 (*.f64 M D) M))
(pow.f64 (*.f64 (neg.f64 D) M) #s(literal 2 binary64))
(pow.f64 (fabs.f64 (*.f64 M D)) #s(literal 2 binary64))
(pow.f64 (*.f64 M D) #s(literal 2 binary64))
(neg.f64 (neg.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64))))
(fabs.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 M D)) #s(literal 2 binary64)))
(*.f64 M D)
(*.f64 D M)

eval155.0ms (2%)

Memory: 26.0MiB live, 267.3MiB allocated; 126ms collecting garbage
Compiler: Compiled 40 141 to 4 702 computations (88.3% saved)

prune75.0ms (1%)

Memory

10.3MiB live, 200.2MiB allocated; 14ms collecting garbage

Pruning

34 alts after pruning (32 fresh and 2 done)

	Pruned	Kept	Total
New	849	15	864
Fresh	8	17	25
Picked	4	1	5
Done	0	1	1
Total	861	34	895

Accuracy

89.7%

Counts

895 → 34

Alt Table

Click to see full alt table

Status	Accuracy	Program
	55.8%	(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))) w0)
	66.8%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
	21.5%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) (/.f64 h l)) d))))
	20.5%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) M) (/.f64 M d)) h) (.f64 d l)))))
	76.2%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) #s(literal 1/4 binary64)) d) (.f64 d l))))))
	67.8%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) (.f64 #s(literal 1/4 binary64) D)) D) (.f64 d d))))))
	66.0%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 M (.f64 #s(literal 1/4 binary64) D)) D) (.f64 M h)) (.f64 (*.f64 d d) l))))))
	60.4%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d l) d))))))
	68.4%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (/.f64 (.f64 (.f64 (.f64 M M) h) D) l)) (.f64 d d))))))
	70.3%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (.f64 M D) (.f64 M h))) (.f64 (*.f64 d d) l))))))
	68.6%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 M M) h) D) (/.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (*.f64 d d) l)))))))
	21.6%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (*.f64 #s(literal -1/4 binary64) D)) D))))
	17.2%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (/.f64 h (.f64 d d)))) M) (/.f64 M l)))))
	17.7%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (.f64 M h) l))))))
	76.9%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 (.f64 (.f64 M D) M) (/.f64 D (*.f64 d l)))) h #s(literal 1 binary64))))))
	84.8%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 D (/.f64 M d))) (.f64 D (/.f64 M l))) h #s(literal 1 binary64))))))
	69.2%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 #s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64))) h #s(literal 1 binary64))))))
	50.3%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))))))
	16.7%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))))))
	61.3%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) l) (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) #s(literal 1 binary64))))
	76.8%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
	71.1%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
	70.7%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
	64.1%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
	69.4%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (*.f64 d d)))) M) (/.f64 M l) #s(literal 1 binary64))))
✓	61.6%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))))
	51.5%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (*.f64 d d)) #s(literal 1 binary64))))
	55.1%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (/.f64 (.f64 M M) l) (*.f64 d d))) #s(literal 1 binary64))))
	59.0%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d l) d)))) #s(literal 1 binary64))))
	73.1%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))
	66.7%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64)) h #s(literal 1 binary64)))))
	15.3%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))))
	11.7%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))))
✓	66.2%	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Compiler

Compiled 4 036 to 1 556 computations (61.4% saved)

regimes308.0ms (3.9%)

Memory

6.2MiB live, 413.4MiB allocated; 109ms collecting garbage

Counts

66 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64)) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d l) d)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d l) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (.f64 M M) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (neg.f64 h) M) M) (.f64 d (.f64 (neg.f64 d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (/.f64 (.f64 M M) l) (*.f64 d d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (*.f64 M h) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (*.f64 d d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (*.f64 d d)))) M) (/.f64 M l) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 #s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 M M) d) (/.f64 (/.f64 h l) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) l) (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 M M) h) D) (/.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (.f64 M D) (.f64 M h))) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d l) d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 M (.f64 #s(literal 1/4 binary64) D)) D) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (.f64 M h) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (.f64 d l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (/.f64 h (.f64 d d)))) M) (/.f64 M l)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/4 binary64) D)) D))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) M) (/.f64 M d)) h) (.f64 d l)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 (.f64 (.f64 M D) M) (/.f64 D (*.f64 d l)))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (/.f64 (.f64 (.f64 (.f64 M M) h) D) l)) (.f64 d d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) (.f64 #s(literal 1/4 binary64) D)) D) (.f64 d d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) h) M) d) (.f64 d l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 (/.f64 h l) d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (*.f64 #s(literal -1/4 binary64) D)) D))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) (/.f64 h l)) d))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 D (/.f64 M d))) (.f64 D (/.f64 M l))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 D M) (.f64 D M)) (.f64 (.f64 d #s(literal 2 binary64)) (.f64 d #s(literal 2 binary64)))) (/.f64 h l)))))
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 M D) h) (.f64 (.f64 d #s(literal 2 binary64)) l)) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))))
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(approx (pow (/ (* M D) (* 2 d)) 2) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 M d) (/.f64 M d)))) (/.f64 h l)))))
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))))
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 M D) h) (.f64 (.f64 d #s(literal 2 binary64)) l)) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))))))
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) (.f64 M D)) (.f64 l (*.f64 d #s(literal 2 binary64)))))))
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))))
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) (.f64 D M)) (.f64 d #s(literal 2 binary64))) (/.f64 h l)))))
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))))))
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) #s(literal 1/4 binary64)) d) (.f64 d l))))))
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 h l)))))

Outputs

(*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 h l) (*.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (*.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))))

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (*.f64 (*.f64 (/.f64 #s(literal -1/4 binary64) d) (*.f64 D (/.f64 M d))) (*.f64 D (/.f64 M l))) h #s(literal 1 binary64))))))

Calls

15 calls:

46.0ms	l
32.0ms	d
31.0ms	(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))
20.0ms	D
19.0ms	w0

Results

Accuracy	Segments	Branch
87.7%	2	`(/.f64 h l)`
87.2%	2	`(*.f64 #s(literal 2 binary64) d)`
87.4%	2	`(*.f64 M D)`
88.9%	2	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
88.9%	2	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
88.9%	2	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`
88.9%	2	`(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))`
88.9%	2	`(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))`
88.9%	2	`(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))`
86.5%	2	`w0`
84.8%	1	`M`
87.4%	2	`D`
87.0%	2	`h`
87.0%	2	`l`
87.2%	2	`d`

Compiler

Compiled 93 to 140 computations (-50.5% saved)

regimes218.0ms (2.8%)

Memory

-15.0MiB live, 319.1MiB allocated; 58ms collecting garbage

Counts

57 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64)) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d l) d)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d l) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (.f64 M M) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (neg.f64 h) M) M) (.f64 d (.f64 (neg.f64 d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (/.f64 (.f64 M M) l) (*.f64 d d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (*.f64 M h) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (*.f64 d d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (*.f64 d d)))) M) (/.f64 M l) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 #s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 M M) d) (/.f64 (/.f64 h l) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) l) (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 M M) h) D) (/.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (.f64 M D) (.f64 M h))) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d l) d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 M (.f64 #s(literal 1/4 binary64) D)) D) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (.f64 M h) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (.f64 d l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (/.f64 h (.f64 d d)))) M) (/.f64 M l)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/4 binary64) D)) D))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) M) (/.f64 M d)) h) (.f64 d l)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 (.f64 (.f64 M D) M) (/.f64 D (*.f64 d l)))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (/.f64 (.f64 (.f64 (.f64 M M) h) D) l)) (.f64 d d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) (.f64 #s(literal 1/4 binary64) D)) D) (.f64 d d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) h) M) d) (.f64 d l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 (/.f64 h l) d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (*.f64 #s(literal -1/4 binary64) D)) D))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) (/.f64 h l)) d))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 D (/.f64 M d))) (.f64 D (/.f64 M l))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 D M) (.f64 D M)) (.f64 (.f64 d #s(literal 2 binary64)) (.f64 d #s(literal 2 binary64)))) (/.f64 h l)))))
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 M D) h) (.f64 (.f64 d #s(literal 2 binary64)) l)) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))))
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(approx (pow (/ (* M D) (* 2 d)) 2) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 M d) (/.f64 M d)))) (/.f64 h l)))))

Outputs

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (*.f64 (*.f64 (/.f64 #s(literal -1/4 binary64) d) (*.f64 D (/.f64 M d))) (*.f64 D (/.f64 M l))) h #s(literal 1 binary64))))))

(*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 (*.f64 (*.f64 M D) h) (*.f64 (*.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(approx (/ D 2) (*.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))))))

Calls

14 calls:

37.0ms	(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))
15.0ms	D
15.0ms	l
15.0ms	w0
14.0ms	(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))

Results

Accuracy	Segments	Branch
84.8%	1	`w0`
84.8%	1	`h`
84.8%	1	`l`
84.8%	1	`(*.f64 #s(literal 2 binary64) d)`
84.8%	1	`d`
84.8%	1	`D`
84.8%	1	`(*.f64 M D)`
84.8%	1	`(/.f64 h l)`
86.4%	2	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
86.4%	2	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
84.8%	1	`(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))`
84.8%	1	`(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))`
84.8%	1	`(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))`
84.8%	1	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`

Compiler

Compiled 92 to 134 computations (-45.7% saved)

regimes60.0ms (0.8%)

Memory

37.1MiB live, 82.9MiB allocated; 2ms collecting garbage

Counts

55 → 1

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64)) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d l) d)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d l) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (.f64 M M) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (neg.f64 h) M) M) (.f64 d (.f64 (neg.f64 d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (/.f64 (.f64 M M) l) (*.f64 d d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (*.f64 M h) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (*.f64 d d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (*.f64 d d)))) M) (/.f64 M l) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 #s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 M M) d) (/.f64 (/.f64 h l) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) l) (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 M M) h) D) (/.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (.f64 M D) (.f64 M h))) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d l) d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 M (.f64 #s(literal 1/4 binary64) D)) D) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (.f64 M h) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (.f64 d l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (/.f64 h (.f64 d d)))) M) (/.f64 M l)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/4 binary64) D)) D))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) M) (/.f64 M d)) h) (.f64 d l)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 (.f64 (.f64 M D) M) (/.f64 D (*.f64 d l)))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (/.f64 (.f64 (.f64 (.f64 M M) h) D) l)) (.f64 d d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) (.f64 #s(literal 1/4 binary64) D)) D) (.f64 d d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) h) M) d) (.f64 d l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 (/.f64 h l) d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (*.f64 #s(literal -1/4 binary64) D)) D))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) (/.f64 h l)) d))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 D (/.f64 M d))) (.f64 D (/.f64 M l))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 D M) (.f64 D M)) (.f64 (.f64 d #s(literal 2 binary64)) (.f64 d #s(literal 2 binary64)))) (/.f64 h l)))))

Outputs

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (*.f64 (*.f64 (/.f64 #s(literal -1/4 binary64) d) (*.f64 D (/.f64 M d))) (*.f64 D (/.f64 M l))) h #s(literal 1 binary64))))))

Calls

5 calls:

14.0ms	h
12.0ms	(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))
11.0ms	(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))
10.0ms	(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))
10.0ms	(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))

Results

Accuracy	Segments	Branch
84.8%	1	`(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))`
84.8%	1	`(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))`
84.8%	1	`h`
84.8%	1	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
84.8%	1	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`

Compiler

Compiled 48 to 58 computations (-20.8% saved)

regimes190.0ms (2.4%)

Memory

11.6MiB live, 245.6MiB allocated; 20ms collecting garbage

Counts

53 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64)) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d l) d)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d l) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (.f64 M M) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (neg.f64 h) M) M) (.f64 d (.f64 (neg.f64 d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (/.f64 (.f64 M M) l) (*.f64 d d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (*.f64 M h) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (*.f64 d d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (*.f64 d d)))) M) (/.f64 M l) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 #s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 M M) d) (/.f64 (/.f64 h l) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) l) (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 M M) h) D) (/.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (.f64 M D) (.f64 M h))) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d l) d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 M (.f64 #s(literal 1/4 binary64) D)) D) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (.f64 M h) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (.f64 d l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (/.f64 h (.f64 d d)))) M) (/.f64 M l)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/4 binary64) D)) D))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) M) (/.f64 M d)) h) (.f64 d l)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 (.f64 (.f64 M D) M) (/.f64 D (*.f64 d l)))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (/.f64 (.f64 (.f64 (.f64 M M) h) D) l)) (.f64 d d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) (.f64 #s(literal 1/4 binary64) D)) D) (.f64 d d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) h) M) d) (.f64 d l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 (/.f64 h l) d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (*.f64 #s(literal -1/4 binary64) D)) D))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) (/.f64 h l)) d))))

Outputs

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) (/.f64 h l)) d))))

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Calls

15 calls:

16.0ms	(*.f64 #s(literal 2 binary64) d)
15.0ms	h
14.0ms	l
14.0ms	w0
14.0ms	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))

Results

Accuracy	Segments	Branch
80.9%	2	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
82.7%	2	`(/.f64 h l)`
81.7%	2	`(*.f64 #s(literal 2 binary64) d)`
84.6%	3	`(*.f64 M D)`
84.0%	2	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`
79.5%	2	`w0`
80.8%	2	`M`
82.0%	3	`D`
77.7%	1	`l`
81.7%	2	`d`
80.9%	2	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
80.9%	2	`(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))`
83.8%	2	`(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))`
83.8%	2	`(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))`
82.0%	3	`h`

Compiler

Compiled 93 to 140 computations (-50.5% saved)

regimes14.0ms (0.2%)

Memory

-26.2MiB live, 19.5MiB allocated; 2ms collecting garbage

Counts

52 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64)) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d l) d)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d l) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (.f64 M M) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (neg.f64 h) M) M) (.f64 d (.f64 (neg.f64 d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (/.f64 (.f64 M M) l) (*.f64 d d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (*.f64 M h) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (*.f64 d d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (*.f64 d d)))) M) (/.f64 M l) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 #s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 M M) d) (/.f64 (/.f64 h l) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) l) (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 M M) h) D) (/.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (.f64 M D) (.f64 M h))) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d l) d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 M (.f64 #s(literal 1/4 binary64) D)) D) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (.f64 M h) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (.f64 d l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (/.f64 h (.f64 d d)))) M) (/.f64 M l)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/4 binary64) D)) D))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) M) (/.f64 M d)) h) (.f64 d l)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 (.f64 (.f64 M D) M) (/.f64 D (*.f64 d l)))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (/.f64 (.f64 (.f64 (.f64 M M) h) D) l)) (.f64 d d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 M M) l) h) (.f64 #s(literal 1/4 binary64) D)) D) (.f64 d d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) h) M) d) (.f64 d l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 (/.f64 h l) d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (*.f64 #s(literal -1/4 binary64) D)) D))))

Outputs

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (*.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (*.f64 (*.f64 M D) (*.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64))))))

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Calls

1 calls:

11.0ms

(*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))

Results

Accuracy	Segments	Branch
83.9%	2	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`

Compiler

Compiled 13 to 13 computations (0% saved)

regimes39.0ms (0.5%)

Memory

8.2MiB live, 54.1MiB allocated; 2ms collecting garbage

Counts

44 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64)) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d l) d)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d l) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (.f64 M M) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (neg.f64 h) M) M) (.f64 d (.f64 (neg.f64 d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (/.f64 (.f64 M M) l) (*.f64 d d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (*.f64 M h) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (*.f64 d d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (*.f64 d d)))) M) (/.f64 M l) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 #s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 M M) d) (/.f64 (/.f64 h l) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) l) (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 M M) h) D) (/.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (.f64 M D) (.f64 M h))) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d l) d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 M (.f64 #s(literal 1/4 binary64) D)) D) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (.f64 M h) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (.f64 d l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (/.f64 h (.f64 d d)))) M) (/.f64 M l)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/4 binary64) D)) D))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) M) (/.f64 M d)) h) (.f64 d l)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 (.f64 (.f64 M D) M) (/.f64 D (*.f64 d l)))) h #s(literal 1 binary64))))))

Outputs

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) h) (*.f64 d l)))))

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Calls

4 calls:

10.0ms	(*.f64 M D)
9.0ms	(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))
9.0ms	(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))
8.0ms	(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))

Results

Accuracy	Segments	Branch
82.4%	3	`(*.f64 M D)`
81.9%	2	`(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))`
81.9%	2	`(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))`
82.8%	2	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`

Compiler

Compiled 47 to 51 computations (-8.5% saved)

regimes21.0ms (0.3%)

Memory

-16.9MiB live, 29.1MiB allocated; 3ms collecting garbage

Counts

42 → 3

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64)) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d l) d)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d l) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (.f64 M M) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (neg.f64 h) M) M) (.f64 d (.f64 (neg.f64 d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (/.f64 (.f64 M M) l) (*.f64 d d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (*.f64 M h) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (*.f64 d d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (*.f64 d d)))) M) (/.f64 M l) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 #s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 M M) d) (/.f64 (/.f64 h l) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) l) (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 M M) h) D) (/.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (.f64 M D) (.f64 M h))) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d l) d))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 M (.f64 #s(literal 1/4 binary64) D)) D) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (.f64 M h) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (.f64 d l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) D) (.f64 D (/.f64 h (.f64 d d)))) M) (/.f64 M l)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/4 binary64) D)) D))))

Outputs

(*.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (*.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (*.f64 (*.f64 M D) (*.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (*.f64 M (*.f64 #s(literal 1/4 binary64) D)) D) (*.f64 M h)) (*.f64 (*.f64 d d) l))))))

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Calls

2 calls:

10.0ms	(/.f64 h l)
8.0ms	(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))

Results

Accuracy	Segments	Branch
80.8%	3	`(/.f64 h l)`
83.5%	3	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`

Compiler

Compiled 16 to 20 computations (-25% saved)

regimes9.0ms (0.1%)

Memory

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

Counts

36 → 3

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64)) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d l) d)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d l) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (.f64 M M) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (neg.f64 h) M) M) (.f64 d (.f64 (neg.f64 d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (/.f64 (.f64 M M) l) (*.f64 d d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (*.f64 M h) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (*.f64 d d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (*.f64 d d)))) M) (/.f64 M l) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 #s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 M M) d) (/.f64 (/.f64 h l) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) l) (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 M M) h) D) (/.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (.f64 M D) (.f64 M h))) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (.f64 M h)) (.f64 (*.f64 d l) d))))))

Outputs

(*.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (*.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (*.f64 (*.f64 M D) (*.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) D) (*.f64 (*.f64 M D) (*.f64 M h))) (*.f64 (*.f64 d d) l))))))

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Calls

1 calls:

7.0ms

(*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))

Results

Accuracy	Segments	Branch
83.5%	3	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`

Compiler

Compiled 13 to 13 computations (0% saved)

regimes71.0ms (0.9%)

Memory

-9.7MiB live, 85.6MiB allocated; 25ms collecting garbage

Counts

33 → 3

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64)) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d l) d)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d l) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (.f64 M M) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (neg.f64 h) M) M) (.f64 d (.f64 (neg.f64 d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (/.f64 (.f64 M M) l) (*.f64 d d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (*.f64 M h) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (*.f64 d d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (*.f64 d d)))) M) (/.f64 M l) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 #s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64))) h #s(literal 1 binary64))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 M M) d) (/.f64 (/.f64 h l) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 (/.f64 h d) l) M) (/.f64 M d)) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) l) (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 M M) h) D) (/.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 M M) h))) (.f64 (*.f64 d d) l))))))

Outputs

(*.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (*.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (*.f64 (*.f64 M D) (*.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 #s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 M D) M) D) (*.f64 (*.f64 d d) l)) #s(literal -1/4 binary64))) h #s(literal 1 binary64))))))

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Calls

8 calls:

18.0ms	d
9.0ms	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
8.0ms	(*.f64 #s(literal 2 binary64) d)
7.0ms	(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))
7.0ms	(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))

Results

Accuracy	Segments	Branch
79.4%	2	`(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))`
80.0%	2	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
80.0%	2	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
81.1%	3	`(*.f64 #s(literal 2 binary64) d)`
81.1%	3	`d`
81.8%	3	`(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))`
81.8%	3	`(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))`
82.4%	3	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`

Compiler

Compiled 82 to 96 computations (-17.1% saved)

regimes45.0ms (0.6%)

Memory

17.6MiB live, 63.7MiB allocated; 2ms collecting garbage

Counts

26 → 3

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64)) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d l) d)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d l) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (.f64 M M) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (neg.f64 h) M) M) (.f64 d (.f64 (neg.f64 d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (/.f64 (.f64 M M) l) (*.f64 d d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (*.f64 M h) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (*.f64 d d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (*.f64 d d)))) M) (/.f64 M l) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h) M))))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (fma.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) #s(literal -1/4 binary64)) (.f64 (.f64 d d) l)) (.f64 M M) #s(literal 1 binary64)))))))

Outputs

(*.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (*.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (*.f64 (*.f64 M D) (*.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 D D) (*.f64 (*.f64 (/.f64 M (*.f64 (*.f64 d d) l)) h) M))))))))

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Calls

7 calls:

8.0ms	h
7.0ms	D
7.0ms	M
6.0ms	(*.f64 M D)
5.0ms	(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))

Results

Accuracy	Segments	Branch
80.9%	3	`(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))`
80.9%	3	`(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))`
73.1%	1	`h`
77.7%	2	`D`
76.1%	2	`M`
78.1%	2	`(*.f64 M D)`
81.7%	3	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`

Compiler

Compiled 50 to 69 computations (-38% saved)

regimes6.0ms (0.1%)

Memory

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

Counts

23 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64)) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d l) d)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d l) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (.f64 M M) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (neg.f64 h) M) M) (.f64 d (.f64 (neg.f64 d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (/.f64 (.f64 M M) l) (*.f64 d d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 (*.f64 M h) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) (/.f64 h l)) (*.f64 d d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (/.f64 h d) M) M) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 D (/.f64 h (*.f64 d d)))) M) (/.f64 M l) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))

Outputs

(*.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (*.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (*.f64 (*.f64 M D) (*.f64 M D)) (*.f64 d l))) h #s(literal 1 binary64)))))

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Calls

1 calls:

5.0ms

(*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))

Results

Accuracy	Segments	Branch
80.0%	2	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`

Compiler

Compiled 13 to 13 computations (0% saved)

regimes42.0ms (0.5%)

Memory

16.5MiB live, 62.8MiB allocated; 2ms collecting garbage

Counts

14 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64)) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d l) d)))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 d l) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 h (/.f64 (.f64 M M) (.f64 (.f64 d d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 M D) D) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M) (.f64 #s(literal -1/8 binary64) D)) D #s(literal 1 binary64))))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) h) (/.f64 M (.f64 (.f64 d d) l)) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 (neg.f64 h) M) M) (.f64 d (.f64 (neg.f64 d) l))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (.f64 (.f64 D D) (.f64 h (/.f64 (.f64 M M) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) w0))

Outputs

(*.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 D D)) (*.f64 M (*.f64 h (/.f64 M (*.f64 (*.f64 d l) d)))) #s(literal 1 binary64))))

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Calls

11 calls:

4.0ms	d
4.0ms	w0
4.0ms	(*.f64 #s(literal 2 binary64) d)
4.0ms	l
4.0ms	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))

Results

Accuracy	Segments	Branch
76.9%	2	`(/.f64 h l)`
70.7%	1	`l`
77.6%	2	`(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))`
77.6%	2	`(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))`
77.6%	2	`(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))`
74.4%	2	`w0`
70.7%	1	`(*.f64 #s(literal 2 binary64) d)`
70.7%	1	`d`
77.7%	2	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
77.7%	2	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
78.4%	2	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`

Compiler

Compiled 87 to 115 computations (-32.2% saved)

regimes7.0ms (0.1%)

Memory

-41.3MiB live, 6.6MiB allocated; 7ms collecting garbage

Counts

4 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (*.f64 d d) l)) h)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64)) h #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d d) l)))) #s(literal 1 binary64))))

Outputs

(*.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (*.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 D D)) M) (*.f64 (/.f64 M (*.f64 (*.f64 d d) l)) h)))))

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Calls

2 calls:

5.0ms	(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))
2.0ms	(*.f64 M D)

Results

Accuracy	Segments	Branch
73.9%	2	`(*.f64 M D)`
78.0%	2	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`

Compiler

Compiled 16 to 20 computations (-25% saved)

regimes16.0ms (0.2%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Outputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Calls

15 calls:

1.0ms	d
1.0ms	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
1.0ms	(*.f64 #s(literal 2 binary64) d)
1.0ms	M
1.0ms	D

Results

Accuracy	Segments	Branch
66.2%	1	`(*.f64 #s(literal 2 binary64) d)`
66.2%	1	`l`
66.2%	1	`d`
66.2%	1	`(*.f64 M D)`
66.2%	1	`w0`
66.2%	1	`h`
66.2%	1	`M`
66.2%	1	`(/.f64 h l)`
66.2%	1	`(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))`
66.2%	1	`(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))`
66.2%	1	`(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))`
66.2%	1	`D`
66.2%	1	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
66.2%	1	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
66.2%	1	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`

Compiler

Compiled 93 to 140 computations (-50.5% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.0	6.5790617336314e-311

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	4.111738971527856e+63	8.381794873425664e+66

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-247277.05877300087	-2.200487263370284e-9

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-2.200487263370284e-9	-4.01928633547668e-17

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-7.298133177686124e+27	-6.334130303389293e+22

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	-2.200487263370284e-9	-4.01928633547668e-17
0.0ms	-inf	-3.2760670745282194e+284

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	-2.200487263370284e-9	-4.01928633547668e-17
0.0ms	-inf	-3.2760670745282194e+284

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	-2.200487263370284e-9	-4.01928633547668e-17
0.0ms	-inf	-3.2760670745282194e+284

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch2.0ms (0%)

Memory

-45.5MiB live, 1.1MiB allocated; 2ms collecting garbage

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	-7.298133177686124e+27	-6.334130303389293e+22
0.0ms	-3.2760670745282194e+284	-4.5012442160944467e+282

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-2.200487263370284e-9	-4.01928633547668e-17

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-5.666347432763978e+175	-6.609696780027884e+169

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-5.666347432763978e+175	-6.609696780027884e+169

Compiler

Compiled 21 to 26 computations (-23.8% saved)

simplify59.0ms (0.8%)

Memory

24.2MiB live, 69.2MiB allocated; 3ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	198	1433
1	324	1433
2	1016	1433
3	4982	1433

Stop Event

1×	node limit

Calls

Call 1

Inputs
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 0 binary64)) (.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))))) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 D (/.f64 M d))) (.f64 D (/.f64 M l))) h #s(literal 1 binary64)))))))
(if (<=.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 5000000000000000106602095047271984361506289356339824733871669248 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 D (/.f64 M d))) (.f64 D (/.f64 M l))) h #s(literal 1 binary64)))))) (.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 M D) h) (.f64 (.f64 d #s(literal 2 binary64)) l)) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 D (/.f64 M d))) (.f64 D (/.f64 M l))) h #s(literal 1 binary64))))))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -200000 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) M) (/.f64 M d)) (/.f64 h l)) d)))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4835703278458517/2417851639229258349412352 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64)))))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4999999999999999791559868416 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) M) (/.f64 M d)) h) (.f64 d l))))) #s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -inf.0 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64))))) (if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4835703278458517/2417851639229258349412352 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 M (.f64 #s(literal 1/4 binary64) D)) D) (.f64 M h)) (.f64 (.f64 d d) l)))))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -inf.0 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64))))) (if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4835703278458517/2417851639229258349412352 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (.f64 M D) (.f64 M h))) (.f64 (.f64 d d) l)))))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -inf.0 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64))))) (if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4835703278458517/2417851639229258349412352 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 #s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64))) h #s(literal 1 binary64)))))) #s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -200000000000000015842876501691535308251363838339942186816779868466887151795034205545089069114411529059504325666588836124813676426230104197677563914641752713707086241642983763505789334141041164451549418938435594261010114368138763297090749546488747114934452621501484084432923307385290752 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64))))) (if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4999999999999999791559868416 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)))))))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4835703278458517/2417851639229258349412352 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64))))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -50000000000000000372449025103715994572099746929157693617982127065631992623390808013185993818695352920423280130139232314186271691640488659154528462055811941854826944868021960704 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d l) d)))) #s(literal 1 binary64)))) #s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -50000000000000000372449025103715994572099746929157693617982127065631992623390808013185993818695352920423280130139232314186271691640488659154528462055811941854826944868021960704 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h))))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Outputs
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 0 binary64)) (.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d))) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))))) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 D (/.f64 M d))) (.f64 D (/.f64 M l))) h #s(literal 1 binary64)))))))
(if (<=.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 5000000000000000106602095047271984361506289356339824733871669248 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 D (/.f64 M d))) (.f64 D (/.f64 M l))) h #s(literal 1 binary64)))))) (.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 M D) h) (.f64 (.f64 d #s(literal 2 binary64)) l)) (.f64 #s(approx (/ D 2) (.f64 #s(literal 1/2 binary64) D)) (/.f64 M d)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (.f64 D (/.f64 M d))) (.f64 D (/.f64 M l))) h #s(literal 1 binary64))))))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -200000 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) M) (/.f64 M d)) (/.f64 h l)) d)))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4835703278458517/2417851639229258349412352 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 (.f64 (/.f64 #s(literal -1/4 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64)))))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4999999999999999791559868416 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) M) (/.f64 M d)) h) (.f64 d l))))) #s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -inf.0 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64))))) (if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4835703278458517/2417851639229258349412352 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 M (.f64 #s(literal 1/4 binary64) D)) D) (.f64 M h)) (.f64 (.f64 d d) l)))))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -inf.0 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64))))) (if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4835703278458517/2417851639229258349412352 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 M (.f64 #s(literal 1/4 binary64) D)) D) (.f64 M h)) (.f64 (.f64 d d) l)))))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -inf.0 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64))))) (if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4835703278458517/2417851639229258349412352 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (.f64 M D) (.f64 M h))) (.f64 (.f64 d d) l)))))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -inf.0 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64))))) (if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4835703278458517/2417851639229258349412352 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 (.f64 M D) (.f64 M h))) (.f64 (.f64 d d) l)))))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -inf.0 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64))))) (if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4835703278458517/2417851639229258349412352 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 #s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64))) h #s(literal 1 binary64)))))) #s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -inf.0 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64))))) (if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4835703278458517/2417851639229258349412352 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) (fma.f64 #s(approx (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) (.f64 (/.f64 (.f64 (.f64 (.f64 M D) M) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64))) h #s(literal 1 binary64)))))) #s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -200000000000000015842876501691535308251363838339942186816779868466887151795034205545089069114411529059504325666588836124813676426230104197677563914641752713707086241642983763505789334141041164451549418938435594261010114368138763297090749546488747114934452621501484084432923307385290752 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64))))) (if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4999999999999999791559868416 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)))))))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -200000000000000015842876501691535308251363838339942186816779868466887151795034205545089069114411529059504325666588836124813676426230104197677563914641752713707086241642983763505789334141041164451549418938435594261010114368138763297090749546488747114934452621501484084432923307385290752 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64))))) (if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4999999999999999791559868416 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(approx (- 1 (/ (* (* (* 1/4 (* D D)) M) (* M h)) (* (* d d) l))) #s(approx (+ (* (* (/ -1/4 d) (/ (* (* M D) (* M D)) (* d l))) h) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 M (.f64 (.f64 d d) l)) h) M)))))))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4835703278458517/2417851639229258349412352 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (/ h d) (* M M)) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64))))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4835703278458517/2417851639229258349412352 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (fma.f64 (.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 d l))) h #s(literal 1 binary64))))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -50000000000000000372449025103715994572099746929157693617982127065631992623390808013185993818695352920423280130139232314186271691640488659154528462055811941854826944868021960704 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 M (.f64 h (/.f64 M (.f64 (.f64 d l) d)))) #s(literal 1 binary64)))) #s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -50000000000000000372449025103715994572099746929157693617982127065631992623390808013185993818695352920423280130139232314186271691640488659154528462055811941854826944868021960704 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* -1/8 (* D D)) (/ (* (* (/ h d) M) M) (* d l))) 1) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) M) (.f64 (/.f64 M (.f64 (.f64 d d) l)) h))))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

derivations378.0ms (4.8%)

Memory

6.8MiB live, 281.9MiB allocated; 28ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 433 to 198 computations (86.2% saved)

preprocess132.0ms (1.7%)

Memory

-2.4MiB live, 178.9MiB allocated; 50ms collecting garbage

Remove

(negabs w0)

(abs d)

Compiler

Compiled 4 582 to 1 374 computations (70% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.3s (16%)

sample2.2s (28.2%)

explain201.0ms (2.5%)

preprocess135.0ms (1.7%)

eval0.0ms (0%)

prune1.0ms (0%)

series108.0ms (1.4%)

simplify176.0ms (2.2%)

rewrite68.0ms (0.9%)

eval37.0ms (0.5%)

prune15.0ms (0.2%)

series290.0ms (3.7%)

simplify184.0ms (2.3%)

rewrite80.0ms (1%)

eval144.0ms (1.8%)

prune41.0ms (0.5%)

series149.0ms (1.9%)

simplify185.0ms (2.3%)

rewrite131.0ms (1.7%)

eval110.0ms (1.4%)

prune59.0ms (0.7%)

series176.0ms (2.2%)

simplify171.0ms (2.2%)

rewrite102.0ms (1.3%)

eval155.0ms (2%)

prune75.0ms (1%)

regimes308.0ms (3.9%)

regimes218.0ms (2.8%)

regimes60.0ms (0.8%)

regimes190.0ms (2.4%)

regimes14.0ms (0.2%)

regimes39.0ms (0.5%)

regimes21.0ms (0.3%)

regimes9.0ms (0.1%)

regimes71.0ms (0.9%)

regimes45.0ms (0.6%)

regimes6.0ms (0.1%)

regimes42.0ms (0.5%)

regimes7.0ms (0.1%)

regimes16.0ms (0.2%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch2.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

simplify59.0ms (0.8%)

derivations378.0ms (4.8%)

preprocess132.0ms (1.7%)

end0.0ms (0%)

Profiling