Metrics for Henrywood and Agarwal, Equation (12)

start0.0ms (0%)

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

analyze618.0ms (9.3%)

Memory

30.0MiB live, 451.6MiB allocated; 673ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.8%	0.2%	0%	0%	0%	0
0%	0%	99.8%	0.2%	0%	0%	0%	1
0%	0%	99.8%	0.2%	0%	0%	0%	2
0%	0%	99.8%	0.2%	0%	0%	0%	3
12.5%	12.5%	87.3%	0.2%	0%	0%	0%	4
12.5%	12.5%	87.3%	0.2%	0%	0%	0%	5
12.5%	12.5%	87.3%	0.2%	0%	0%	0%	6
15.4%	12.5%	68.6%	0.2%	0%	18.7%	0%	7
16.7%	12.5%	62.3%	0.2%	0%	24.9%	0%	8
20%	14%	56.1%	0.2%	0%	29.6%	0%	9
20%	14%	56.1%	0.2%	0%	29.6%	0%	10
20%	14%	56.1%	0.2%	0%	29.6%	0%	11
22.9%	14.8%	49.9%	0.2%	0%	35.1%	0%	12

Compiler

Compiled 37 to 24 computations (35.1% saved)

sample4.8s (71.7%)

Memory

110.5MiB live, 5 433.4MiB allocated; 996ms collecting garbage

Samples

2.1s	13 218×	0	invalid
1.4s	8 256×	0	valid

Precisions

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

ival-mult!: 751.0ms (31% of total)

ival-pow: 677.0ms (27.9% of total)

ival-div!: 632.0ms (26% of total)

ival-pow2: 266.0ms (11% of total)

ival-sub!: 96.0ms (4% of total)

adjust: 4.0ms (0.2% of total)

Bogosity

preprocess58.0ms (0.9%)

Memory

-34.6MiB live, 57.5MiB allocated; 8ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	171	589
1	813	556
2	4571	550

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

Status

Accuracy

Program

▶

35.5%

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

Symmetry

(abs d)

(abs M)

(abs D)

(sort M D)

Compiler

Compiled 62 to 44 computations (29% saved)

series123.0ms (1.8%)

Memory

23.2MiB live, 128.4MiB allocated; 54ms collecting garbage

Counts

22 → 45

Calls

Call 1

Inputs
(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
(*.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))))
(pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))
(/.f64 d h)
d
h
(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))
#s(literal 1 binary64)
#s(literal 2 binary64)
(pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))
(/.f64 d l)
l
(-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))
(.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)))
(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)
(/.f64 h l)

Outputs
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d)))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (sqrt (/ d h))))
#s(approx (/ d h) #s(hole binary64 (/ d h)))
#s(approx d #s(hole binary64 d))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (sqrt (/ d l))))
#s(approx (/ d l) #s(hole binary64 (/ d l)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#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 (* 2 d) #s(hole binary64 (* 2 d)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* d (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ 1 2) (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 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* d (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (pow d 2)) (sqrt (/ h (pow l 3))))) (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2)))))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (* -1 (* (sqrt (/ d h)) (pow (sqrt -1) 2)))))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (* -1 (* (sqrt (/ d l)) (pow (sqrt -1) 2)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) h)))
#s(approx h #s(hole binary64 h))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (* (sqrt (/ d h)) (pow (sqrt -1) 2))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (* h l)))) (* d (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx l #s(hole binary64 l))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) (* d (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (* (sqrt (/ d l)) (pow (sqrt -1) 2))))
#s(approx (* M D) #s(hole binary64 (* D M)))
#s(approx M #s(hole binary64 M))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx D #s(hole binary64 D))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))))

Calls

15 calls:

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

rewrite33.0ms (0.5%)

Memory

-22.6MiB live, 22.9MiB allocated; 4ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	226	1573
0	251	1562
1	563	1562

Stop Event

1×	saturated
1×	iter-limit
1×	unsound
1×	iter-limit

Counts

67 → 67

Calls

Call 1

Inputs
(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
(*.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))))
(pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))
(/.f64 d h)
d
h
(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))
#s(literal 1 binary64)
#s(literal 2 binary64)
(pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))
(/.f64 d l)
l
(-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))
(.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)))
(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)
(/.f64 h l)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d)))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (sqrt (/ d h))))
#s(approx (/ d h) #s(hole binary64 (/ d h)))
#s(approx d #s(hole binary64 d))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (sqrt (/ d l))))
#s(approx (/ d l) #s(hole binary64 (/ d l)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#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 (* 2 d) #s(hole binary64 (* 2 d)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* d (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ 1 2) (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 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* d (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (pow d 2)) (sqrt (/ h (pow l 3))))) (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2)))))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (* -1 (* (sqrt (/ d h)) (pow (sqrt -1) 2)))))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (* -1 (* (sqrt (/ d l)) (pow (sqrt -1) 2)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) h)))
#s(approx h #s(hole binary64 h))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (* (sqrt (/ d h)) (pow (sqrt -1) 2))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (* h l)))) (* d (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx l #s(hole binary64 l))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) (* d (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (* (sqrt (/ d l)) (pow (sqrt -1) 2))))
#s(approx (* M D) #s(hole binary64 (* D M)))
#s(approx M #s(hole binary64 M))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx D #s(hole binary64 D))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))))

Outputs
(.f64 (.f64 (pow.f64 (/.f64 d h) #s(literal 1/2 binary64)) (pow.f64 (/.f64 d l) #s(literal 1/2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
(*.f64 (pow.f64 (/.f64 d h) #s(literal 1/2 binary64)) (pow.f64 (/.f64 d l) #s(literal 1/2 binary64)))
(pow.f64 (/.f64 d h) #s(literal 1/2 binary64))
(/.f64 d h)
d
h
#s(literal 1/2 binary64)
#s(literal 1 binary64)
#s(literal 2 binary64)
(pow.f64 (/.f64 d l) #s(literal 1/2 binary64))
(/.f64 d l)
l
(-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))
(.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))
(.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)))
(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)
(/.f64 h l)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) d))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
#s(approx (pow (/ d h) (/ 1 2)) (sqrt.f64 (/.f64 d h)))
#s(approx (/ d h) (/.f64 d h))
#s(approx d d)
#s(approx (pow (/ d l) (/ 1 2)) (sqrt.f64 (/.f64 d l)))
#s(approx (/ d l) (/.f64 d l))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 (pow.f64 d #s(literal 2 binary64)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) l))) (pow.f64 d #s(literal 2 binary64))))
#s(approx (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l))))
#s(approx (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64)))))
#s(approx (pow (/ (* M D) (* 2 d)) 2) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64)))))
#s(approx (/ (* M D) (* 2 d)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 D M) d)))
#s(approx (* 2 d) (*.f64 #s(literal 2 binary64) d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 d (+.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1 binary64) (.f64 d (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (pow.f64 d #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))))))
#s(approx (pow (/ d h) (/ 1 2)) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 (/.f64 d h)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))))
#s(approx (pow (/ d l) (/ 1 2)) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 (/.f64 d l)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 d (sqrt.f64 (/.f64 h l)))) h))
#s(approx h h)
#s(approx (/ h l) (/.f64 h l))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 h (-.f64 (/.f64 #s(literal 1 binary64) h) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1 binary64) (.f64 h (fma.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))
#s(approx (pow (/ d h) (/ 1 2)) (*.f64 (sqrt.f64 (/.f64 d h)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (/.f64 #s(literal 1 binary64) h))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (.f64 h l))) (.f64 d (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)))) (pow.f64 l #s(literal 2 binary64))))
#s(approx l l)
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
#s(approx (pow (/ d l) (/ 1 2)) (*.f64 (sqrt.f64 (/.f64 d l)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))))
#s(approx (* M D) (*.f64 D M))
#s(approx M M)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 2 binary64)) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (/.f64 d (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (pow.f64 M #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 M #s(literal 2 binary64))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) h) (.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
#s(approx D D)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 M #s(literal 2 binary64)) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (/.f64 d (pow.f64 D #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (pow.f64 D #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 D #s(literal 2 binary64))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 M #s(literal 2 binary64)) h) (.f64 (pow.f64 d #s(literal 2 binary64)) l))))))

eval5.0ms (0.1%)

Memory: 6.9MiB live, 6.9MiB allocated; 0ms collecting garbage
Compiler: Compiled 974 to 329 computations (66.2% saved)

prune11.0ms (0.2%)

Memory

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

Pruning

12 alts after pruning (12 fresh and 0 done)

	Pruned	Kept	Total
New	41	12	53
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	42	12	54

Accuracy

82.1%

Counts

54 → 12

Alt Table

Click to see full alt table

Status	Accuracy	Program
	24.4%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))))) (/.f64 h l))))
	23.7%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l)))
	23.7%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (/.f64 #s(literal 1 binary64) h)))))
	6.7%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
	22.5%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64)))
	32.4%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) #s(approx (pow (/ d l) (/ 1 2)) (sqrt.f64 (/.f64 d l)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
▶	70.9%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	15.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 d (sqrt.f64 (/.f64 h l)))) h))
▶	31.0%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) d))
▶	18.8%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
▶	26.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
▶	0.0%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))

Compiler

Compiled 908 to 834 computations (8.1% saved)

series189.0ms (2.8%)

Memory

-6.8MiB live, 176.1MiB allocated; 23ms collecting garbage

Counts

59 → 104

Calls

Call 1

