Metrics for Henrywood and Agarwal, Equation (12)

start0.0ms (0%)

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

analyze645.0ms (4.9%)

Memory

23.4MiB live, 438.1MiB allocated; 717ms 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)

sample5.4s (41.3%)

Memory

172.3MiB live, 5 953.7MiB allocated; 2.9s collecting garbage

Samples

2.1s	13 257×	0	invalid
1.9s	8 255×	0	valid
0.0ms	1×	1	valid

Precisions

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

ival-div!: 997.0ms (33.7% of total)

ival-pow: 816.0ms (27.5% of total)

ival-mult!: 735.0ms (24.8% of total)

ival-pow2: 359.0ms (12.1% of total)

ival-sub!: 51.0ms (1.7% of total)

adjust: 4.0ms (0.1% of total)

Bogosity

preprocess55.0ms (0.4%)

Memory

5.0MiB live, 50.7MiB allocated; 17ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	171	589
1	635	561
2	3473	550

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	37.3%	(.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

▶

37.3%

(*.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)

series612.0ms (4.7%)

Memory

10.0MiB live, 578.2MiB allocated; 446ms collecting garbage

Counts

22 → 48

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))))))
#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 (* (sqrt -1) (sqrt -1))) (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) (* (sqrt -1) (sqrt -1)))) (pow d 2)) (sqrt (/ h (pow l 3))))) (* (sqrt (/ 1 (* h l))) (* (sqrt -1) (sqrt -1))))))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* -1 (* (* d (* (sqrt -1) (sqrt -1))) (sqrt (/ 1 (* h l)))))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (* -1 (* (sqrt (/ d h)) (* (sqrt -1) (sqrt -1))))))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (* -1 (* (sqrt (/ d l)) (* (sqrt -1) (sqrt -1))))))
#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) (* (sqrt -1) (sqrt -1)))) 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 (* (sqrt -1) (sqrt -1))) (sqrt (/ 1 (* (pow h 3) l))))) (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (* (sqrt -1) (sqrt -1)))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* (* d (* (sqrt -1) (sqrt -1))) (sqrt (/ 1 (* h l))))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (* (sqrt (/ d h)) (* (sqrt -1) (sqrt -1)))))
#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 (* (* d (* (sqrt -1) (sqrt -1))) (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) (* (sqrt -1) (sqrt -1)))) d) (sqrt (/ h (pow l 3))))) (* (* d (* (sqrt -1) (sqrt -1))) (sqrt (/ 1 (* h l)))))))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (* (sqrt (/ d l)) (* (sqrt -1) (sqrt -1)))))
#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
231.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))
56.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))
51.0ms	M	@	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))
34.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))
32.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))

rewrite31.0ms (0.2%)

Memory

13.8MiB live, 60.0MiB allocated; 5ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	229	1696
0	254	1685

Stop Event

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

Counts

70 → 70

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

Memory: 16.0MiB live, 16.0MiB allocated; 0ms collecting garbage
Compiler: Compiled 1 053 to 333 computations (68.4% saved)

prune11.0ms (0.1%)

Memory

-20.0MiB live, 26.7MiB allocated; 2ms collecting garbage

Pruning

11 alts after pruning (11 fresh and 0 done)

	Pruned	Kept	Total
New	45	11	56
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	46	11	57

Accuracy

82.1%

Counts

57 → 11

Alt Table

Click to see full alt table

Status	Accuracy	Program
	22.3%	(.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)))
	21.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))) (.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)))))
	27.0%	(.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)))
	36.5%	(.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))))
▶	68.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))))) (-.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))))
▶	10.6%	#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))
	29.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 (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))))
▶	29.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 (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.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 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)))))))
▶	46.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 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
▶	23.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(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)))))))

Compiler

Compiled 830 to 766 computations (7.7% saved)

series1.3s (10%)

Memory

100.9MiB live, 1 550.2MiB allocated; 1.1s collecting garbage

Counts

50 → 134

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

Calls

15 calls:

Time	Variable		Point	Expression
186.0ms	M	@	-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)))) (* (* (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)))) (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) h) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3)))) (sqrt (/ (pow h 3) (pow l 3))) (/ (pow h 3) (pow l 3)) (pow h 3) (* d (sqrt (/ h l))) (sqrt (/ h l)))
129.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)))) (* (* (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)))) (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) h) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3)))) (sqrt (/ (pow h 3) (pow l 3))) (/ (pow h 3) (pow l 3)) (pow h 3) (* d (sqrt (/ h l))) (sqrt (/ h l)))
116.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)))) (* (* (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)))) (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) h) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3)))) (sqrt (/ (pow h 3) (pow l 3))) (/ (pow h 3) (pow l 3)) (pow h 3) (* d (sqrt (/ h l))) (sqrt (/ h l)))
115.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))) (* 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)))) (* (* (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)))) (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) h) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3)))) (sqrt (/ (pow h 3) (pow l 3))) (/ (pow h 3) (pow l 3)) (pow h 3) (* d (sqrt (/ h l))) (sqrt (/ h l)))
89.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)))) (* (* (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)))) (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) h) (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3)))) (sqrt (/ (pow h 3) (pow l 3))) (/ (pow h 3) (pow l 3)) (pow h 3) (* d (sqrt (/ h l))) (sqrt (/ h l)))

rewrite818.0ms (6.3%)

Memory

-64.8MiB live, 72.5MiB allocated; 1.4s collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	434	6040
0	502	6000

Stop Event

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

Counts

184 → 186

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

eval13.0ms (0.1%)

Memory: 35.4MiB live, 35.4MiB allocated; 0ms collecting garbage
Compiler: Compiled 3 606 to 870 computations (75.9% saved)

prune38.0ms (0.3%)

Memory

-33.6MiB live, 42.4MiB allocated; 36ms collecting garbage

Pruning

15 alts after pruning (13 fresh and 2 done)

	Pruned	Kept	Total
New	167	8	175
Fresh	1	5	6
Picked	3	2	5
Done	0	0	0
Total	171	15	186

Accuracy

83.7%

Counts

186 → 15

Alt Table

Click to see full alt table

Status	Accuracy	Program
	22.3%	(.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)))
	27.0%	(.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)))
▶	36.5%	(.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))))
▶	68.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))))) (-.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))))
	23.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 (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)))))))
	45.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))))) #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)))))
	17.8%	(.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)))))
	29.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 (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))))
▶	29.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)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) (*.f64 d (sqrt.f64 (/.f64 h l)))) h))
▶	8.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(approx (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ 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 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))))))) h))
	8.1%	#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))
	28.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 #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))
▶	18.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 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)))))))
✓	46.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 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
✓	23.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(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)))))))

Compiler

Compiled 1 189 to 1 113 computations (6.4% saved)

series1.5s (11.5%)

Memory

104.4MiB live, 1 831.9MiB allocated; 1.4s collecting garbage

Counts

64 → 180

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

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

rewrite62.0ms (0.5%)

Memory

-10.5MiB live, 86.6MiB allocated; 21ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	469	8194
0	545	8105

Stop Event

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

Counts

244 → 245

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

eval33.0ms (0.3%)

Memory: -19.0MiB live, 25.7MiB allocated; 8ms collecting garbage
Compiler: Compiled 3 860 to 998 computations (74.1% saved)

prune17.0ms (0.1%)

Memory

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

Pruning

16 alts after pruning (12 fresh and 4 done)

	Pruned	Kept	Total
New	174	5	179
Fresh	1	7	8
Picked	3	2	5
Done	0	2	2
Total	178	16	194

Accuracy

84.1%

Counts

194 → 16

Alt Table

Click to see full alt table

Status	Accuracy	Program
	22.3%	(.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)))