Inputs
(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
(.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))
d
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))
(/.f64 #s(literal 1 binary64) (*.f64 h l))
#s(literal 1 binary64)
(*.f64 h l)
h
l
(-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))
(.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))
#s(literal 2 binary64)
(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)
(/.f64 h l)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
(.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
#s(literal -1 binary64)
(.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l))))
(*.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))
(pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))
(sqrt.f64 #s(literal -1 binary64))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
(.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
#s(literal -1/8 binary64)
(.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))
(/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d)
(*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64)))
(pow.f64 D #s(literal 2 binary64))
(pow.f64 M #s(literal 2 binary64))
(sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))
(/.f64 h (pow.f64 l #s(literal 3 binary64)))
(pow.f64 l #s(literal 3 binary64))
#s(literal 3 binary64)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) d))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) d)
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
(.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))
(.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))
(pow.f64 d #s(literal 2 binary64))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
(.f64 h (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l))))))
(fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l)))))
(.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))
(*.f64 h (pow.f64 l #s(literal 3 binary64)))
(.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l)))
(/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l))
(*.f64 (pow.f64 h #s(literal 3 binary64)) l)
(pow.f64 h #s(literal 3 binary64))

Outputs
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d)))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx d #s(hole binary64 d))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#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 (* 2 d) #s(hole binary64 (* 2 d)))
#s(approx (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (* d (pow (sqrt -1) 2)) #s(hole binary64 (* d (pow (sqrt -1) 2))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))) #s(hole binary64 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))))
#s(approx (/ (* (pow D 2) (pow M 2)) d) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) d)))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l)))))))
#s(approx (* (pow d 2) (sqrt (/ 1 (* h l)))) #s(hole binary64 (* (pow d 2) (sqrt (/ 1 (* h l))))))
#s(approx (pow d 2) #s(hole binary64 (pow d 2)))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ 1 (* h (pow l 3)))))) (* (pow d 2) (sqrt (/ 1 (* (pow h 3) l))))) d)))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) #s(hole binary64 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))))
#s(approx (* d (sqrt (/ 1 (* (pow h 3) l)))) #s(hole binary64 (* d (sqrt (/ 1 (* (pow h 3) l))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* d (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ 1 2) (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 (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow d 2) (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* d (+ (sqrt (/ 1 (* (pow h 3) l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ 1 (* h (pow l 3))))))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* d (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (pow d 2)) (sqrt (/ h (pow l 3))))) (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2)))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) #s(hole binary64 (* -1 (* d (+ (* -1 (sqrt (/ 1 (* h l)))) (* 1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3))))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1 (* d (+ (* -1 (sqrt (/ 1 (* (pow h 3) l)))) (* 1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) h)))
#s(approx (sqrt (/ 1 (* h l))) #s(hole binary64 (sqrt (/ 1 (* h l)))))
#s(approx (/ 1 (* h l)) #s(hole binary64 (/ 1 (* h l))))
#s(approx (* h l) #s(hole binary64 (* h l)))
#s(approx h #s(hole binary64 h))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx (sqrt (/ h (pow l 3))) #s(hole binary64 (sqrt (/ h (pow l 3)))))
#s(approx (/ h (pow l 3)) #s(hole binary64 (/ h (pow l 3))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h)))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) #s(hole binary64 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) (pow h 2))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) #s(hole binary64 (sqrt (/ 1 (* h (pow l 3))))))
#s(approx (/ 1 (* h (pow l 3))) #s(hole binary64 (/ 1 (* h (pow l 3)))))
#s(approx (* h (pow l 3)) #s(hole binary64 (* h (pow l 3))))
#s(approx (sqrt (/ 1 (* (pow h 3) l))) #s(hole binary64 (sqrt (/ 1 (* (pow h 3) l)))))
#s(approx (/ 1 (* (pow h 3) l)) #s(hole binary64 (/ 1 (* (pow h 3) l))))
#s(approx (* (pow h 3) l) #s(hole binary64 (* (pow h 3) l)))
#s(approx (pow h 3) #s(hole binary64 (pow h 3)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ 1 (* h (pow l 3)))))) (* (pow d 2) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (sqrt (/ 1 (* h l))) #s(hole binary64 (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 4)) (sqrt (/ 1 (* h l)))))))
#s(approx (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))) #s(hole binary64 (* (* d (pow (sqrt -1) 4)) (sqrt (/ 1 (* h l))))))
#s(approx (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) #s(hole binary64 (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))) #s(hole binary64 (* -1 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (sqrt (/ h (pow l 3))) #s(hole binary64 (* -1 (* (sqrt (/ h (pow l 3))) (pow (sqrt -1) 2)))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* 1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) #s(hole binary64 (* -1 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3)))))))
#s(approx (* (pow d 2) (sqrt (/ 1 (* h l)))) #s(hole binary64 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) #s(hole binary64 (* -1 (* h (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) #s(hole binary64 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) #s(hole binary64 (* (sqrt (/ 1 (* h (pow l 3)))) (pow (sqrt -1) 2))))
#s(approx (* d (sqrt (/ 1 (* (pow h 3) l)))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))
#s(approx (sqrt (/ 1 (* (pow h 3) l))) #s(hole binary64 (* -1 (* (sqrt (/ 1 (* (pow h 3) l))) (pow (sqrt -1) 2)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (* h l)))) (* d (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx l #s(hole binary64 l))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (pow l 3) #s(hole binary64 (pow l 3)))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (* h l)))) (* (pow d 2) (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ l h)))) (* d (sqrt (/ (pow l 3) (pow h 3))))) (pow l 2))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) (* d (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) #s(hole binary64 (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (+ (* 1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3))))) (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) #s(hole binary64 (* -1 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) #s(hole binary64 (* -1 (* (sqrt (/ 1 (* h (pow l 3)))) (pow (sqrt -1) 2)))))
#s(approx (sqrt (/ 1 (* (pow h 3) l))) #s(hole binary64 (* (sqrt (/ 1 (* (pow h 3) l))) (pow (sqrt -1) 2))))
#s(approx (* M D) #s(hole binary64 (* D M)))
#s(approx M #s(hole binary64 M))
#s(approx (* (pow D 2) (pow M 2)) #s(hole binary64 (* (pow D 2) (pow M 2))))
#s(approx (pow M 2) #s(hole binary64 (pow M 2)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (pow D 2) (sqrt (/ h (pow l 3))))) (* (/ (pow d 2) (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx D #s(hole binary64 D))
#s(approx (pow D 2) #s(hole binary64 (pow D 2)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (pow M 2) (sqrt (/ h (pow l 3))))) (* (/ (pow d 2) (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* (pow h 3) l))))))))

Calls

15 calls:

Time	Variable		Point	Expression
31.0ms	l	@	-inf	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (sqrt (/ 1 (* h l)))) d (sqrt (/ 1 (* h l))) (/ 1 (* h l)) 1 (* h l) h l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ 1 2) 2 (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))) -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))) (* d (pow (sqrt -1) 2)) (pow (sqrt -1) 2) (sqrt -1) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))) (/ (* (pow D 2) (pow M 2)) d) (* (pow D 2) (pow M 2)) (pow D 2) (pow M 2) (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) (* (pow d 2) (sqrt (/ 1 (* h l)))) (pow d 2) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) (sqrt (/ 1 (* h (pow l 3)))) (/ 1 (* h (pow l 3))) (* h (pow l 3)) (* d (sqrt (/ 1 (* (pow h 3) l)))) (sqrt (/ 1 (* (pow h 3) l))) (/ 1 (* (pow h 3) l)) (* (pow h 3) l) (pow h 3))
29.0ms	h	@	-inf	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (sqrt (/ 1 (* h l)))) d (sqrt (/ 1 (* h l))) (/ 1 (* h l)) 1 (* h l) h l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ 1 2) 2 (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))) -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))) (* d (pow (sqrt -1) 2)) (pow (sqrt -1) 2) (sqrt -1) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))) (/ (* (pow D 2) (pow M 2)) d) (* (pow D 2) (pow M 2)) (pow D 2) (pow M 2) (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) (* (pow d 2) (sqrt (/ 1 (* h l)))) (pow d 2) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) (sqrt (/ 1 (* h (pow l 3)))) (/ 1 (* h (pow l 3))) (* h (pow l 3)) (* d (sqrt (/ 1 (* (pow h 3) l)))) (sqrt (/ 1 (* (pow h 3) l))) (/ 1 (* (pow h 3) l)) (* (pow h 3) l) (pow h 3))
15.0ms	d	@	inf	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (sqrt (/ 1 (* h l)))) d (sqrt (/ 1 (* h l))) (/ 1 (* h l)) 1 (* h l) h l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ 1 2) 2 (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))) -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))) (* d (pow (sqrt -1) 2)) (pow (sqrt -1) 2) (sqrt -1) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))) (/ (* (pow D 2) (pow M 2)) d) (* (pow D 2) (pow M 2)) (pow D 2) (pow M 2) (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) (* (pow d 2) (sqrt (/ 1 (* h l)))) (pow d 2) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) (sqrt (/ 1 (* h (pow l 3)))) (/ 1 (* h (pow l 3))) (* h (pow l 3)) (* d (sqrt (/ 1 (* (pow h 3) l)))) (sqrt (/ 1 (* (pow h 3) l))) (/ 1 (* (pow h 3) l)) (* (pow h 3) l) (pow h 3))
14.0ms	D	@	inf	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (sqrt (/ 1 (* h l)))) d (sqrt (/ 1 (* h l))) (/ 1 (* h l)) 1 (* h l) h l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ 1 2) 2 (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))) -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))) (* d (pow (sqrt -1) 2)) (pow (sqrt -1) 2) (sqrt -1) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))) (/ (* (pow D 2) (pow M 2)) d) (* (pow D 2) (pow M 2)) (pow D 2) (pow M 2) (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) (* (pow d 2) (sqrt (/ 1 (* h l)))) (pow d 2) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) (sqrt (/ 1 (* h (pow l 3)))) (/ 1 (* h (pow l 3))) (* h (pow l 3)) (* d (sqrt (/ 1 (* (pow h 3) l)))) (sqrt (/ 1 (* (pow h 3) l))) (/ 1 (* (pow h 3) l)) (* (pow h 3) l) (pow h 3))
11.0ms	d	@	-inf	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (sqrt (/ 1 (* h l)))) d (sqrt (/ 1 (* h l))) (/ 1 (* h l)) 1 (* h l) h l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ 1 2) 2 (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))) -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))) (* d (pow (sqrt -1) 2)) (pow (sqrt -1) 2) (sqrt -1) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))) (/ (* (pow D 2) (pow M 2)) d) (* (pow D 2) (pow M 2)) (pow D 2) (pow M 2) (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) (* (pow d 2) (sqrt (/ 1 (* h l)))) (pow d 2) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) (sqrt (/ 1 (* h (pow l 3)))) (/ 1 (* h (pow l 3))) (* h (pow l 3)) (* d (sqrt (/ 1 (* (pow h 3) l)))) (sqrt (/ 1 (* (pow h 3) l))) (/ 1 (* (pow h 3) l)) (* (pow h 3) l) (pow h 3))

rewrite60.0ms (0.9%)

Memory

-8.8MiB live, 36.9MiB allocated; 3ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	412	4557
0	498	4529
1	997	4529

Stop Event

1×	saturated
1×	iter-limit
1×	unsound
1×	iter-limit

Counts

163 → 165

Calls

Call 1