▶	27.0%	(.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)))
▶	36.5%	(.f64 (.f64 #s(approx (pow (/ d h) (/ 1 2)) (sqrt.f64 (/.f64 d h))) #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))))
✓	68.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))))) (-.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))))
▶	23.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 (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)))))))
▶	17.8%	(.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)))))
	29.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 (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))))
✓	29.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)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) (*.f64 d (sqrt.f64 (/.f64 h l)))) h))
	8.1%	#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))
	28.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 #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))
	11.1%	#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))))))
	8.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 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 (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)))))))))
▶	21.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 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
	15.4%	#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))))))))))
✓	46.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 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
✓	23.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(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)))))))

Compiler

Compiled 1 306 to 1 236 computations (5.4% saved)

series1.3s (9.6%)

Memory

92.3MiB live, 1 640.1MiB allocated; 886ms collecting garbage

Counts

63 → 129

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
169.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))) (pow (/ d h) (/ 1 2)) (sqrt (/ d h)) (/ d h) d h (pow (/ d l) (/ 1 2)) (sqrt (/ d l)) (/ d l) l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) 1 (* (* (/ 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)))) (* 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)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (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))) (- 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)))) (sqrt (/ 1 (* h l))) (/ 1 (* h l)) (* h 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))) -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) (* (pow D 2) (* (pow M 2) h)) (pow D 2) (* (pow M 2) h) (pow M 2) (* (pow d 2) 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)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l))))) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))) (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)) (* (pow D 2) h))
123.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)) (sqrt (/ d h)) (/ d h) d h (pow (/ d l) (/ 1 2)) (sqrt (/ d l)) (/ d l) l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) 1 (* (* (/ 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)))) (* 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)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (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))) (- 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)))) (sqrt (/ 1 (* h l))) (/ 1 (* h l)) (* h 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))) -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) (* (pow D 2) (* (pow M 2) h)) (pow D 2) (* (pow M 2) h) (pow M 2) (* (pow d 2) 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)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l))))) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))) (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)) (* (pow D 2) h))
107.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))) (pow (/ d h) (/ 1 2)) (sqrt (/ d h)) (/ d h) d h (pow (/ d l) (/ 1 2)) (sqrt (/ d l)) (/ d l) l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) 1 (* (* (/ 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)))) (* 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)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (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))) (- 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)))) (sqrt (/ 1 (* h l))) (/ 1 (* h l)) (* h 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))) -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) (* (pow D 2) (* (pow M 2) h)) (pow D 2) (* (pow M 2) h) (pow M 2) (* (pow d 2) 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)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l))))) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))) (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)) (* (pow D 2) h))
103.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)) (sqrt (/ d h)) (/ d h) d h (pow (/ d l) (/ 1 2)) (sqrt (/ d l)) (/ d l) l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) 1 (* (* (/ 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)))) (* 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)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (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))) (- 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)))) (sqrt (/ 1 (* h l))) (/ 1 (* h l)) (* h 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))) -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) (* (pow D 2) (* (pow M 2) h)) (pow D 2) (* (pow M 2) h) (pow M 2) (* (pow d 2) 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)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l))))) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))) (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)) (* (pow D 2) h))
92.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)) (sqrt (/ d h)) (/ d h) d h (pow (/ d l) (/ 1 2)) (sqrt (/ d l)) (/ d l) l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) 1 (* (* (/ 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)))) (* 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)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (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))) (- 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)))) (sqrt (/ 1 (* h l))) (/ 1 (* h l)) (* h 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))) -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) (* (pow D 2) (* (pow M 2) h)) (pow D 2) (* (pow M 2) h) (pow M 2) (* (pow d 2) 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)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l))))) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))) (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)) (* (pow D 2) h))

rewrite57.0ms (0.4%)

Memory

2.2MiB live, 93.2MiB allocated; 23ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	435	5492
0	511	5424

Stop Event

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

Counts

192 → 192

Calls

Call 1

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

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

eval32.0ms (0.2%)

Memory: 7.0MiB live, 39.4MiB allocated; 33ms collecting garbage
Compiler: Compiled 2 988 to 859 computations (71.3% saved)

prune38.0ms (0.3%)

Memory

11.5MiB live, 50.5MiB allocated; 25ms collecting garbage

Pruning

17 alts after pruning (12 fresh and 5 done)

	Pruned	Kept	Total
New	148	6	154
Fresh	1	6	7
Picked	4	1	5
Done	0	4	4
Total	153	17	170

Accuracy

84.1%

Counts

170 → 17

Alt Table

Click to see full alt table

Status	Accuracy	Program
	27.0%	(.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))) #s(literal 1 binary64)))
	36.5%	(.f64 (.f64 #s(approx (pow (/ d h) (/ 1 2)) (sqrt.f64 (/.f64 d h))) #s(approx (pow (/ d l) (/ 1 2)) (sqrt.f64 (/.f64 d 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))))
	22.3%	(.f64 (.f64 #s(approx (pow (/ d h) (/ 1 2)) (sqrt.f64 (/.f64 d h))) #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 (-.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)))
✓	68.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))))) (-.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))))
	11.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 (pow.f64 M #s(literal 2 binary64)) #s(approx (- (/ 1 (pow M 2)) ( 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))) (/.f64 #s(literal 1 binary64) (pow.f64 M #s(literal 2 binary64)))))))
	22.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))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (pow.f64 M #s(literal 2 binary64)) #s(approx (- (/ 1 (pow M 2)) ( 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))) (.f64 h (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 D #s(literal 2 binary64)) (.f64 (pow.f64 d #s(literal 2 binary64)) l)) (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 M #s(literal 2 binary64)) h))))))))
	18.5%	(.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 (pow.f64 M #s(literal 2 binary64)) #s(approx (- (/ 1 (pow M 2)) ( 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))) (.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)))))))
	29.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 (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))))
✓	29.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)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) (*.f64 d (sqrt.f64 (/.f64 h l)))) h))
	8.1%	#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))
	28.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 #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))
	11.1%	#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))))))
	8.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 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 (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)))))))))
✓	21.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 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 3 binary64)) l)))))))
	15.4%	#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))))))))))
✓	46.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 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))
✓	23.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(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)))))))

Compiler

Compiled 1 472 to 1 001 computations (32% saved)

regimes778.0ms (5.9%)

Memory

-146.0MiB live, 144.1MiB allocated; 1.7s collecting garbage

Counts

31 → 2

Calls

Call 1

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

680.0ms	D
35.0ms	d
29.0ms	l
8.0ms	h
8.0ms	M

Results

Accuracy	Segments	Branch
71.1%	2	`(*.f64 M D)`
72.9%	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))))`
68.7%	1	`d`
68.7%	1	`h`
68.7%	1	`l`
68.7%	1	`M`
68.7%	1	`D`

Compiler

Compiled 39 to 53 computations (-35.9% saved)

regimes3.0ms (0%)

Memory

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

Counts

8 → 3

Calls

Call 1

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

1 calls:

2.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))))

Results

Accuracy	Segments	Branch
74.4%	3	`(.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))))`

Compiler

Compiled 31 to 22 computations (29% saved)

regimes30.0ms (0.2%)

Memory

-18.6MiB live, 21.1MiB allocated; 15ms collecting garbage

Counts

5 → 2

Calls

Call 1

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

Outputs

(*.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))) #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 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))

Calls

7 calls:

17.0ms	M
2.0ms	h
2.0ms	l
2.0ms	D
2.0ms	d

Results

Accuracy	Segments	Branch
48.5%	2	`h`
46.3%	1	`d`
46.3%	1	`D`
46.3%	1	`l`
50.6%	2	`M`
50.2%	2	`(*.f64 M D)`
50.8%	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))))`