Inputs
(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
(.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))
d
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))
(/.f64 #s(literal 1 binary64) (*.f64 h l))
#s(literal 1 binary64)
(*.f64 h l)
h
l
(-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))
(.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))
#s(literal 2 binary64)
(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)
(/.f64 h l)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
(.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
#s(literal -1 binary64)
(.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l))))
(*.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))
(pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))
(sqrt.f64 #s(literal -1 binary64))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
(.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
#s(literal -1/8 binary64)
(.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))
(/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d)
(*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64)))
(pow.f64 D #s(literal 2 binary64))
(pow.f64 M #s(literal 2 binary64))
(sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))
(/.f64 h (pow.f64 l #s(literal 3 binary64)))
(pow.f64 l #s(literal 3 binary64))
#s(literal 3 binary64)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) d))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) d)
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
(.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))
(.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))
(pow.f64 d #s(literal 2 binary64))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
(.f64 h (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l))))))
(fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l)))))
(.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))
(*.f64 h (pow.f64 l #s(literal 3 binary64)))
(.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l)))
(/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l))
(*.f64 (pow.f64 h #s(literal 3 binary64)) l)
(pow.f64 h #s(literal 3 binary64))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d)))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx d #s(hole binary64 d))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#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 (* 2 d) #s(hole binary64 (* 2 d)))
#s(approx (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (* d (pow (sqrt -1) 2)) #s(hole binary64 (* d (pow (sqrt -1) 2))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))) #s(hole binary64 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))))
#s(approx (/ (* (pow D 2) (pow M 2)) d) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) d)))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l)))))))
#s(approx (* (pow d 2) (sqrt (/ 1 (* h l)))) #s(hole binary64 (* (pow d 2) (sqrt (/ 1 (* h l))))))
#s(approx (pow d 2) #s(hole binary64 (pow d 2)))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ 1 (* h (pow l 3)))))) (* (pow d 2) (sqrt (/ 1 (* (pow h 3) l))))) d)))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) #s(hole binary64 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))))
#s(approx (* d (sqrt (/ 1 (* (pow h 3) l)))) #s(hole binary64 (* d (sqrt (/ 1 (* (pow h 3) l))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* d (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ 1 2) (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 (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow d 2) (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* d (+ (sqrt (/ 1 (* (pow h 3) l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ 1 (* h (pow l 3))))))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* d (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (pow d 2)) (sqrt (/ h (pow l 3))))) (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2)))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) #s(hole binary64 (* -1 (* d (+ (* -1 (sqrt (/ 1 (* h l)))) (* 1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3))))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1 (* d (+ (* -1 (sqrt (/ 1 (* (pow h 3) l)))) (* 1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) h)))
#s(approx (sqrt (/ 1 (* h l))) #s(hole binary64 (sqrt (/ 1 (* h l)))))
#s(approx (/ 1 (* h l)) #s(hole binary64 (/ 1 (* h l))))
#s(approx (* h l) #s(hole binary64 (* h l)))
#s(approx h #s(hole binary64 h))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx (sqrt (/ h (pow l 3))) #s(hole binary64 (sqrt (/ h (pow l 3)))))
#s(approx (/ h (pow l 3)) #s(hole binary64 (/ h (pow l 3))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h)))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) #s(hole binary64 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) (pow h 2))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) #s(hole binary64 (sqrt (/ 1 (* h (pow l 3))))))
#s(approx (/ 1 (* h (pow l 3))) #s(hole binary64 (/ 1 (* h (pow l 3)))))
#s(approx (* h (pow l 3)) #s(hole binary64 (* h (pow l 3))))
#s(approx (sqrt (/ 1 (* (pow h 3) l))) #s(hole binary64 (sqrt (/ 1 (* (pow h 3) l)))))
#s(approx (/ 1 (* (pow h 3) l)) #s(hole binary64 (/ 1 (* (pow h 3) l))))
#s(approx (* (pow h 3) l) #s(hole binary64 (* (pow h 3) l)))
#s(approx (pow h 3) #s(hole binary64 (pow h 3)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ 1 (* h (pow l 3)))))) (* (pow d 2) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (sqrt (/ 1 (* h l))) #s(hole binary64 (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 4)) (sqrt (/ 1 (* h l)))))))
#s(approx (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))) #s(hole binary64 (* (* d (pow (sqrt -1) 4)) (sqrt (/ 1 (* h l))))))
#s(approx (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) #s(hole binary64 (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))) #s(hole binary64 (* -1 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (sqrt (/ h (pow l 3))) #s(hole binary64 (* -1 (* (sqrt (/ h (pow l 3))) (pow (sqrt -1) 2)))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* 1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) #s(hole binary64 (* -1 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3)))))))
#s(approx (* (pow d 2) (sqrt (/ 1 (* h l)))) #s(hole binary64 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) #s(hole binary64 (* -1 (* h (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) #s(hole binary64 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) #s(hole binary64 (* (sqrt (/ 1 (* h (pow l 3)))) (pow (sqrt -1) 2))))
#s(approx (* d (sqrt (/ 1 (* (pow h 3) l)))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))
#s(approx (sqrt (/ 1 (* (pow h 3) l))) #s(hole binary64 (* -1 (* (sqrt (/ 1 (* (pow h 3) l))) (pow (sqrt -1) 2)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (* h l)))) (* d (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx l #s(hole binary64 l))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (pow l 3) #s(hole binary64 (pow l 3)))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (* h l)))) (* (pow d 2) (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ l h)))) (* d (sqrt (/ (pow l 3) (pow h 3))))) (pow l 2))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) (* d (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) #s(hole binary64 (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (+ (* 1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3))))) (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) #s(hole binary64 (* -1 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) #s(hole binary64 (* -1 (* (sqrt (/ 1 (* h (pow l 3)))) (pow (sqrt -1) 2)))))
#s(approx (sqrt (/ 1 (* (pow h 3) l))) #s(hole binary64 (* (sqrt (/ 1 (* (pow h 3) l))) (pow (sqrt -1) 2))))
#s(approx (* M D) #s(hole binary64 (* D M)))
#s(approx M #s(hole binary64 M))
#s(approx (* (pow D 2) (pow M 2)) #s(hole binary64 (* (pow D 2) (pow M 2))))
#s(approx (pow M 2) #s(hole binary64 (pow M 2)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (pow D 2) (sqrt (/ h (pow l 3))))) (* (/ (pow d 2) (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx D #s(hole binary64 D))
#s(approx (pow D 2) #s(hole binary64 (pow D 2)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (pow M 2) (sqrt (/ h (pow l 3))))) (* (/ (pow d 2) (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* (pow h 3) l))))))))

Outputs
(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
(.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))
d
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))
(/.f64 #s(literal 1 binary64) (*.f64 h l))
#s(literal 1 binary64)
(*.f64 h l)
h
l
(-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))
(.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))
(.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)))
#s(literal 1/2 binary64)
#s(literal 2 binary64)
(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)
(/.f64 h l)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
(.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
#s(literal -1 binary64)
(.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l))))
(*.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))
(pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))
(sqrt.f64 #s(literal -1 binary64))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
(.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
#s(literal -1/8 binary64)
(.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))
(/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d)
(*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64)))
(pow.f64 D #s(literal 2 binary64))
(pow.f64 M #s(literal 2 binary64))
(sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))
(/.f64 h (pow.f64 l #s(literal 3 binary64)))
(pow.f64 l #s(literal 3 binary64))
#s(literal 3 binary64)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) d))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) d)
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
(+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))
(.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))
(.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))
(pow.f64 d #s(literal 2 binary64))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
(.f64 h (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l))))))
(fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l)))))
(+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64))))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))
(.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))
(*.f64 h (pow.f64 l #s(literal 3 binary64)))
(.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l)))
(/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l))
(*.f64 (pow.f64 h #s(literal 3 binary64)) l)
(pow.f64 h #s(literal 3 binary64))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) d))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
#s(approx d d)
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 (pow.f64 d #s(literal 2 binary64)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) l))) (pow.f64 d #s(literal 2 binary64))))
#s(approx (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l))))
#s(approx (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64)))))
#s(approx (pow (/ (* M D) (* 2 d)) 2) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64)))))
#s(approx (/ (* M D) (* 2 d)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 D M) d)))
#s(approx (* 2 d) (*.f64 #s(literal 2 binary64) d))
#s(approx (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
#s(approx (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))
#s(approx (* d (pow (sqrt -1) 2)) (*.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
#s(approx (/ (* (pow D 2) (pow M 2)) d) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 #s(literal -1/8 binary64) (.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
#s(approx (* (pow d 2) (sqrt (/ 1 (* h l)))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
#s(approx (pow d 2) (pow.f64 d #s(literal 2 binary64)))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l))))) d))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (* d (sqrt (/ 1 (* (pow h 3) l)))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 d (+.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (+.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 d (+.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64))))))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1 binary64) (.f64 d (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (pow.f64 d #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (.f64 #s(literal -1 binary64) (.f64 d (fma.f64 #s(literal -1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1 binary64) (.f64 d (fma.f64 #s(literal -1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 d (sqrt.f64 (/.f64 h l)))) h))
#s(approx (sqrt (/ 1 (* h l))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l))))
#s(approx (/ 1 (* h l)) (/.f64 #s(literal 1 binary64) (*.f64 h l)))
#s(approx (* h l) (*.f64 h l))
#s(approx h h)
#s(approx (/ h l) (/.f64 h l))
#s(approx (sqrt (/ h (pow l 3))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))
#s(approx (/ h (pow l 3)) (/.f64 h (pow.f64 l #s(literal 3 binary64))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 d (sqrt.f64 (/.f64 h l)))) (pow.f64 h #s(literal 2 binary64))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))))
#s(approx (/ 1 (* h (pow l 3))) (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64)))))
#s(approx (* h (pow l 3)) (*.f64 h (pow.f64 l #s(literal 3 binary64))))
#s(approx (sqrt (/ 1 (* (pow h 3) l))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l))))
#s(approx (/ 1 (* (pow h 3) l)) (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l)))
#s(approx (* (pow h 3) l) (*.f64 (pow.f64 h #s(literal 3 binary64)) l))
#s(approx (pow h 3) (pow.f64 h #s(literal 3 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 h (-.f64 (/.f64 #s(literal 1 binary64) h) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1 binary64) (.f64 h (fma.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (sqrt (/ 1 (* h l))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (/.f64 #s(literal 1 binary64) h))))
#s(approx (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
#s(approx (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))
#s(approx (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))) (.f64 #s(literal -1 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (sqrt (/ h (pow l 3))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (.f64 #s(literal -1 binary64) (.f64 h (fma.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 #s(literal -1 binary64) (.f64 h (fma.f64 #s(literal -1 binary64) (.f64 (.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) (.f64 #s(literal -1 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (* (pow d 2) (sqrt (/ 1 (* h l)))) (.f64 (.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (.f64 #s(literal -1 binary64) (.f64 h (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))))
#s(approx (* d (sqrt (/ 1 (* (pow h 3) l)))) (.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l))))))
#s(approx (sqrt (/ 1 (* (pow h 3) l))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (.f64 h l))) (.f64 d (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)))) (pow.f64 l #s(literal 2 binary64))))
#s(approx l l)
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l))
#s(approx (pow l 3) (pow.f64 l #s(literal 3 binary64)))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (.f64 h l))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)))) (pow.f64 l #s(literal 2 binary64))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 l h))) (*.f64 d (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64)))))) (pow.f64 l #s(literal 2 binary64))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l)))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l))))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) (.f64 #s(literal -1 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))))
#s(approx (sqrt (/ 1 (* (pow h 3) l))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))))
#s(approx (* M D) (*.f64 D M))
#s(approx M M)
#s(approx (* (pow D 2) (pow M 2)) (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))))
#s(approx (pow M 2) (pow.f64 M #s(literal 2 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 2 binary64)) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (/.f64 d (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (pow.f64 M #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 M #s(literal 2 binary64))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) h) (.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 D #s(literal 2 binary64)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (/.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 2 binary64)) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (/.f64 d (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
#s(approx D D)
#s(approx (pow D 2) (pow.f64 D #s(literal 2 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 M #s(literal 2 binary64)) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (/.f64 d (pow.f64 D #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (pow.f64 D #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 D #s(literal 2 binary64))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 M #s(literal 2 binary64)) h) (.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (/.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 D #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 M #s(literal 2 binary64)) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (/.f64 d (pow.f64 D #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))

eval11.0ms (0.2%)

Memory: 14.9MiB live, 14.9MiB allocated; 0ms collecting garbage
Compiler: Compiled 2 768 to 848 computations (69.4% saved)

prune17.0ms (0.3%)

Memory

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

Pruning

16 alts after pruning (15 fresh and 1 done)

	Pruned	Kept	Total
New	135	9	144
Fresh	1	6	7
Picked	4	1	5
Done	0	0	0
Total	140	16	156

Accuracy

84.3%

Counts

156 → 16

Alt Table

Click to see full alt table

Status	Accuracy	Program
	24.4%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))))) (/.f64 h l))))
	23.7%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (/.f64 #s(literal 1 binary64) h)))))
	6.7%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
	22.5%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64)))
	32.4%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) #s(approx (pow (/ d l) (/ 1 2)) (sqrt.f64 (/.f64 d l)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
▶	70.9%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	47.4%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) (-.f64 #s(literal 1 binary64) (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))))) (/.f64 h l))))
▶	50.7%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l)))
	20.1%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
▶	44.6%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64)))
	15.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 d (sqrt.f64 (/.f64 h l)))) h))
▶	10.7%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 #s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h)) d))
	26.3%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 #s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 #s(literal -1/8 binary64) (.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))) d))
✓	18.8%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
	10.9%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h #s(approx (+ ( -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 l h))) (*.f64 d (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64)))))) (pow.f64 l #s(literal 2 binary64))))))
▶	16.9%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h #s(approx (+ ( -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64))))))))))

Compiler

Compiled 1 327 to 1 245 computations (6.2% saved)

series176.0ms (2.6%)

Memory

11.9MiB live, 245.3MiB allocated; 46ms collecting garbage

Counts

60 → 133

Calls

Call 1

Inputs
(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
(.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))
d
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))
(/.f64 #s(literal 1 binary64) (*.f64 h l))
#s(literal 1 binary64)
(*.f64 h l)
h
l
(-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))
(.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))
(.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)))
#s(literal 1/2 binary64)
(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)
(/.f64 h l)
(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h #s(approx (+ ( -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64))))))))))
(.f64 h #s(approx (+ ( -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64))))))))
(.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(literal -1/8 binary64)
(.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))))
(/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d)
(*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64)))
(pow.f64 D #s(literal 2 binary64))
(pow.f64 M #s(literal 2 binary64))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))
(*.f64 h (pow.f64 l #s(literal 3 binary64)))
(pow.f64 l #s(literal 3 binary64))
#s(literal 3 binary64)
(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l))
(/.f64 (-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l)
(-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64)))))
(.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))
#s(literal 1/8 binary64)
(/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64)))
(.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h))
(*.f64 (pow.f64 M #s(literal 2 binary64)) h)
(pow.f64 d #s(literal 2 binary64))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 #s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h)) d))
(/.f64 #s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h)) d)
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h)
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l))))
(.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))))
(sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))
(/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))
(pow.f64 h #s(literal 3 binary64))
(*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))
(sqrt.f64 (/.f64 h l))

Outputs
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d)))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx d #s(hole binary64 d))
#s(approx (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#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 (* 2 d) #s(hole binary64 (* 2 d)))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ 1 (* h (pow l 3)))))) (* (pow d 2) (sqrt (/ 1 (* (pow h 3) l))))) d)))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) #s(hole binary64 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))))
#s(approx (/ (* (pow D 2) (pow M 2)) d) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) d)))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (/ (- (* (pow d 2) l) (* 1/8 (* (pow D 2) (* (pow M 2) h)))) (pow d 2))))
#s(approx (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))
#s(approx (pow d 2) #s(hole binary64 (pow d 2)))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l))))))
#s(approx (* (pow d 2) (sqrt (/ h l))) #s(hole binary64 (* (pow d 2) (sqrt (/ h l)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* d (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (* 1/2 (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 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* d (sqrt (/ 1 (* (pow h 3) l))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* d (+ (sqrt (/ 1 (* (pow h 3) l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ 1 (* h (pow l 3))))))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 l))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow d 2) (sqrt (/ 1 (* h l))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow d 2) (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (* (pow d 2) (+ (sqrt (/ h l)) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ (pow h 3) (pow l 3)))))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* d (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (pow d 2)) (sqrt (/ h (pow l 3))))) (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2)))))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) #s(hole binary64 (* -1 (* d (+ (* -1 (sqrt (/ 1 (* h l)))) (* 1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3))))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1 (* d (+ (* -1 (sqrt (/ 1 (* (pow h 3) l)))) (* 1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) h)))
#s(approx (sqrt (/ 1 (* h l))) #s(hole binary64 (sqrt (/ 1 (* h l)))))
#s(approx (/ 1 (* h l)) #s(hole binary64 (/ 1 (* h l))))
#s(approx (* h l) #s(hole binary64 (* h l)))
#s(approx h #s(hole binary64 h))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) (pow h 2))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) #s(hole binary64 (sqrt (/ 1 (* h (pow l 3))))))
#s(approx (/ 1 (* h (pow l 3))) #s(hole binary64 (/ 1 (* h (pow l 3)))))
#s(approx (* h (pow l 3)) #s(hole binary64 (* h (pow l 3))))
#s(approx (* (pow D 2) (* (pow M 2) h)) #s(hole binary64 (* (pow D 2) (* (pow M 2) h))))
#s(approx (* (pow M 2) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h)))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3)))) #s(hole binary64 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))))
#s(approx (sqrt (/ (pow h 3) (pow l 3))) #s(hole binary64 (sqrt (/ (pow h 3) (pow l 3)))))
#s(approx (/ (pow h 3) (pow l 3)) #s(hole binary64 (/ (pow h 3) (pow l 3))))
#s(approx (pow h 3) #s(hole binary64 (pow h 3)))
#s(approx (sqrt (/ h l)) #s(hole binary64 (sqrt (/ h l))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* h (- (/ l h) (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ 1 (* h (pow l 3)))))) (* (pow d 2) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (* (pow h 2) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ 1 (* h (pow l 3)))))) (* (pow d 2) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (sqrt (/ 1 (* h l))) #s(hole binary64 (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) #s(hole binary64 (* -1 (* h (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) #s(hole binary64 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) #s(hole binary64 (* (sqrt (/ 1 (* h (pow l 3)))) (pow (sqrt -1) 2))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* -1 (* h (- (* -1 (/ l h)) (* -1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) #s(hole binary64 (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* 1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h) #s(hole binary64 (* -1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3)))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h) #s(hole binary64 (* -1 (* h (+ (* 1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ 1 (* h (pow l 3)))))) (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (* -1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ (pow h 3) (pow l 3)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (* (pow h 2) (+ (* -1 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ 1 (* h (pow l 3))))))))))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3)))) #s(hole binary64 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ (pow h 3) (pow l 3))))))
#s(approx (sqrt (/ (pow h 3) (pow l 3))) #s(hole binary64 (* (sqrt (/ (pow h 3) (pow l 3))) (pow (sqrt -1) 2))))
#s(approx (* (pow d 2) (sqrt (/ h l))) #s(hole binary64 (* -1 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ h l))))))
#s(approx (sqrt (/ h l)) #s(hole binary64 (* -1 (* (sqrt (/ h l)) (pow (sqrt -1) 2)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (* h l)))) (* d (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ l h)))) (* d (sqrt (/ (pow l 3) (pow h 3))))) (pow l 2))))
#s(approx (pow l 3) #s(hole binary64 (pow l 3)))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (* h l)))) (* (pow d 2) (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (* (pow h 3) l)))) (* (pow d 2) (sqrt (* h (pow l 3))))) (pow l 2))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) (* d (sqrt (/ 1 (* h l)))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* l (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) #s(hole binary64 (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))
#s(approx (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) #s(hole binary64 (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) #s(hole binary64 (* -1 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) #s(hole binary64 (* -1 (* (sqrt (/ 1 (* h (pow l 3)))) (pow (sqrt -1) 2)))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* -1 (* l (- (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) 1)))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (+ (* 1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3))))) (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ h l)))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (+ (* 1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ (pow h 3) (pow l 3))))) (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ h l))))))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3)))) #s(hole binary64 (* -1 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ (pow h 3) (pow l 3)))))))
#s(approx (sqrt (/ (pow h 3) (pow l 3))) #s(hole binary64 (* -1 (* (sqrt (/ (pow h 3) (pow l 3))) (pow (sqrt -1) 2)))))
#s(approx (sqrt (/ h l)) #s(hole binary64 (* (sqrt (/ h l)) (pow (sqrt -1) 2))))
#s(approx (* M D) #s(hole binary64 (* D M)))
#s(approx M #s(hole binary64 M))
#s(approx (* (pow D 2) (pow M 2)) #s(hole binary64 (* (pow D 2) (pow M 2))))
#s(approx (pow M 2) #s(hole binary64 (pow M 2)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* (pow M 2) (- (/ l (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (pow d 2)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (pow D 2) (sqrt (/ h (pow l 3))))) (* (/ (pow d 2) (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (pow D 2) (sqrt (/ (pow h 3) (pow l 3))))) (* (/ (pow d 2) (pow M 2)) (sqrt (/ h l)))))))
#s(approx D #s(hole binary64 D))
#s(approx (pow D 2) #s(hole binary64 (pow D 2)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* (pow D 2) (- (/ l (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (pow d 2)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (pow M 2) (sqrt (/ h (pow l 3))))) (* (/ (pow d 2) (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (pow M 2) (sqrt (/ (pow h 3) (pow l 3))))) (* (/ (pow d 2) (pow D 2)) (sqrt (/ h l)))))))

Calls

15 calls:

Time	Variable		Point	Expression
24.0ms	d	@	0	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (sqrt (/ 1 (* h l)))) d (sqrt (/ 1 (* h l))) (/ 1 (* h l)) 1 (* h l) h l (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) 1/2 (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) (/ (* (pow D 2) (pow M 2)) d) (* (pow D 2) (pow M 2)) (pow D 2) (pow M 2) (sqrt (/ 1 (* h (pow l 3)))) (/ 1 (* h (pow l 3))) (* h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)) (* (pow D 2) (* (pow M 2) h)) (* (pow M 2) h) (pow d 2) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3)))) (sqrt (/ (pow h 3) (pow l 3))) (/ (pow h 3) (pow l 3)) (pow h 3) (* (pow d 2) (sqrt (/ h l))) (sqrt (/ h l)))
16.0ms	D	@	0	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (sqrt (/ 1 (* h l)))) d (sqrt (/ 1 (* h l))) (/ 1 (* h l)) 1 (* h l) h l (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) 1/2 (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) (/ (* (pow D 2) (pow M 2)) d) (* (pow D 2) (pow M 2)) (pow D 2) (pow M 2) (sqrt (/ 1 (* h (pow l 3)))) (/ 1 (* h (pow l 3))) (* h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)) (* (pow D 2) (* (pow M 2) h)) (* (pow M 2) h) (pow d 2) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3)))) (sqrt (/ (pow h 3) (pow l 3))) (/ (pow h 3) (pow l 3)) (pow h 3) (* (pow d 2) (sqrt (/ h l))) (sqrt (/ h l)))
14.0ms	M	@	0	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (sqrt (/ 1 (* h l)))) d (sqrt (/ 1 (* h l))) (/ 1 (* h l)) 1 (* h l) h l (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) 1/2 (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) (/ (* (pow D 2) (pow M 2)) d) (* (pow D 2) (pow M 2)) (pow D 2) (pow M 2) (sqrt (/ 1 (* h (pow l 3)))) (/ 1 (* h (pow l 3))) (* h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)) (* (pow D 2) (* (pow M 2) h)) (* (pow M 2) h) (pow d 2) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3)))) (sqrt (/ (pow h 3) (pow l 3))) (/ (pow h 3) (pow l 3)) (pow h 3) (* (pow d 2) (sqrt (/ h l))) (sqrt (/ h l)))
13.0ms	l	@	0	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (sqrt (/ 1 (* h l)))) d (sqrt (/ 1 (* h l))) (/ 1 (* h l)) 1 (* h l) h l (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) 1/2 (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) (/ (* (pow D 2) (pow M 2)) d) (* (pow D 2) (pow M 2)) (pow D 2) (pow M 2) (sqrt (/ 1 (* h (pow l 3)))) (/ 1 (* h (pow l 3))) (* h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)) (* (pow D 2) (* (pow M 2) h)) (* (pow M 2) h) (pow d 2) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3)))) (sqrt (/ (pow h 3) (pow l 3))) (/ (pow h 3) (pow l 3)) (pow h 3) (* (pow d 2) (sqrt (/ h l))) (sqrt (/ h l)))
12.0ms	h	@	-inf	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (sqrt (/ 1 (* h l)))) d (sqrt (/ 1 (* h l))) (/ 1 (* h l)) 1 (* h l) h l (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) 1/2 (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) (/ (* (pow D 2) (pow M 2)) d) (* (pow D 2) (pow M 2)) (pow D 2) (pow M 2) (sqrt (/ 1 (* h (pow l 3)))) (/ 1 (* h (pow l 3))) (* h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)) (* (pow D 2) (* (pow M 2) h)) (* (pow M 2) h) (pow d 2) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3)))) (sqrt (/ (pow h 3) (pow l 3))) (/ (pow h 3) (pow l 3)) (pow h 3) (* (pow d 2) (sqrt (/ h l))) (sqrt (/ h l)))

rewrite74.0ms (1.1%)

Memory

-39.0MiB live, 52.6MiB allocated; 11ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	507	6329
0	578	6250
1	1238	6250

Stop Event

1×	saturated
1×	iter-limit
1×	unsound
1×	iter-limit

Counts

193 → 194

Calls

Call 1

Inputs
(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
(.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))
d
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))
(/.f64 #s(literal 1 binary64) (*.f64 h l))
#s(literal 1 binary64)
(*.f64 h l)
h
l
(-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))
(.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))
(.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)))
#s(literal 1/2 binary64)
(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)
(/.f64 h l)
(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h #s(approx (+ ( -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64))))))))))
(.f64 h #s(approx (+ ( -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64))))))))
(.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(literal -1/8 binary64)
(.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))))
(/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d)
(*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64)))
(pow.f64 D #s(literal 2 binary64))
(pow.f64 M #s(literal 2 binary64))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))
(*.f64 h (pow.f64 l #s(literal 3 binary64)))
(pow.f64 l #s(literal 3 binary64))
#s(literal 3 binary64)
(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l))
(/.f64 (-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l)
(-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64)))))
(.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))
#s(literal 1/8 binary64)
(/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64)))
(.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h))
(*.f64 (pow.f64 M #s(literal 2 binary64)) h)
(pow.f64 d #s(literal 2 binary64))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 #s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h)) d))
(/.f64 #s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h)) d)
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h)
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l))))
(.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))))
(sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))
(/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))
(pow.f64 h #s(literal 3 binary64))
(*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))
(sqrt.f64 (/.f64 h l))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d)))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx d #s(hole binary64 d))
#s(approx (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#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 (* 2 d) #s(hole binary64 (* 2 d)))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ 1 (* h (pow l 3)))))) (* (pow d 2) (sqrt (/ 1 (* (pow h 3) l))))) d)))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) #s(hole binary64 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))))
#s(approx (/ (* (pow D 2) (pow M 2)) d) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) d)))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (/ (- (* (pow d 2) l) (* 1/8 (* (pow D 2) (* (pow M 2) h)))) (pow d 2))))
#s(approx (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))
#s(approx (pow d 2) #s(hole binary64 (pow d 2)))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l))))))
#s(approx (* (pow d 2) (sqrt (/ h l))) #s(hole binary64 (* (pow d 2) (sqrt (/ h l)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* d (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (* 1/2 (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 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* d (sqrt (/ 1 (* (pow h 3) l))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* d (+ (sqrt (/ 1 (* (pow h 3) l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ 1 (* h (pow l 3))))))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 l))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow d 2) (sqrt (/ 1 (* h l))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow d 2) (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (* (pow d 2) (+ (sqrt (/ h l)) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ (pow h 3) (pow l 3)))))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* d (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (pow d 2)) (sqrt (/ h (pow l 3))))) (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2)))))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) #s(hole binary64 (* -1 (* d (+ (* -1 (sqrt (/ 1 (* h l)))) (* 1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3))))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1 (* d (+ (* -1 (sqrt (/ 1 (* (pow h 3) l)))) (* 1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) h)))
#s(approx (sqrt (/ 1 (* h l))) #s(hole binary64 (sqrt (/ 1 (* h l)))))
#s(approx (/ 1 (* h l)) #s(hole binary64 (/ 1 (* h l))))
#s(approx (* h l) #s(hole binary64 (* h l)))
#s(approx h #s(hole binary64 h))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) (pow h 2))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) #s(hole binary64 (sqrt (/ 1 (* h (pow l 3))))))
#s(approx (/ 1 (* h (pow l 3))) #s(hole binary64 (/ 1 (* h (pow l 3)))))
#s(approx (* h (pow l 3)) #s(hole binary64 (* h (pow l 3))))
#s(approx (* (pow D 2) (* (pow M 2) h)) #s(hole binary64 (* (pow D 2) (* (pow M 2) h))))
#s(approx (* (pow M 2) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h)))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3)))) #s(hole binary64 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))))
#s(approx (sqrt (/ (pow h 3) (pow l 3))) #s(hole binary64 (sqrt (/ (pow h 3) (pow l 3)))))
#s(approx (/ (pow h 3) (pow l 3)) #s(hole binary64 (/ (pow h 3) (pow l 3))))
#s(approx (pow h 3) #s(hole binary64 (pow h 3)))
#s(approx (sqrt (/ h l)) #s(hole binary64 (sqrt (/ h l))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* h (- (/ l h) (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ 1 (* h (pow l 3)))))) (* (pow d 2) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (* (pow h 2) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ 1 (* h (pow l 3)))))) (* (pow d 2) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (sqrt (/ 1 (* h l))) #s(hole binary64 (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) #s(hole binary64 (* -1 (* h (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) #s(hole binary64 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) #s(hole binary64 (* (sqrt (/ 1 (* h (pow l 3)))) (pow (sqrt -1) 2))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* -1 (* h (- (* -1 (/ l h)) (* -1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) #s(hole binary64 (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* 1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h) #s(hole binary64 (* -1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3)))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h) #s(hole binary64 (* -1 (* h (+ (* 1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ 1 (* h (pow l 3)))))) (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (* -1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ (pow h 3) (pow l 3)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (* (pow h 2) (+ (* -1 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ 1 (* h (pow l 3))))))))))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3)))) #s(hole binary64 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ (pow h 3) (pow l 3))))))
#s(approx (sqrt (/ (pow h 3) (pow l 3))) #s(hole binary64 (* (sqrt (/ (pow h 3) (pow l 3))) (pow (sqrt -1) 2))))
#s(approx (* (pow d 2) (sqrt (/ h l))) #s(hole binary64 (* -1 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ h l))))))
#s(approx (sqrt (/ h l)) #s(hole binary64 (* -1 (* (sqrt (/ h l)) (pow (sqrt -1) 2)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (* h l)))) (* d (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ l h)))) (* d (sqrt (/ (pow l 3) (pow h 3))))) (pow l 2))))
#s(approx (pow l 3) #s(hole binary64 (pow l 3)))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (* h l)))) (* (pow d 2) (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (* (pow h 3) l)))) (* (pow d 2) (sqrt (* h (pow l 3))))) (pow l 2))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) (* d (sqrt (/ 1 (* h l)))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* l (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) #s(hole binary64 (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))
#s(approx (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) #s(hole binary64 (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) #s(hole binary64 (* -1 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) #s(hole binary64 (* -1 (* (sqrt (/ 1 (* h (pow l 3)))) (pow (sqrt -1) 2)))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* -1 (* l (- (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) 1)))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (+ (* 1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3))))) (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ h l)))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (+ (* 1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ (pow h 3) (pow l 3))))) (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ h l))))))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3)))) #s(hole binary64 (* -1 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ (pow h 3) (pow l 3)))))))
#s(approx (sqrt (/ (pow h 3) (pow l 3))) #s(hole binary64 (* -1 (* (sqrt (/ (pow h 3) (pow l 3))) (pow (sqrt -1) 2)))))
#s(approx (sqrt (/ h l)) #s(hole binary64 (* (sqrt (/ h l)) (pow (sqrt -1) 2))))
#s(approx (* M D) #s(hole binary64 (* D M)))
#s(approx M #s(hole binary64 M))
#s(approx (* (pow D 2) (pow M 2)) #s(hole binary64 (* (pow D 2) (pow M 2))))
#s(approx (pow M 2) #s(hole binary64 (pow M 2)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* (pow M 2) (- (/ l (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (pow d 2)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (pow D 2) (sqrt (/ h (pow l 3))))) (* (/ (pow d 2) (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (pow D 2) (sqrt (/ (pow h 3) (pow l 3))))) (* (/ (pow d 2) (pow M 2)) (sqrt (/ h l)))))))
#s(approx D #s(hole binary64 D))
#s(approx (pow D 2) #s(hole binary64 (pow D 2)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* (pow D 2) (- (/ l (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (pow d 2)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (pow M 2) (sqrt (/ h (pow l 3))))) (* (/ (pow d 2) (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (pow M 2) (sqrt (/ (pow h 3) (pow l 3))))) (* (/ (pow d 2) (pow D 2)) (sqrt (/ h l)))))))