Compiler

Compiled 39 to 53 computations (-35.9% saved)

regimes4.0ms (0%)

Memory

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

Counts

4 → 2

Calls

Call 1

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

Outputs

#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 (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 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

2 calls:

2.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))))

Results

Accuracy	Segments	Branch
50.6%	2	`M`
49.1%	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))))`

Compiler

Compiled 32 to 27 computations (15.6% saved)

regimes4.0ms (0%)

Memory

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

Counts

2 → 2

Calls

Call 1

Inputs

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

Outputs

#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)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) (*.f64 d (sqrt.f64 (/.f64 h l)))) 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 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))

Calls

3 calls:

1.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))))

1.0ms

(*.f64 M D)

Results

Accuracy	Segments	Branch
49.1%	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))))`
46.3%	1	`(*.f64 M D)`
46.3%	1	`M`

Compiler

Compiled 35 to 33 computations (5.7% saved)

regimes3.0ms (0%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs
#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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.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)))) (.f64 d (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l)))))

Calls

3 calls:

1.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))))

1.0ms

Results

Accuracy	Segments	Branch
46.3%	1	`M`
46.3%	1	`h`
46.3%	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))))`

Compiler

Compiled 33 to 32 computations (3% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	2.7959193506055066e+234	6.725022474947132e+260

Compiler

Compiled 34 to 30 computations (11.8% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	2.7959193506055066e+234	6.725022474947132e+260
0.0ms	-0.0	2.168083108608757e-293

Compiler

Compiled 34 to 30 computations (11.8% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	2.7959193506055066e+234	6.725022474947132e+260

Compiler

Compiled 34 to 30 computations (11.8% saved)

bsearch36.0ms (0.3%)

Memory

7.3MiB live, 53.8MiB allocated; 6ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
32.0ms	1654607908639.4956	9986177851328.658

Samples

14.0ms	93×	0	invalid
12.0ms	96×	0	valid

Compiler

Compiled 530 to 510 computations (3.8% saved)

Precisions

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

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

ival-div!: 4.0ms (27.9% of total)

ival-mult!: 4.0ms (27.9% of total)

ival-pow2: 2.0ms (13.9% of total)

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

adjust: 0.0ms (0% of total)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	2.7959193506055066e+234	6.725022474947132e+260

Compiler

Compiled 34 to 30 computations (11.8% saved)

derivations20.0ms (0.2%)

Memory

-22.6MiB live, 23.2MiB allocated; 8ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 209 to 112 computations (46.4% saved)

preprocess244.0ms (1.9%)

Memory

0.4MiB live, 234.0MiB allocated; 259ms collecting garbage

Remove

(sort M D)

(abs D)

(abs M)

Compiler

Compiled 4 356 to 3 158 computations (27.5% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze645.0ms (4.9%)

sample5.4s (41.3%)

preprocess55.0ms (0.4%)

series612.0ms (4.7%)

rewrite31.0ms (0.2%)

eval5.0ms (0%)

prune11.0ms (0.1%)

series1.3s (10%)

rewrite818.0ms (6.3%)

eval13.0ms (0.1%)

prune38.0ms (0.3%)

series1.5s (11.5%)

rewrite62.0ms (0.5%)

eval33.0ms (0.3%)

prune17.0ms (0.1%)

series1.3s (9.6%)

rewrite57.0ms (0.4%)

eval32.0ms (0.2%)

prune38.0ms (0.3%)

regimes778.0ms (5.9%)

regimes3.0ms (0%)

regimes30.0ms (0.2%)

regimes4.0ms (0%)

regimes4.0ms (0%)

regimes3.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch36.0ms (0.3%)

bsearch0.0ms (0%)

derivations20.0ms (0.2%)

preprocess244.0ms (1.9%)

end0.0ms (0%)

Profiling