Outputs
(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
(.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))
d
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))
(/.f64 #s(literal 1 binary64) (*.f64 h l))
#s(literal 1 binary64)
(*.f64 h l)
h
l
(-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))
(.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))
(.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)))
#s(literal 1/2 binary64)
(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)
(/.f64 h l)
(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h #s(approx (+ ( -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64))))))))))
(.f64 h #s(approx (+ ( -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64))))))))
(.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(literal -1/8 binary64)
(.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))))
(/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d)
(*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64)))
(pow.f64 D #s(literal 2 binary64))
(pow.f64 M #s(literal 2 binary64))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))
(*.f64 h (pow.f64 l #s(literal 3 binary64)))
(pow.f64 l #s(literal 3 binary64))
#s(literal 3 binary64)
(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l))
(/.f64 (-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l)
(-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64)))))
(.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))
#s(literal 1/8 binary64)
(/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64)))
(.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h))
(*.f64 (pow.f64 M #s(literal 2 binary64)) h)
(pow.f64 d #s(literal 2 binary64))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 #s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h)) d))
(/.f64 #s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h)) d)
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h)
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l))))
(+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l))))
(.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))))
(sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))
(/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))
(pow.f64 h #s(literal 3 binary64))
(*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))
(sqrt.f64 (/.f64 h l))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) d))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
#s(approx d d)
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 (pow.f64 d #s(literal 2 binary64)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) l))) (pow.f64 d #s(literal 2 binary64))))
#s(approx (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l))))
#s(approx (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64)))))
#s(approx (pow (/ (* M D) (* 2 d)) 2) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64)))))
#s(approx (/ (* M D) (* 2 d)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 D M) d)))
#s(approx (* 2 d) (*.f64 #s(literal 2 binary64) d))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l))))) d))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (/ (* (pow D 2) (pow M 2)) d) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) l) (pow.f64 d #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64)))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (/.f64 (-.f64 (.f64 (pow.f64 d #s(literal 2 binary64)) l) (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)))) (pow.f64 d #s(literal 2 binary64))))
#s(approx (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64)))))
#s(approx (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))
#s(approx (pow d 2) (pow.f64 d #s(literal 2 binary64)))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 #s(literal -1/8 binary64) (.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) (.f64 #s(literal -1/8 binary64) (.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))))
#s(approx (* (pow d 2) (sqrt (/ h l))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 d (+.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 d (+.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64))))))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (+.f64 l (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (+.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) (.f64 (pow.f64 d #s(literal 2 binary64)) (+.f64 (sqrt.f64 (/.f64 h l)) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1 binary64) (.f64 d (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (pow.f64 d #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (.f64 #s(literal -1 binary64) (.f64 d (fma.f64 #s(literal -1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1 binary64) (.f64 d (fma.f64 #s(literal -1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 d (sqrt.f64 (/.f64 h l)))) h))
#s(approx (sqrt (/ 1 (* h l))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l))))
#s(approx (/ 1 (* h l)) (/.f64 #s(literal 1 binary64) (*.f64 h l)))
#s(approx (* h l) (*.f64 h l))
#s(approx h h)
#s(approx (/ h l) (/.f64 h l))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 d (sqrt.f64 (/.f64 h l)))) (pow.f64 h #s(literal 2 binary64))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))))
#s(approx (/ 1 (* h (pow l 3))) (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64)))))
#s(approx (* h (pow l 3)) (*.f64 h (pow.f64 l #s(literal 3 binary64))))
#s(approx (* (pow D 2) (* (pow M 2) h)) (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)))
#s(approx (* (pow M 2) h) (*.f64 (pow.f64 M #s(literal 2 binary64)) h))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3)))) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))))
#s(approx (sqrt (/ (pow h 3) (pow l 3))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))))
#s(approx (/ (pow h 3) (pow l 3)) (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))
#s(approx (pow h 3) (pow.f64 h #s(literal 3 binary64)))
#s(approx (sqrt (/ h l)) (sqrt.f64 (/.f64 h l)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 h (-.f64 (/.f64 #s(literal 1 binary64) h) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) (.f64 h (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (/.f64 #s(literal 1 binary64) h))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (.f64 h (-.f64 (/.f64 l h) (.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) (.f64 (pow.f64 h #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(literal -1 binary64) (.f64 h (fma.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))
#s(approx (sqrt (/ 1 (* h l))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (.f64 #s(literal -1 binary64) (.f64 h (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) (.f64 #s(literal -1 binary64) (.f64 h (-.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))) (/.f64 #s(literal 1 binary64) h)))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (.f64 #s(literal -1 binary64) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (/.f64 l h)) (.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (.f64 #s(literal -1 binary64) (.f64 h (fma.f64 #s(literal -1 binary64) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 #s(literal -1 binary64) (.f64 h (fma.f64 #s(literal -1 binary64) (.f64 (.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h) (.f64 #s(literal -1 binary64) (.f64 h (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) (.f64 (pow.f64 h #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))))))))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3)))) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))))
#s(approx (sqrt (/ (pow h 3) (pow l 3))) (*.f64 (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))))
#s(approx (* (pow d 2) (sqrt (/ h l))) (.f64 #s(literal -1 binary64) (.f64 (*.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 h l)))))
#s(approx (sqrt (/ h l)) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 (/.f64 h l)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (.f64 h l))) (.f64 d (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)))) (pow.f64 l #s(literal 2 binary64))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 l h))) (*.f64 d (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64)))))) (pow.f64 l #s(literal 2 binary64))))
#s(approx (pow l 3) (pow.f64 l #s(literal 3 binary64)))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) (/.f64 (+.f64 l (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (-.f64 l (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (.f64 h l))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)))) (pow.f64 l #s(literal 2 binary64))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (*.f64 h (pow.f64 l #s(literal 3 binary64)))))) (pow.f64 l #s(literal 2 binary64))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (.f64 l (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l)))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (.f64 d (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l))))))
#s(approx (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))))))
#s(approx (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))) (.f64 #s(literal -1 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))))))
#s(approx (sqrt (/ 1 (* h (pow l 3)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h (pow.f64 l #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (.f64 #s(literal -1 binary64) (.f64 l (-.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l))) #s(literal 1 binary64)))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 (.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) (.f64 (.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 h l))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (.f64 (*.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 h l)))))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3)))) (.f64 #s(literal -1 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (sqrt (/ (pow h 3) (pow l 3))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))))
#s(approx (sqrt (/ h l)) (*.f64 (sqrt.f64 (/.f64 h l)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64))))
#s(approx (* M D) (*.f64 D M))
#s(approx M M)
#s(approx (* (pow D 2) (pow M 2)) (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))))
#s(approx (pow M 2) (pow.f64 M #s(literal 2 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 2 binary64)) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (/.f64 d (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (pow.f64 M #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 M #s(literal 2 binary64))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) h) (.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 2 binary64)) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (/.f64 d (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) (.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) h) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (/.f64 #s(literal 1 binary64) (pow.f64 M #s(literal 2 binary64))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (.f64 (pow.f64 M #s(literal 2 binary64)) (-.f64 (/.f64 l (pow.f64 M #s(literal 2 binary64))) (.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) h) (pow.f64 d #s(literal 2 binary64)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 D #s(literal 2 binary64)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (/.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) (.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 D #s(literal 2 binary64)) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (/.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h l))))))
#s(approx D D)
#s(approx (pow D 2) (pow.f64 D #s(literal 2 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 M #s(literal 2 binary64)) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (/.f64 d (pow.f64 D #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (pow.f64 D #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 D #s(literal 2 binary64))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 M #s(literal 2 binary64)) h) (.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 M #s(literal 2 binary64)) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (/.f64 d (pow.f64 D #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) (.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 M #s(literal 2 binary64)) h) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (/.f64 #s(literal 1 binary64) (pow.f64 D #s(literal 2 binary64))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (.f64 (pow.f64 D #s(literal 2 binary64)) (-.f64 (/.f64 l (pow.f64 D #s(literal 2 binary64))) (.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 M #s(literal 2 binary64)) h) (pow.f64 d #s(literal 2 binary64)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 (/.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 D #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) (.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (/.f64 (pow.f64 d #s(literal 2 binary64)) (pow.f64 D #s(literal 2 binary64))) (sqrt.f64 (/.f64 h l))))))

eval13.0ms (0.2%)

Memory: 25.2MiB live, 25.2MiB allocated; 0ms collecting garbage
Compiler: Compiled 3 448 to 1 041 computations (69.8% saved)

prune20.0ms (0.3%)

Memory

-14.6MiB live, 31.2MiB allocated; 5ms collecting garbage

Pruning

17 alts after pruning (13 fresh and 4 done)

	Pruned	Kept	Total
New	153	3	156
Fresh	0	10	10
Picked	1	4	5
Done	1	0	1
Total	155	17	172

Accuracy

84.7%

Counts

172 → 17

Alt Table

Click to see full alt table

Status	Accuracy	Program
	24.4%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))))) (/.f64 h l))))
	23.7%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (/.f64 #s(literal 1 binary64) h)))))
▶	6.7%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
	22.5%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64)))
	32.4%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) #s(approx (pow (/ d l) (/ 1 2)) (sqrt.f64 (/.f64 d l)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
✓	70.9%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
▶	47.4%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) (-.f64 #s(literal 1 binary64) (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))))) (/.f64 h l))))
▶	21.3%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 #s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l)))
	20.1%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
✓	44.6%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64)))
	15.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 d (sqrt.f64 (/.f64 h l)))) h))
✓	10.7%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 #s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h)) d))
	31.7%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 #s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) d))
▶	26.3%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 #s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 #s(literal -1/8 binary64) (.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))) d))
	10.9%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h #s(approx (+ ( -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 l h))) (*.f64 d (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64)))))) (pow.f64 l #s(literal 2 binary64))))))
▶	20.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h #s(approx (+ ( -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
✓	16.9%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h #s(approx (+ ( -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64))))))))))

Compiler

Compiled 1 322 to 1 242 computations (6.1% saved)

series192.0ms (2.9%)

Memory

-23.5MiB live, 203.7MiB allocated; 95ms collecting garbage

Counts

61 → 115

Calls

Call 1

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

Outputs
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d)))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx d #s(hole binary64 d))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#s(approx (/ (* (pow D 2) (pow M 2)) (pow d 2)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) (pow d 2))))
#s(approx (pow d 2) #s(hole binary64 (pow d 2)))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ 1 (* h (pow l 3)))))) (* (pow d 2) (sqrt (/ 1 (* (pow h 3) l))))) d)))
#s(approx (* d (sqrt (/ 1 (* (pow h 3) l)))) #s(hole binary64 (* d (sqrt (/ 1 (* (pow h 3) l))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l)))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (/ (- (* (pow d 2) l) (* 1/8 (* (pow D 2) (* (pow M 2) h)))) (pow d 2))))
#s(approx (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (sqrt (/ d h))))
#s(approx (/ d h) #s(hole binary64 (/ d h)))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (sqrt (/ d l))))
#s(approx (/ d l) #s(hole binary64 (/ d l)))
#s(approx (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))
#s(approx (* (pow d 2) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* d (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ 1 2) (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 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* d (+ (sqrt (/ 1 (* (pow h 3) l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ 1 (* h (pow l 3))))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow d 2) (sqrt (/ 1 (* h l))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow d 2) (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 l))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* d (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (pow d 2)) (sqrt (/ h (pow l 3))))) (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2)))))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) #s(hole binary64 (* -1 (* d (+ (* -1 (sqrt (/ 1 (* h l)))) (* 1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3))))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1 (* d (+ (* -1 (sqrt (/ 1 (* (pow h 3) l)))) (* 1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (* -1 (* (sqrt (/ d h)) (pow (sqrt -1) 2)))))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (* -1 (* (sqrt (/ d l)) (pow (sqrt -1) 2)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) h)))
#s(approx (sqrt (/ 1 (* h l))) #s(hole binary64 (sqrt (/ 1 (* h l)))))
#s(approx (/ 1 (* h l)) #s(hole binary64 (/ 1 (* h l))))
#s(approx (* h l) #s(hole binary64 (* h l)))
#s(approx h #s(hole binary64 h))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) (pow h 2))))
#s(approx (sqrt (/ 1 (* (pow h 3) l))) #s(hole binary64 (sqrt (/ 1 (* (pow h 3) l)))))
#s(approx (/ 1 (* (pow h 3) l)) #s(hole binary64 (/ 1 (* (pow h 3) l))))
#s(approx (* (pow h 3) l) #s(hole binary64 (* (pow h 3) l)))
#s(approx (pow h 3) #s(hole binary64 (pow h 3)))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h)))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) #s(hole binary64 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))))
#s(approx (sqrt (/ h (pow l 3))) #s(hole binary64 (sqrt (/ h (pow l 3)))))
#s(approx (/ h (pow l 3)) #s(hole binary64 (/ h (pow l 3))))
#s(approx (* (pow D 2) (* (pow M 2) h)) #s(hole binary64 (* (pow D 2) (* (pow M 2) h))))
#s(approx (* (pow M 2) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ 1 (* h (pow l 3)))))) (* (pow d 2) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* h (- (/ l h) (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (sqrt (/ 1 (* h l))) #s(hole binary64 (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) #s(hole binary64 (* -1 (* h (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))
#s(approx (* d (sqrt (/ 1 (* (pow h 3) l)))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))
#s(approx (sqrt (/ 1 (* (pow h 3) l))) #s(hole binary64 (* -1 (* (sqrt (/ 1 (* (pow h 3) l))) (pow (sqrt -1) 2)))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) #s(hole binary64 (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* 1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) #s(hole binary64 (* -1 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3)))))))
#s(approx (sqrt (/ h (pow l 3))) #s(hole binary64 (* -1 (* (sqrt (/ h (pow l 3))) (pow (sqrt -1) 2)))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* -1 (* h (- (* -1 (/ l h)) (* -1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (* (sqrt (/ d h)) (pow (sqrt -1) 2))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (* h l)))) (* d (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ l h)))) (* d (sqrt (/ (pow l 3) (pow h 3))))) (pow l 2))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (* h l)))) (* (pow d 2) (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx (pow l 3) #s(hole binary64 (pow l 3)))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) (* d (sqrt (/ 1 (* h l)))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* l (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) #s(hole binary64 (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))
#s(approx (sqrt (/ 1 (* (pow h 3) l))) #s(hole binary64 (* (sqrt (/ 1 (* (pow h 3) l))) (pow (sqrt -1) 2))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (+ (* 1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3))))) (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* -1 (* l (- (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) 1)))))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (* (sqrt (/ d l)) (pow (sqrt -1) 2))))
#s(approx (* (pow D 2) (pow M 2)) #s(hole binary64 (* (pow D 2) (pow M 2))))
#s(approx (pow M 2) #s(hole binary64 (pow M 2)))
#s(approx M #s(hole binary64 M))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (pow D 2) (sqrt (/ h (pow l 3))))) (* (/ (pow d 2) (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* (pow M 2) (- (/ l (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (pow d 2)))))))
#s(approx (pow D 2) #s(hole binary64 (pow D 2)))
#s(approx D #s(hole binary64 D))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (pow M 2) (sqrt (/ h (pow l 3))))) (* (/ (pow d 2) (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* (pow D 2) (- (/ l (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (pow d 2)))))))

Calls

15 calls:

Time	Variable		Point	Expression
63.0ms	d	@	-inf	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (sqrt (/ 1 (* h l)))) d (sqrt (/ 1 (* h l))) (/ 1 (* h l)) 1 (* h l) h l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2))) 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)) (* (pow D 2) (pow M 2)) (pow D 2) D 2 (pow M 2) M (pow d 2) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (* d (sqrt (/ 1 (* (pow h 3) l)))) (sqrt (/ 1 (* (pow h 3) l))) (/ 1 (* (pow h 3) l)) (* (pow h 3) l) (pow h 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)) (* (pow D 2) (* (pow M 2) h)) (* (pow M 2) h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) (/ 1 2) (pow (/ d l) (/ 1 2)) (/ d l) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) (* (pow d 2) l))
19.0ms	D	@	inf	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (sqrt (/ 1 (* h l)))) d (sqrt (/ 1 (* h l))) (/ 1 (* h l)) 1 (* h l) h l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2))) 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)) (* (pow D 2) (pow M 2)) (pow D 2) D 2 (pow M 2) M (pow d 2) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (* d (sqrt (/ 1 (* (pow h 3) l)))) (sqrt (/ 1 (* (pow h 3) l))) (/ 1 (* (pow h 3) l)) (* (pow h 3) l) (pow h 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)) (* (pow D 2) (* (pow M 2) h)) (* (pow M 2) h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) (/ 1 2) (pow (/ d l) (/ 1 2)) (/ d l) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) (* (pow d 2) l))
10.0ms	h	@	-inf	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (sqrt (/ 1 (* h l)))) d (sqrt (/ 1 (* h l))) (/ 1 (* h l)) 1 (* h l) h l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2))) 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)) (* (pow D 2) (pow M 2)) (pow D 2) D 2 (pow M 2) M (pow d 2) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (* d (sqrt (/ 1 (* (pow h 3) l)))) (sqrt (/ 1 (* (pow h 3) l))) (/ 1 (* (pow h 3) l)) (* (pow h 3) l) (pow h 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)) (* (pow D 2) (* (pow M 2) h)) (* (pow M 2) h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) (/ 1 2) (pow (/ d l) (/ 1 2)) (/ d l) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) (* (pow d 2) l))
9.0ms	l	@	-inf	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (sqrt (/ 1 (* h l)))) d (sqrt (/ 1 (* h l))) (/ 1 (* h l)) 1 (* h l) h l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2))) 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)) (* (pow D 2) (pow M 2)) (pow D 2) D 2 (pow M 2) M (pow d 2) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (* d (sqrt (/ 1 (* (pow h 3) l)))) (sqrt (/ 1 (* (pow h 3) l))) (/ 1 (* (pow h 3) l)) (* (pow h 3) l) (pow h 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)) (* (pow D 2) (* (pow M 2) h)) (* (pow M 2) h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) (/ 1 2) (pow (/ d l) (/ 1 2)) (/ d l) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) (* (pow d 2) l))
8.0ms	M	@	0	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (sqrt (/ 1 (* h l)))) d (sqrt (/ 1 (* h l))) (/ 1 (* h l)) 1 (* h l) h l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2))) 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)) (* (pow D 2) (pow M 2)) (pow D 2) D 2 (pow M 2) M (pow d 2) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (* d (sqrt (/ 1 (* (pow h 3) l)))) (sqrt (/ 1 (* (pow h 3) l))) (/ 1 (* (pow h 3) l)) (* (pow h 3) l) (pow h 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)) (* (pow D 2) (* (pow M 2) h)) (* (pow M 2) h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) (/ 1 2) (pow (/ d l) (/ 1 2)) (/ d l) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) (* (pow d 2) l))

rewrite55.0ms (0.8%)

Memory

-17.7MiB live, 77.0MiB allocated; 12ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	456	5375
0	524	5303
1	1111	5303

Stop Event

1×	saturated
1×	iter-limit
1×	unsound
1×	iter-limit

Counts

176 → 176

Calls

Call 1

Inputs
(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) (-.f64 #s(literal 1 binary64) (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))))) (/.f64 h l))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
(.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))
d
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))
(/.f64 #s(literal 1 binary64) (*.f64 h l))
#s(literal 1 binary64)
(*.f64 h l)
h
l
(-.f64 #s(literal 1 binary64) (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))))) (/.f64 h l)))
(.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))))) (/.f64 h l))
#s(approx (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64)))))
(.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))))
#s(literal 1/8 binary64)
(/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64)))
(*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64)))
(pow.f64 D #s(literal 2 binary64))
D
#s(literal 2 binary64)
(pow.f64 M #s(literal 2 binary64))
M
(pow.f64 d #s(literal 2 binary64))
(/.f64 h l)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h #s(approx (+ ( -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
(.f64 h #s(approx (+ ( -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))
(.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l)))
(/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) l))
(*.f64 (pow.f64 h #s(literal 3 binary64)) l)
(pow.f64 h #s(literal 3 binary64))
#s(literal 3 binary64)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 #s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 #s(literal -1/8 binary64) (.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))) d))
(/.f64 #s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 #s(literal -1/8 binary64) (.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))) d)
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 #s(literal -1/8 binary64) (.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
(.f64 #s(literal -1/8 binary64) (.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
#s(literal -1/8 binary64)
(.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))
(sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))
(/.f64 h (pow.f64 l #s(literal 3 binary64)))
(pow.f64 l #s(literal 3 binary64))
(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 #s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 #s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l))
(/.f64 #s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l)
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64)))))
(.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))
(/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64)))
(.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h))
(*.f64 (pow.f64 M #s(literal 2 binary64)) h)
(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
(*.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))))
(pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))
(/.f64 d h)
(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))
(pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))
(/.f64 d l)
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l))))
(.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l)))
(/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))
(*.f64 (pow.f64 d #s(literal 2 binary64)) l)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d)))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx d #s(hole binary64 d))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#s(approx (/ (* (pow D 2) (pow M 2)) (pow d 2)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) (pow d 2))))
#s(approx (pow d 2) #s(hole binary64 (pow d 2)))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ 1 (* h (pow l 3)))))) (* (pow d 2) (sqrt (/ 1 (* (pow h 3) l))))) d)))
#s(approx (* d (sqrt (/ 1 (* (pow h 3) l)))) #s(hole binary64 (* d (sqrt (/ 1 (* (pow h 3) l))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l)))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (/ (- (* (pow d 2) l) (* 1/8 (* (pow D 2) (* (pow M 2) h)))) (pow d 2))))
#s(approx (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (sqrt (/ d h))))
#s(approx (/ d h) #s(hole binary64 (/ d h)))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (sqrt (/ d l))))
#s(approx (/ d l) #s(hole binary64 (/ d l)))
#s(approx (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))
#s(approx (* (pow d 2) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* d (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ 1 2) (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 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* d (+ (sqrt (/ 1 (* (pow h 3) l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ 1 (* h (pow l 3))))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow d 2) (sqrt (/ 1 (* h l))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow d 2) (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 l))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* d (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (pow d 2)) (sqrt (/ h (pow l 3))))) (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2)))))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) #s(hole binary64 (* -1 (* d (+ (* -1 (sqrt (/ 1 (* h l)))) (* 1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3))))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1 (* d (+ (* -1 (sqrt (/ 1 (* (pow h 3) l)))) (* 1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (* -1 (* (sqrt (/ d h)) (pow (sqrt -1) 2)))))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (* -1 (* (sqrt (/ d l)) (pow (sqrt -1) 2)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) h)))
#s(approx (sqrt (/ 1 (* h l))) #s(hole binary64 (sqrt (/ 1 (* h l)))))
#s(approx (/ 1 (* h l)) #s(hole binary64 (/ 1 (* h l))))
#s(approx (* h l) #s(hole binary64 (* h l)))
#s(approx h #s(hole binary64 h))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) (pow h 2))))
#s(approx (sqrt (/ 1 (* (pow h 3) l))) #s(hole binary64 (sqrt (/ 1 (* (pow h 3) l)))))
#s(approx (/ 1 (* (pow h 3) l)) #s(hole binary64 (/ 1 (* (pow h 3) l))))
#s(approx (* (pow h 3) l) #s(hole binary64 (* (pow h 3) l)))
#s(approx (pow h 3) #s(hole binary64 (pow h 3)))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ (pow h 3) (pow l 3))))) (* (pow d 2) (sqrt (/ h l)))) h)))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) #s(hole binary64 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))))
#s(approx (sqrt (/ h (pow l 3))) #s(hole binary64 (sqrt (/ h (pow l 3)))))
#s(approx (/ h (pow l 3)) #s(hole binary64 (/ h (pow l 3))))
#s(approx (* (pow D 2) (* (pow M 2) h)) #s(hole binary64 (* (pow D 2) (* (pow M 2) h))))
#s(approx (* (pow M 2) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ 1 (* h (pow l 3)))))) (* (pow d 2) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* h (- (/ l h) (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (sqrt (/ 1 (* h l))) #s(hole binary64 (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) #s(hole binary64 (* -1 (* h (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3))))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))
#s(approx (* d (sqrt (/ 1 (* (pow h 3) l)))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))
#s(approx (sqrt (/ 1 (* (pow h 3) l))) #s(hole binary64 (* -1 (* (sqrt (/ 1 (* (pow h 3) l))) (pow (sqrt -1) 2)))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) #s(hole binary64 (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* 1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3)))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3)))) #s(hole binary64 (* -1 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3)))))))
#s(approx (sqrt (/ h (pow l 3))) #s(hole binary64 (* -1 (* (sqrt (/ h (pow l 3))) (pow (sqrt -1) 2)))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* -1 (* h (- (* -1 (/ l h)) (* -1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (* (sqrt (/ d h)) (pow (sqrt -1) 2))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (* h l)))) (* d (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ l h)))) (* d (sqrt (/ (pow l 3) (pow h 3))))) (pow l 2))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (* h l)))) (* (pow d 2) (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx (pow l 3) #s(hole binary64 (pow l 3)))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) (* d (sqrt (/ 1 (* h l)))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* l (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l)))))) #s(hole binary64 (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l)))))))
#s(approx (sqrt (/ 1 (* (pow h 3) l))) #s(hole binary64 (* (sqrt (/ 1 (* (pow h 3) l))) (pow (sqrt -1) 2))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (+ (* 1/8 (* (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (sqrt (/ h (pow l 3))))) (* (* (pow d 2) (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* -1 (* l (- (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) 1)))))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (* (sqrt (/ d l)) (pow (sqrt -1) 2))))
#s(approx (* (pow D 2) (pow M 2)) #s(hole binary64 (* (pow D 2) (pow M 2))))
#s(approx (pow M 2) #s(hole binary64 (pow M 2)))
#s(approx M #s(hole binary64 M))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (pow D 2) (sqrt (/ h (pow l 3))))) (* (/ (pow d 2) (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* (pow M 2) (- (/ l (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (pow d 2)))))))
#s(approx (pow D 2) #s(hole binary64 (pow D 2)))
#s(approx D #s(hole binary64 D))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (pow M 2) (sqrt (/ h (pow l 3))))) (* (/ (pow d 2) (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) #s(hole binary64 (* (pow D 2) (- (/ l (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (pow d 2)))))))

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

eval14.0ms (0.2%)

Memory: -2.4MiB live, 43.7MiB allocated; 4ms collecting garbage
Compiler: Compiled 2 824 to 865 computations (69.4% saved)

prune19.0ms (0.3%)

Memory

21.2MiB live, 68.5MiB allocated; 1ms collecting garbage

Pruning

17 alts after pruning (9 fresh and 8 done)

	Pruned	Kept	Total
New	138	1	139
Fresh	0	8	8
Picked	1	4	5
Done	0	4	4
Total	139	17	156

Accuracy

84.7%

Counts

156 → 17

Alt Table

Click to see full alt table

Status	Accuracy	Program
	24.4%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))))) (/.f64 h l))))
	23.7%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (/.f64 #s(literal 1 binary64) h)))))
	22.5%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64)))
	32.4%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) #s(approx (pow (/ d l) (/ 1 2)) (sqrt.f64 (/.f64 d l)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	6.7%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) #s(approx (pow (/ d l) (/ 1 2)) (sqrt.f64 (/.f64 d l)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
✓	70.9%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
✓	47.4%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) (-.f64 #s(literal 1 binary64) (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64))))) (/.f64 h l))))
✓	21.3%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 #s(approx (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l)))
	20.1%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 M #s(literal 2 binary64)) h)) (.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
✓	44.6%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64)))
	15.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 d (sqrt.f64 (/.f64 h l)))) h))
✓	10.7%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 #s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 h l)))) h)) d))
	31.7%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 #s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 (pow.f64 d #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))))) d))
✓	26.3%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 #s(approx (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) (.f64 #s(literal -1/8 binary64) (.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))) d))
	10.9%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h #s(approx (+ ( -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (/.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 l h))) (*.f64 d (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64)))))) (pow.f64 l #s(literal 2 binary64))))))
✓	20.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h #s(approx (+ ( -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
✓	16.9%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 h #s(approx (+ ( -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h (pow.f64 l #s(literal 3 binary64))))))))))

Compiler

Compiled 1 320 to 915 computations (30.7% saved)

regimes57.0ms (0.9%)

Memory

7.1MiB live, 102.3MiB allocated; 10ms collecting garbage

Counts

26 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 39 to 53 computations (-35.9% saved)

regimes15.0ms (0.2%)

Memory

-10.5MiB live, 35.1MiB allocated; 4ms collecting garbage

Counts

4 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

5.0ms	d
2.0ms	l
2.0ms	M
2.0ms	D
2.0ms	h

Results

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

Compiler

Compiled 39 to 53 computations (-35.9% saved)

regimes3.0ms (0%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

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

Outputs

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

Calls

3 calls:

1.0ms	M
1.0ms	D
1.0ms	(*.f64 M D)

Results

Accuracy	Segments	Branch
44.6%	1	`D`
44.6%	1	`M`
44.6%	1	`(*.f64 M D)`

Compiler

Compiled 5 to 16 computations (-220% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	6.677617008133709e-170	6.742232461430052e-165

Compiler

Compiled 38 to 30 computations (21.1% saved)

bsearch52.0ms (0.8%)

Memory

-7.9MiB live, 84.7MiB allocated; 16ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
48.0ms	2.4421882628600672e+232	1.7903826463356908e+235

Samples

25.0ms	128×	0	valid
11.0ms	127×	0	invalid

Compiler

Compiled 702 to 678 computations (3.4% saved)

Precisions

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

ival-div!: 14.0ms (50.3% of total)

ival-pow: 5.0ms (17.9% of total)

ival-mult!: 5.0ms (17.9% of total)

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

ival-sub!: 1.0ms (3.6% of total)

adjust: 0.0ms (0% of total)

derivations9.0ms (0.1%)

Memory

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

Stop Event

1×

fuel

Compiler

Compiled 94 to 74 computations (21.3% saved)

preprocess65.0ms (1%)

Memory

-5.1MiB live, 130.8MiB allocated; 17ms collecting garbage

Remove

(sort M D)

(abs D)

(abs M)

Compiler

Compiled 2 199 to 1 842 computations (16.2% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze618.0ms (9.3%)

sample4.8s (71.7%)

preprocess58.0ms (0.9%)

series123.0ms (1.8%)

rewrite33.0ms (0.5%)

eval5.0ms (0.1%)

prune11.0ms (0.2%)

series189.0ms (2.8%)

rewrite60.0ms (0.9%)

eval11.0ms (0.2%)

prune17.0ms (0.3%)

series176.0ms (2.6%)

rewrite74.0ms (1.1%)

eval13.0ms (0.2%)

prune20.0ms (0.3%)

series192.0ms (2.9%)

rewrite55.0ms (0.8%)

eval14.0ms (0.2%)

prune19.0ms (0.3%)

regimes57.0ms (0.9%)

regimes15.0ms (0.2%)

regimes3.0ms (0%)

bsearch1.0ms (0%)

bsearch52.0ms (0.8%)

derivations9.0ms (0.1%)

preprocess65.0ms (1%)

end0.0ms (0%)

Profiling